Fritextsøgning i access

Du laver et tekst felt, som hedder Criteria.
Og så laver du en knap, som hedder Find. Til den knap laver du så følgende :


Private Sub Find_Click()
On Error GoTo Err_Find_Click

    Dim rst As DAO.Recordset
    Dim strSearchName As String

    If IsNull(Me![Criteria]) Or (Me![Criteria] = \"\") Then
        Beep
        Me![Criteria].SetFocus
    Else
        Set rst = Me.RecordsetClone
        strSearchName = Me!Criteria

            rst.FindFirst \"[Kolonne1] like \'*\" & strSearchName & \"*\'\"
            If rst.NoMatch Then
                rst.FindFirst \"[Kolonne2] like \'*\" & strSearchName & \"*\'\"
                If rst.NoMatch Then
                    rst.FindFirst \"[Kolonne3] like \'*\" & strSearchName & \"*\'\"
                    If rst.NoMatch Then
                        rst.FindFirst \"[Kolonne4] like \'*\" & strSearchName & \"*\'\"
                        If rst.NoMatch Then
                            Beep
                        End If
                    End If
                End If
            End If
        End If
        If Not rst.NoMatch Then Me.Bookmark = rst.Bookmark
        rst.Close
    End If
   
Exit_Find_Click:
    Exit Sub

Err_Find_Click:
    MsgBox Err.Description
    Resume Exit_Find_Click
   
End Sub

Den er hurtig og den er nem at udbygge :-)

Hej Moses det virker fint, og det er meget hurtigt,men kan man også få koden til at sætte focus på på kontrolelementet i formularen, når søgningen er gennemført lidt ala den kode der sætter focus på feltet criteria hvis dette er tomt.Ydermere kan der fikses en find næste funktion, gerne på samme knap.

*SSS* andersjensen

Hej Moses

Jeg har nu fået alt til at virke perfekt, der er ydermere bygget nogle flere funktioner på din kode det bare super. Mange tak for hjælpen det var alle 100 point værd.


*SSSS* andersjensen

Selvtak !

moses>>

Jeg står også og skal bruge noget lignende, men kan ikke rigtigt få det til at virke!! Kan du hjælpe mig for 100 point selvfølgelig?

Fomse:-)

Ja - så skal jeg lige vide, hvad jeg skal hjælpe med. Det ville nok være mest fair, hvis du bare oprettede endnu et spørgsmål. Så må vi jo se, om jeg kommer først.
Hvis ikke, så får du jo dit svar alligevel - bare ikke af mig.

Okay jeg opretter et spørgsmål.
Forresten så har jeg også sendt deg en mail.

Fomse:-)