Søgning i Access

En søgefunction jeg har lavet til noget andet end dit, men den skal bare tilpasses :O))

Private Sub cmdMoviesSrc_Click()
If txtSearchMovies.Text = "" Then
    MsgBox "Search field empty", vbCritical, "Warning"
ElseIf txtSearchMovies.Text <> "" Then
    txtMovieTitle.Text = ""
    txtMovieGenre.Text = ""
    txtMovieCDName.Text = ""
    txtMovieCDNumber.Text = ""
    txtMovieOwner.Text = ""
    txtMovieBorowed.Text = ""
    txtMovieFileType.Text = ""
    txtMovieInfo.Text = ""
    Set ws = Workspaces(0)
    Set db = ws.OpenDatabase(App.Path & "\CDDatabase.mdb")
    Set rs = db.OpenRecordset("SELECT * FROM movies where " & comboMovieBy.Text & " = '" & txtSearchMovies.Text & "'")
    lstMovies.Clear
    If Not rs.EOF Then
        rs.MoveFirst
        Do While Not rs.EOF
            lstMovies.AddItem rs!Title
            rs.MoveNext
        Loop
    End If
End If
End Sub

Hov skulle være et svar.....

Du kan bare fjerne de tekstfelter der bliver tømt, den adder det til en listbox....

Skal du også bruge koden til når man så klikker på listboxen ?

/Tubber

Hvem andre end Tubber :)

Ja tak bare smid den også....

Det bliver lige _lidt_ senere jeg får det tjekket eller i weekenden, men endelig smid noget kode efter mig :)

Private Sub lstGames_Click()

'Connects to the database

Set ws = Workspaces(0)
Set db = ws.OpenDatabase(App.Path & "\CDDatabase.mdb")
Set rs = db.OpenRecordset("SELECT * FROM games")

'Moves to the firts recordset

If Not rs.EOF Then
    rs.MoveFirst
   
'Loop that makes the program go throug the database
   
    Do While Not rs.EOF

        'When the record is found the textfelts is filled
       
        If lstGames.Text = rs!Title Then
            txtGamesTitle.Text = rs!Title
            txtGamesGenre.Text = rs!genre
            txtGamesPlatform.Text = rs!Platform
            txtGamesCDName.Text = rs!cdname
            txtGamesCDNumber.Text = rs!cdnr
            txtGamesOwner.Text = rs!Owner
            txtGamesBorowed.Text = rs!borowed
            txtGamesFileType.Text = rs!filetype
        Exit Sub
        Else: rs.MoveNext
        End If
    Loop
End If
End Sub

Alle de steder der står games, skal der stå movies eller også omvendt, har vist kommet til at tage fra 2 forskellige frames....

Skal det bare ligge på en knap f.eks ?

Denne her : txtSearchMovies.Text skal vel defineres et eller andet sted ?

Den øverste er en knap og den nederste er når man trykker på en listbox.

Den der txtSearchMovies.Text er en textbox der hedder sådan