Need More Visual Basic Help Please! (1 Viewer)

[Chuck C]

How do I program the OK and Cancel buttons when using the InputBox function? I keep returning an error:



right now all I have as code is

Dim strName As String

strName = InputBox("Enter StudentID", "Find StudentID")
With Adodc1.Recordset
.MoveFirst
.Find "StudentID Like '" & strName & "*'", 0, adSearchForward

my goal is to have an error message box upon clicking OK if the field is left blank and the cancel should cancel back to the form

any ideas?
thanks

 

[Wayne Bundrick]

If the user clicks Cancel, a zero-length string is returned.

strName = InputBox...
if len(strName) > 0 then
... (do your stuff)
end if

There doesn't seem to be a way to distinguish between clicking Cancel and clicking OK with a blank answer.

 

[Chuck C]

thanks for the reply wayne...

edited out...

 

[Chuck C]

edit:nevermind