Hi all, how can i include two dcount criteria in my search button on my form? Currently i am able to search the PO number, buy i would like to be able to search by the MR Name as well. How can i do that?
Below is my VBA code:
Below is my VBA code:
Code:
Private Sub txtSearch_Click()
Dim sql As String
If DCount("*", "MainTable", "mxdpo like '*" & Me.txtKeywords & "*'") = 0 Or DCount("*", "MainTable", "mrname like '*" & Me.txtKeywords & "*'") = 0 Then
MsgBox "No record found,check your MXDPO again!"
Else
sql = "SELECT [MainTable].[Fabrication], MainTablee.Mill, MainTable.Width, MainTable.FinishedGoods, MainTable.Colour, MainTable.LabDipCode, MainTable.GrossWeight, MainTable.NettWeight, MainTable.Lbs, MainTable.Loss, MainTable.Yds, MainTable.Remarks, MainTable.POType, MainTable.ComboName, MainTable.GroundColour, MainTable.GLGPO, MainTable.FabricDelivery, MainTable.MXDPO, MainTable.MRName, MainTable.GLA, MainTable.StyleNo,MainTable.GarmentSketch, MainTable.GSMPerSqYd, MainTable.SampleRequirement, MainTable.PrintedRemarks, MainTable.Buyer, MaximMainTable.[Solid/Printing],MainTable.Reference,MainTable.GarmentDelDate,
MainTable.GarmentSketch2,MainTable.GarmentSketch3, MainTable.GarmentSketch4, MainTable.GarmentSketch5" _
& " FROM MainTable " _
& " WHERE MXDPO LIKE '*" & Me.txtKeywords & "*'" _
& " OR WHERE MRName LIKE '*" & Me.txtKeywords & "*'"
Me.FormMxdSub.Form.RecordSource = sql
Me.FormMxdSub.Form.Requery
End If
End Sub