Κώδικας DLookup με κριτήριο

[γιώργοςΚ]

Καλησπέρα,

Προσπαθώ να γράψω εναν κώδικα DLookup με κριτήριο AND αλλά δυστυχώς δεν κατάφερα να το κάνω να δουλεύει. Ο κώδικας βασικά πρέπει να ψάξει στον πίνακα Order εάν υπάρχει καταχωρημένος ο κωδικός του Supplier_id και εαν υπάρχει θέλω να μου δώσει μόνον οσα Order αφορούν τον κωδικο supplier_id που εχουν Status:4.

Το δεύτερο πρόβλημα είναι εφόοον τελικά γίνει το πιο πάνω, θα ήθελα να μου επιστρέψει τον κωδικό OrderID του πίνακα ORDERS που αντιστοιχει στα πιο πιο πάνω κριτήρια.

Private Sub txtOrder_Click()

Dim SubID As String
Dim OrderStatus As String
Dim OrderCode As String


If Me.Supplier_id = DLookup("Supplier_id", "ORDERS", "[Supplier_id]=" & Supplier_id AND DLookup("OrderStatus", ORDERS", "[OrderStatus]=" & 4) Then

MsgBox "Found the Supplier" & Me.Supplier_id
SubID = Me.Supplier_id
OrderCode=DLookup("OrderID", ORDERS", "[OrderStatus]=" & 4)

DoCmd.OpenForm "Orders", acNormal, , "OrderID=" & OrderCode

Else
MsgBox "Not Found the Supplier" & Me.Supplier_id

End If

End Sub