Open a form to search for a record using a command button which prompts input box

[mrijet]

Are this the correct coding for if else statement for the input box?
Can help me?

Dim Search As String, Message As String
Search = "Find RF"
Message = InputBox(Prompt, "Search")
If Message <> RF_NO Then
MsgBox "Data not exist"
Else
DoCmd.OpenForm "Product_Requisition", acNormal, , "[RF_no] Like '" & Message & "*'"
MsgBox "Data exist"
End If

[twinnyfo]

mrijet,

It is unclear from your code what "RF_NO" is. It seems to be listed as a variable, but it is neither declared nor set anywhere to say what it is.

If it is a control on a Form, then your code will only check to see if the input value matches what is currently displayed on your form, but will not "find" any record for you.

All that aside, if you were to delete lines 4-6 and line 9, the command to open a form "should" work, assuming all field names are correct.

[mrijet]

Actually I choose to make a condition such as if I put the RF_no, they will find me the RF_no that exist for me..and if the RF_no did not exist it will show message box to me that show the data not exist...

So, did the coding I sent it was correct or not...or maybe you can help me? mrtwinnyfo

[twinnyfo]

Again,

You have to help us out here. Your code provided does not tell us anything about what is going on. Is the Form Bound? We still don't know if RF_No is a variable or a control on a form or an underlying field in a table (we assume from one of your other posts that it is a field name).

However, without this information, it is difficult to guide to a solution. Standing by to assist as necessary.....

[mrijet]

Dim lngID As String
 
lngID = InputBox("Enter RF No")
If lngID = "" Then
DoCmd.ClearMacroError
Else
DoCmd.OpenReport "Requisition_ReportComplete", acViewReport, , "[RF_no]=" & lngID
End If

As you see the code above is for searching specific data and it's actually can work without any error..

But if I add this coding....

Dim lngID As String
 
lngID = InputBox("Enter RF No")
If lngID = "" Then
DoCmd.ClearMacroError
 ElseIf lngID <> RF_no Then
MsgBox "Data not exist"
Else
DoCmd.OpenReport "Requisition_ReportComplete", acViewReport, , "[RF_no]=" & lngID
End If

And put none exist data it will not go the coding that I bold it...
Can help me?

mr twinnyfo

[twinnyfo]

Please answer the questions of Post #4 and I can guide you toward a solution.