How can I create a customized InputBox?? 3

dirkg · May 20, 2000

how can I create a function like InputBox but then with a customized form? In other words I want to open a form from code, make the code wait until the user closes the form and then take the value from a filled in control on that form? If I would use for example a form with a Calendar on it to retrieve a a date frome the user, the line would look like this dteDate = CustomDateForm() and CustomDateForm would be something like Function CustomDateForm() as Date docmd.openform ("frmDateForm&quot

=> HERE THE CODE HAS TO WAIT!! HOW????? CustomDateForm = frmDateForm!txtDate => I have to get the value of the textbox on the form back into the code when the frmDateForm is closed => HOW??? end Function Thank you very much in advance for your help! Greetings, Dirk <A HREF="mailto:dirk.news@yucom.be">dirk.news@yucom.be</A>

LarryDeLaruelle · May 20, 2000

Hey Dirk: I'm still fairly new at this so I may not be seeing the problem correctly. However, if the data you are requesting from the user is simple (one element) I think you could use an InputBox function.  Check it out in help. Hope this helps. Larry De Laruelle <a href=mailto:larry1de@yahoo.com>larry1de@yahoo.com</a> <a href= > </a>

dirkg · May 20, 2000

Hi Larry, thanks for your reply. However, I know the InputBox-function and that doesn't help me very much. The data I would like to request from the user are indeed a bit more complicated so that the InputBox-function doesn't help me to solve the problem. Greetings, Dirk <A HREF="mailto:dirk.news@yucom.be">dirk.news@yucom.be</A>

DougP · May 20, 2000

I'm not sure the steps involved in your situation. But if your form is closed and you need a value from it then put that value in a Global variable. Click On the "modules" TAB and below the Option Explict and any other code put the following. Global CurrentDate1 ' This could be any name Then close the module and save it. I just leave it as default name "Module1". Now in your forms Unload event (Note you have to capture the value before you close the form) put this. ------------------ Private Sub Form_Unload(Cancel As Integer)     CurrentDate1 = Me!txtDate End Sub ----------------------------------------- So Now you have a variable called "CurrentDate1" that has the date in it and can be used anywhere. It's "Global" to the whole database. Closed form or opened it alway's there. OK DougP <a href=mailto: dposton@universal1.com> dposton@universal1.com</a> <a href= > </a> Ask me how Bar-codes can help you be more productive.

dirkg · May 21, 2000

It seems that I also have a problem in explaining clearly my own problem ;-) OK, I'll give it another try: if you use the function InputBox to retrieve data from the user it happens like this: eg.: dim dteDate as String ... => code ...     dteDate = InputBox ("Please fill out the date:&quot

=> the Inputbox pops up, and the code waits until the user clicks on the OK-button of the inputbox. Then the date is retrieved from the value the user has typed in the InputBox and the code continues running. Now I can indeed asign the value on a form to a global variable but that doesn't help me: I can use the openform-method to open the form but how can I have the code wait until the user has closed the form again???? Thanks again for your help! Greetings, Dirk <A HREF="mailto:dirk.news@yucom.be">dirk.news@yucom.be</A>

CharlesDFW · May 21, 2000

Dirk. This is fairly easy to do and it involves the difference between loaded forms and visible forms. Assume the form you want to use to get the date is called "GetMyDate". The control that contains the date is called "Datebox" On your calling form, put a command button. Called "Set Date", maybe. For the button's click event, put: Private Sub SetDate_Click()    Dim SelectedDate as date    DoCmd.OpenForm "GetMyDate", acNormal, , , , acDialog         If IsNull(Forms!GetMyDate.Datebox) Then Exit Sub         SelectedDate=Forms!GetMyDate!Datebox         DoCmd.Close acForm, "GetMyDate"         ' Do whatever you need to do with SelectedDate here End Sub Now on your form "GetMyDate", inactivate the close box so the user can only close the form by clicking a command button. Then create an "OK" button on that form, and put for its click event: Me.Visible=false You'll probably want to include some code to handle what happens if the user puts in something not in a date format or leaves it blank. In the code above, leaving the date blank simply exits the sub without setting selected date. When you open the form, because it's in dialog mode, nothing can happen until it's gone from the screen. By setting its visibility to false, you're letting the user escape back to the original form, but the date form is still open, and the value of its controls are still accessible. Once you've gotten the value, either close it, or keep it open and invisible for faster loading if you use it often. You could also make SelectedDate a Private variable for the calling form and have more flexibility with what you will do with it. Charles

dirkg · May 21, 2000

Hi Charles, the "Visible"-tip is indeed usefull, I didn't think about it that way, so thanks. However :-( this doesn't solve my problem: it works fine that way when you call the GetMyDate-form from another form which is what I would call something static. However I would like to call the form from something dynamic i.e. running code. Even when I open the form in modal status the code doesn't stop from running...:-( Greetings, Dirk

samara · May 21, 2000

dirkg, i've faced this problem b4, so i think you have to make the following edit to your function... Function CustomDateForm() as Date ' this will ensure that nothing happen until the user closes th frmDateForm docmd.openform ("frmDateForm&quot

,,,,, acDialog CustomDateForm = globalDate your code ...... end function just something left, you have to assign the value you want to get from "frmDateForm" to a public variable let's say "globalDate" when the user closes frmDateForm. private sub frmDateForm_Unload()  globalDate = me.text2   " the text box that holds the value you want" end sub for sure you have to declare that public variable in moudle tab, just as DougP said. I hope that would help you,,, Mohamed Aly <a href=mailto:samara_79@hotmail.com>samara_79@hotmail.com</a> <a href= > </a>

dirkg · May 22, 2000

yep, the acDialog was the key to the solution...so simple and yet it has taken me so long...THANKS FOR YOUR HELP!! Greetings, Dirk

Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

How can I create a customized InputBox?? 3

dirkg

Technical User

LarryDeLaruelle

Technical User

dirkg

Technical User

DougP

MIS

dirkg

Technical User

CharlesDFW

Programmer

dirkg

Technical User

samara

Programmer

dirkg

Technical User

Similar threads

Part and Inventory Search

Sponsor