InputBox

[kokopeli]

I am lost on this. I need to add what is added in an InputBox to a textbox on a form and to a field in a database. I want to have OK and Cancel. How can I check for Cancel and get the value?

Dim iResponse As Integer
iResponse = InputBox "Add Note"
If iResponse = 1 Then 'user hit Ok
      'this will check for the cancel but how do I get 
      'the data entered
Dim strNote As String
strNote = InputBox("Enter Note for"  & ListView1.SelectedItem, "Add Note")
     'this get the data but not the Cancel
     'How do I do this?

[crptcblade]

if (strNote <> "") then
'whatever
end if

Dim iResponse As Integer
iResponse = InputBox "Add Note"
If iResponse = 1 Then 'user hit Ok
      'this will check for the cancel but how do I get 
      'the data entered
Dim strNote As String
strNote = InputBox("Enter Note for"  & ListView1.SelectedItem, "Add Note")
If strNote = "" Then Msgbox "Nothing entered!", vbCritical
'....

[kokopeli]

I may have made my question a little confusing. I only want one InputBox to show up. I need to know if I can check the button and get the string. If not I can work around it. I just wanted to check the cancel button in case the user entered something then changed thier mind.

[crptcblade]

if the user hits cancel, the string will be empty, so mine, or Matthew's code will work.

I see what you want.

x = InputBox("How are you today?")
If x <> "" Then
Msgbox "Response: " & x
Else
Msgbox "Not having a good day?"
End If

[HeSaidJoe]

this is all you need.
Dim strNote As String
strNote = InputBox("Enter Note for" & ListView1.SelectedItem, "Add Note")

If strNote = "" Then
MsgBox "You either picked nothing or pressed cancel"
Exit Sub
End If