2. soru içinse tek arama butonu yeterli aslında arama kodunu aşağıdaki gibi düzenleyip dener misiniz?

On Error GoTo Err_searchbutton_Click

    Dim stDocName As String

    Dim stLinkCriteria As String

    stDocName = "vehicleplanform"

    stLinkCriteria = ""

    Me.FilterOn = False

  If Len(linesearchtxtbox & "") > 0 Then stLinkCriteria = "[line]=" & [linesearchtxtbox]

  If Len(modelsearchtxtbox & "") > 0 Then stLinkCriteria = stLinkCriteria & IIf(Len(stLinkCriteria & "") = 0, "", " and ") & "[model]=" & "'" & [modelsearchtxtbox] & "'"

    DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_searchbutton_Click:

    Exit Sub

Err_searchbutton_Click:

    MsgBox Err.Description

    Resume Exit_searchbutton_Click

bu koda ile hangi metin kutuları doluysa ona göre arama yapması gerek
Me.FilterOn = False bu kod 2 metin kutsu da boşsa tüm kayıtları gösterir
kodu aşağıdaki gibi de düzenleyebilirsiniz

    Dim stLinkCriteria As String



    stLinkCriteria = ""

  If Len(linesearchtxtbox & "") > 0 Then stLinkCriteria = "[line]=" & [linesearchtxtbox]

  If Len(modelsearchtxtbox & "") > 0 Then stLinkCriteria = stLinkCriteria & IIf(Len(stLinkCriteria & "") = 0, "", " and ") & "[model]=" & "'" & [modelsearchtxtbox] & "'"

    Me.Filter = stLinkCriteria

    Me.FilterOn = True

---

ufak 1 hatırlatma lütfen 1 konuda sadece 1 soru olsun
her soru için yeni konu açın.