how to create search function in report wizard to search the data

[mrijet]

This is the code for search button in form...

Dim lngID As String 
If IsNull(Me.txtsearch) Then
MsgBox "Please fill in RF No"
ElseIf DCount("*", "QueryPane") = 0 Then
MsgBox "Sorry, there is no such record"
Me.txtsearch = ""
Me.txtsearch.SetFocus
Else
lngID = Me.txtsearch
DoCmd.OpenForm "Product_Requisition", acNormal, , "[RF_no]=" & lngID
DoCmd.ClearMacroError
End If

and it can be use

But the same coding use for my report wizard..

Dim lngID As String 
If IsNull(Me.txtsearch) Then
MsgBox "Please fill in RF No"
ElseIf DCount("*", "QueryPane") = 0 Then
MsgBox "Sorry, there is no such record"
Me.txtsearch = ""
Me.txtsearch.SetFocus
Else
lngID = Me.txtsearch
DoCmd.OpenReport "Product_Requisition", acViewPreview, , "[RF_no]=" & lngID
DoCmd.ClearMacroError
End If

It cannot be use...

[twinnyfo]

First, in lines 10 of both blocks of code, you are trying to open a Form called "Product_Requisition" and an Report called "Product_Requisition". You cannot have both a Form and a Report by the same name in one project.

So, aside from knowing what you mean by "It cannot be use", and without knowing any error messages that you are receiving or knowing exactly what is not working, it is difficult to provide any specific solution at this time.

If you can provide some additional information we will be glad to help.

[Brilstern]

mrijet,

#1 A good practice to avoid naming conflicts in Database items is to add a precursor to item names.

Personally I use this format:

frmName, Forms (where Name is the Form Name)
rptName, Reports
qryName, Queries
tblName, Tables
mdlName, Modules
mcrName, Macro (although I rarely use Macros...)

#2
The Where statement "[RF_no]=" & lngID should be "[RF_no] = " & lngID (notice the spaces). That is just a formatting issue.

As far as why it isn't searching correctly. Are you receiving an error message? some clarification is needed to properly help you.

One thought is the difference between your form and report. Do they have the exact same data? Are the fields the same?

Code with suggested changes:

Dim lngID As String 
 
  If IsNull(Me.txtsearch) Then
 
    MsgBox "Please fill in RF No",vbOkOnly
 
  ElseIf DCount("*", "QueryPane") = 0 Then
 
    MsgBox "Sorry, there is no such record",vbOkOnlly
    Me.txtsearch = ""
    Me.txtsearch.SetFocus
 
  Else
 
    lngID = Me.txtsearch
    DoCmd.OpenReport "Product_Requisition", acViewPreview, , "[RF_no] = " & lngID
    DoCmd.ClearMacroError
 
  End If

[mrijet]

thanks for guiding me for the item names..and sorry for reply late...it seem doesn't have any error message but...

If I put the RF_no in the text box that have the data it will give go to this condition

ElseIf DCount("*", "QueryPane") = 0 Then
 
    MsgBox "Sorry, there is no such record",vbOkOnlly
    Me.txtsearch = ""
    Me.txtsearch.SetFocus

The data that I searching is actually got..but it seems not go to find the data...

[twinnyfo]

We can only assume that your query QueryPane is searching correctly for the RF_No. How is QueryPane searching for this value? Could you post the SQL statement, as this may be at the heart of your searching problems?