Creating a Search form.

[TrulyVisceral]

Name: 1.png  Views: 22  Size: 8.6 KB  ID: 33544" class="thumbnail" style="float:CONFIG" />
I got this "skeleton" to work with.
There are text fields with search buttons, and combo boxes with limited options. A whole bunch of them, on top of a list. The list has 18 columns (maybe 17, but I need confirmation of something first).

I want to make it so when I select something from the combo boxes, or write something in the text fields and then click their respective search button, the list refreshes with data matching that which was searched.

I started investigating and got this:

Private Sub (ComboBoxName)_AfterUpdate()
    Me.(ListName).Requery
End Sub

But that doesn't quite work. It doesn't refresh the list.
As for the Text Boxes:

Private Sub (ButtonName)_GotFocus()
    On Error Resume Next
    If IsNull(TextBoxName) Then
        MsgBox "Error message here", vbCritical, "Error"
        Me.(TextBoxName) = Empty
        Me.Recalc
    Else
        Me.Recalc
    End If
        Me.Recalc
End Sub

Same thing, not working.

[orange]

See Allen Browne's search article

[TrulyVisceral]

See Allen Browne's search article

Well, alright, that'll work, thanks.

But the code I posted DOES work with a friend's DB, which is structured pretty much the same way (the search menu at least). So now am confuzzled.

[orange]

From post #1

Same thing, not working.

doesn't tell us much.
In post #3 " now am confuzzled."

Perhaps you could describe the requirement with some sample data.
If/when you do test and get errors/unexpected result, I suggest you give more detail --perhaps even post a copy of the database with enough info to highlight the problem and instructions to replicate the issue.
We really aren't interested in your database from an intellectual property perspective, just sufficient info to show the problem for the purpose of debugging/resolving/suggesting.....

[ssanfu]

About the code:
You have parentheses where they shouldn't be:

Private Sub (ComboBoxName)_AfterUpdate()
    Me.(ListName).Requery
End Sub

Private Sub (ButtonName)_GotFocus()   '<<-- GotFocus event??? Better would be the click event
    On Error Resume Next
    If IsNull(TextBoxName) Then  '<<-- I would use IsNull(Me.TextBoxName) since TextBoxName does not appear to be a variable
        MsgBox "Error message here", vbCritical, "Error"
        Me.(TextBoxName) = Empty
        Me.Recalc
    Else
        Me.Recalc
    End If
        Me.Recalc
End Sub

Maybe

Private Sub ComboBoxName_AfterUpdate()
    Me.ListName.Requery
End Sub

Private Sub ButtonName_Click()
    On Error Resume Next
    If NZ(Me.TextBoxName,"") = "" Then
        MsgBox "Error message here", vbCritical, "Error"
        Me.TextBoxName = Empty ' <<-- don't understand why this line is here. Me.TextBoxName is already NULL/Empty 
        Me.Recalc   ' <<-- not necessary because of the reclac after "END IF"
    Else
        Me.Recalc   ' <<-- not necessary because of the reclac after "END IF"
    End If

    Me.Recalc

End Sub

[TrulyVisceral]

I probably should have specified the parenthesis' were there just to emphasize the word. But alright.
Also, I was away for a while, sorry for the late response.

[TrulyVisceral]

From post #1 doesn't tell us much.
In post #3 " now am confuzzled."

Perhaps you could describe the requirement with some sample data.
If/when you do test and get errors/unexpected result, I suggest you give more detail --perhaps even post a copy of the database with enough info to highlight the problem and instructions to replicate the issue.
We really aren't interested in your database from an intellectual property perspective, just sufficient info to show the problem for the purpose of debugging/resolving/suggesting.....

Hello, I'm back. Had to go away for a bit, sorry for that.
Now, you wanted examples yes?
This is from my friend's DB:

And this is the code for the combo box:

Private Sub busq_incidete_por_AfterUpdate()
    Me.Lista69.Requery
End Sub

For the buttons:

Private Sub Btn_Buscar3_GotFocus()
    On Error Resume Next
    If IsNull(TxtBusqueda3) Then
        MsgBox "Ingrese un Dato a Buscar", vbCritical, "Error"
        Me.TxtBusqueda3 = Empty
        Me.Recalc
    Else
        Me.Recalc
    End If
        Me.Recalc
End Sub

The only difference between the different Combo Boxes's codes are their names, same for the buttons.
Also, when I said "It doesn't work", what I mean is it literally does nothing, not even an error.

EDIT: I JUST NOTICED SOMETHING.
Apparently, in my friend's DB, the Combo Box's data origin is a Query, while mine are typed manually. I mean, the values aren't going to change, so I didn't have the need for a query. Does that change this or what?