Zoeken in meerdere velden op een formulier.

[RadboudAKF]

Goedemorgen,

Ik heb een formulier gemaakt die in een tabel zoekt met rond de 100.000 records. Ik laat in meerdere velden zoeken. De code daarvoor zet ik hieronder. Het werkt prima maar ...de vraag is: als de records waarnaar ik zoek zijn gevonden dan opent zich óók nog het "zoeken en vervangen -dialoog-venstertje" . (en dat wil ik niet)

Ik kan niet vinden waarom dat wordt geopend... ziet iemand het wel? Ik wil dat het formulier wordt geopend met het resultaat zonder dat het dialoogvenster zich opent. Wie kan helpen?
--------------------------------------------------------------------------------------------------
Private Sub Knop58_Click()
On Error GoTo Err_Knop58_Click

Dim strSearch As String

strSearch = InputBox$("Zoek efficiënter óf met z-indexnr, Stofnaam, (deel)van de artikelnaam, merknaam of ATC-code, of met het z-indexnummer)", "Doorzoek g-standaard")

Dim strSearchArr() As String, strWhere As String, strFields As String

strFields = "[TXATNM]&[Stofnaam]&[TXATNR]&[Etiketnaam]&[Merkstamnaam]&[ATC]"
strSearchArr = Split(strSearch, " ")
For n = 0 To UBound(strSearchArr)
If Len(strWhere) > 0 Then strWhere = strWhere & " AND "
strWhere = strWhere & strFields & " like '*" & strSearchArr(n) & "*'"

Next

If Not IsNull(strSearch) Then
If Len(strSearch) > 0 Then

strFilter = "Select * from querfaq where " & strWhere ' Like '*" & strSearch & "*';"

DoCmd.OpenForm "g-standaard raadplegen", acNormal, strFilter, , acWindowNormal

End If
End If

Screen.PreviousControl.SetFocus
DoCmd.RunCommand acCmdFind

Exit_Knop58_Click:
Exit Sub

Err_Knop58_Click:
MsgBox Err.Description
Resume Exit_Knop58_Click

End Sub



Met vr.gr.

Jan, Radboudumc

 

[RadboudAKF]

Excuses...ik heb dit al opgelost....stom stom stom.

Groet,

Jan Radboudumc Nijmegen