<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=us-ascii">
<META content="MSHTML 6.00.2600.0" name=GENERATOR></HEAD>
<BODY>
<DIV><FONT face=Arial color=#0000ff size=2><SPAN class=001505518-23072003>Don,
couldn't you just make a function such as (OTTOMH):</SPAN></FONT></DIV>
<DIV><FONT face=Arial color=#0000ff size=2><SPAN
class=001505518-23072003></SPAN></FONT> </DIV>
<DIV><FONT face=Arial color=#0000ff size=2><SPAN
class=001505518-23072003></SPAN></FONT> </DIV>
<DIV><FONT face=Arial color=#0000ff size=2><SPAN class=001505518-23072003>Option
Compare Database<BR>Option Explicit<BR>Public MyInput As
String</SPAN></FONT></DIV>
<DIV><FONT face=Arial color=#0000ff size=2></FONT> </DIV>
<DIV><FONT face=Arial color=#0000ff size=2><SPAN class=001505518-23072003>Public
Function DonsInputBox(Optional Prompt As String, Optional Title As String) As
String 'I omitted xpos, ypos, help file and context for
simplicity<BR>DoCmd.OpenForm "frmInputBox", , , , , acDialog,
"Prompt|Title"<BR>If Nz(MyInput, "") <> "" Then DonsInputBox =
MyInput<BR>End Function</SPAN></FONT></DIV>
<DIV><FONT face=Arial color=#0000ff size=2><SPAN
class=001505518-23072003></SPAN></FONT> </DIV>
<DIV><FONT face=Arial color=#0000ff size=2><SPAN
class=001505518-23072003></SPAN></FONT> </DIV>
<DIV><FONT face=Arial color=#0000ff size=2><SPAN
class=001505518-23072003></SPAN></FONT> </DIV>
<DIV><FONT face=Arial color=#0000ff size=2><SPAN class=001505518-23072003>The
form would have the following code:</SPAN></FONT></DIV>
<DIV><FONT face=Arial color=#0000ff size=2><SPAN
class=001505518-23072003></SPAN></FONT> </DIV>
<DIV><FONT face=Arial color=#0000ff size=2><SPAN class=001505518-23072003>Option
Compare Database<BR>Option Explicit<BR>Private Sub
cmdCancel_Click()<BR> DoCmd.Close
acForm, Me.Name, acSavePrompt<BR>End Sub<BR>Private Sub cmdOK_Click()<BR>MyInput
= Me.txtinput<BR>Call cmdCancel_Click<BR>End Sub<BR>Private Sub
Form_KeyUp(KeyCode As Integer, Shift As Integer)<BR> If
KeyCode = 27 Then<BR> Call
cmdCancel_Click<BR> End If<BR>End Sub</SPAN></FONT></DIV>
<DIV><FONT face=Arial color=#0000ff size=2></FONT> </DIV>
<DIV><FONT face=Arial color=#0000ff size=2><SPAN
class=001505518-23072003>Private Sub Form_Load()<BR>Dim arrX As
Variant<BR> If Not IsNull(Me.OpenArgs) Then<BR> arrX =
Split(Me.OpenArgs, "|")<BR> Me.txtPrompt =
arrX(0)<BR> Me.Caption = arrX(1)<BR> End If<BR>End
Sub</SPAN></FONT></DIV>
<DIV><FONT face=Arial color=#0000ff size=2><SPAN
class=001505518-23072003></SPAN></FONT> </DIV>
<DIV><FONT face=Arial color=#0000ff size=2><SPAN
class=001505518-23072003></SPAN></FONT> </DIV>
<DIV><FONT face=Arial color=#0000ff size=2><SPAN
class=001505518-23072003>HTH</SPAN></FONT></DIV>
<DIV><FONT face=Arial color=#0000ff size=2><SPAN class=001505518-23072003>David
McAfee</SPAN></FONT></DIV>
<BLOCKQUOTE>
<DIV class=OutlookMessageHeader dir=ltr align=left><FONT face=Tahoma
size=2>-----Original Message-----<BR><B>From:</B>
accessd-bounces@databaseadvisors.com
[mailto:accessd-bounces@databaseadvisors.com]<B>On Behalf Of </B>Don
Elliker<BR><B>Sent:</B> Wednesday, July 23, 2003 9:40 AM<BR><B>To:</B>
accessd@databaseadvisors.com<BR><B>Subject:</B> [AccessD] creating an inputbox
form<BR><BR></FONT></DIV>
<DIV>
<DIV>
<P>Howdy,</P>
<P>I want to use my own form in place of the Inputbox. I am stuck on the part
where, after a user selection, I return the value selected. It's like this;
the user is on a form, makes a selection and up pops (my) inputbox. they pick
something and close it. How do I know what they picked?<BR>TIA,</P>
<P>_d</P></DIV><BR><BR><BR>"Things are only free to the extent that you don't
pay for them".-Don Elliker
<DIV></DIV>
<DIV></DIV>
<DIV></DIV>
<DIV></DIV>
<DIV></DIV></DIV><BR clear=all>
<HR>
MSN 8 helps <A href="http://g.msn.com/8HMRENUS/2743??PS=">ELIMINATE E-MAIL
VIRUSES. </A>Get 2 months FREE*. </BLOCKQUOTE></BODY></HTML>