Vælge data fra tabel ?

Bare en tanke...

Kan du ikke bruge OR ordreid = null

?

If ordrenr = "" Then
Set dbs = OpenDatabase("c:\arkiv.mdb")
Set rst = dbs.OpenRecordset("SELECT * FROM orders)
Else
Set dbs = OpenDatabase("c:\arkiv.mdb")
Set rst = dbs.OpenRecordset("SELECT * FROM orders WHERE orderid = " & ordrenr)
End If

//>Rune

grunden til at jeg skal lave det her, er at man skal have mulighed for at opstille diverse kriterier for det som udtrækkes, fx hvilket år og måned varen blev bestilt osv....der er ca 5 forskellige kriterier som man skal udfylde, og hvis man skal skrive alle kombinationsmuligheder ned, ville det fylde rigtig meget

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

'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 lstMovies.Text = rs!Title Then
            txtMovieTitle.Text = rs!Title
            txtMovieGenre.Text = rs!genre
            txtMovieCDName.Text = rs!cdname
            txtMovieCDNumber.Text = rs!cdnr
            txtMovieOwner.Text = rs!Owner
            txtMovieBorowed.Text = rs!borowed
            txtMovieFileType.Text = rs!filetype
            txtMovieInfo.Text = rs!info
        Exit Sub
        Else: rs.MoveNext
        End If
    Loop
End If
End Sub

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

ups omvendt rækkefølge.....
Det er en simpel søge funktion sóm tager det valgte og smider ind i en listbox, og den øverste (som skulle være nederst) er så hvad der sker når man trykker på listboxen......

/Tubber

du kan jo lave en IF kriterie1 AND kriterie2 AND kriterie3 AND kriterie4 AND kriterie5 Then
KODE
ElseIf:
KODE
End If

ok, jeg fik det til at virke med en masse if-sætninger

Thx 4 Poinz

//>Rune