Input Box Cancel button

[balistikb]

How could I use the cancel button in an Input Box to cancle out of the form and close?

 

[vb5prgrmr]

Give this test prog a try, it may help you understand how to accomplish what you want
[tt]
Option Explicit

Private Sub Form_Load()
If InputBox("Your Prompt", "Your Title", "Your Default&quot = "" Then End
End Sub
[/tt]

Good Luck

 

[balistikb]

That is if I want to exit when they enter nothing right? If it is that will not work.

 

[vb5prgrmr]

Have you tried it? If user presses cancel button (How could I use the cancel button in an Input Box to cancle out of the form and close?) it will work. Go ahead and give it a try. If you are complaining that it ends the program then replace end with unload me, or if you are stating that they click on ok with a default there then just remove the default. Go ahead and give it a try, it may help you understand how to accomplish what you want

GOOD LUCK!

 

[object57]

If you want to UNLOAD the form, after the user cancels the InputBox, you have to do Unload Me or whatever you do to cancel the form. If you have code in a cancel button on your form, try this:

Private Sub Form_Load()
'......
TheValue = InputBox("Prompt", "Title", "Default&quot
If TheValue = "" Then
Call CancelButton_click
exit sub
End If

'do stuff with TheValue
End Sub
Hope that helps.

 

[balistikb]

Here is the code I put it in a few areas and I get an error. I think I am missing something. Where would you put it?


Public Sub WrongValue()

On Error GoTo ErrorHandler
ContinueHere:
prompt$ = "Please enter class number."

Do
SearchStr$ = InputBox(prompt$, "CLASS NUMBER&quot
datClassEval.Recordset.Index = "PrimaryKey"
datClassEval.Recordset.Seek "=", SearchStr$

Loop While datClassEval.Recordset.NoMatch

txtLocator.Text = datClassEval.Recordset![LocNumber]
txtName.Text = datClassEval.Recordset![CLASS_NAME]
txtTrainer.Text = datClassEval.Recordset![REGISTRAR_INSTRUCTOR]
txtDate.Text = datClassEval.Recordset![Date]
txtHours.Text = datClassEval.Recordset![CLASS_HOURS]
Exit Sub

ErrorHandler:
If Err.Number = 3421 Then
MsgBox "You have entered a class number that is not correct. Please re-enter a correct class number", vbCritical
Resume ContinueHere
Else
MsgBox Err.Number & ": " & Err.Description 'this Catches other errors
Resume ContinueHere
End If

End Sub

 

[vb5prgrmr]

Try this...
[tt]
Do
SearchStr$ = InputBox(prompt$, "CLASS NUMBER&quot
If Trim(SearchStr$) = "" Then Exit Sub
datClassEval.Recordset.Index = "PrimaryKey"
datClassEval.Recordset.Seek "=", SearchStr$
Loop While datClassEval.Recordset.NoMatch
[/tt]

good luck