[γιώργοςΚ]

Αρχική Δημοσίευση από vraxnakisg

Kαλησπέρα Γιώργο,

Για δοκίμασε το παρακάτω:

DLookup("Supplier_id", "ORDERS", "[Supplier_id]=" & Supplier_id & " AND [OrderStatus]= 4) "

Αρκεί το Supplier_id να είναι μεταβλητή ή πεδίο.

Ευχαριστώ.

Καλησπέρα Γιώργο και ευχαριστώ,

δουλέυει ο κώδικας αλλά κτυπάει ότιαν δεν υπάρχει OrderID που να αντοιστηχεί σε αυτό που ζητάμε.

Private Sub txtOrder_Click()

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

OrderCode = DLookup("Supplier_id", "CONSUMABLE ORDERS", "[Supplier_id]=" & Supplier_id & " AND [OrderStatus]= 4")

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

MsgBox "Found the Supplier" & Me.Supplier_id
DoCmd.OpenForm "Orders", acNormal, , "OrderID =" & OrderCode

Else

MsgBox "Not Found the Supplier" & Me.Supplier_id

End If

End Sub