Access - Ερωτήσεις / Απαντήσεις Access + VBA... Εδώ δεν υπάρχουν όρια! |
| Εργαλεία Θεμάτων | Τρόποι εμφάνισης |
#1
| |||
| |||
Κώδικας 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 |
#2
| |||
| |||
Kαλησπέρα Γιώργο, Για δοκίμασε το παρακάτω: DLookup("Supplier_id", "ORDERS", "[Supplier_id]=" & Supplier_id & " AND [OrderStatus]= 4) " Αρκεί το Supplier_id να είναι μεταβλητή ή πεδίο. Ευχαριστώ. |
#3
| |||
| |||
Παράθεση:
δουλέυει ο κώδικας αλλά κτυπάει ότιαν δεν υπάρχει 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 |
#4
| |||
| |||
Εχω επιλύσει το πρόβλημα φίλοι μου με αρκετό κόπο και δουλειά και δουλεύει όπως το θέλω, σας ευχαριστώ. Για όσους μπορεί να αντιμετωπίσουνε κάτι παρόμοιο στο μέλλον, παραθέτω τον τροπο με τον οποίο έλυσα το πρόβλημα. Private Sub txtOrder_Click() Dim SubID As String Dim OrderStatus As String Dim OrderCode As String Dim conStr As String ' Check if the order exist If (DLookup("Supplier_id", "CONSUMABLE ORDERS", "[Supplier_id]=" & Supplier_id & " AND [OrderStatus]= 4")) Then conStr = 1 MsgBox "conStr" & conStr Else conStr = 0 MsgBox "conStr" & conStr End If If MsgBox("Would you like to order this product?", vbYesNo Or vbQuestion, "Order Product") = vbYes Then If conStr = 1 Then OrderCode = DLookup("Supplier_id", "CONSUMABLE ORDERS", "[Supplier_id]=" & Supplier_id & " AND [OrderStatus]= 4") If Me.txtOrder = "Order Now" Then Me.Grabb = True Me.Order = True 'Create the order 'DoCmd.SetWarnings False 'DoCmd.OpenQuery "qryAutoOrder" 'DoCmd.SetWarnings True 'DoCmd.SetWarnings False 'DoCmd.OpenQuery "qryAutoOrderDetails" 'DoCmd.SetWarnings True DoCmd.OpenForm "Orders", acNormal, , "OrderID =" & OrderCode Else If IsNull(Me.txtOrder) Or Me.txtOrder = "" Then MsgBox "The desired stock for this item is correct", vbCritical, "Order Fail" End If End If Else If conStr = 0 Then If Me.txtOrder = "Order Now" Then Me.Grabb = True Me.Order = True 'Create the order 'DoCmd.SetWarnings False 'DoCmd.OpenQuery "qryAutoOrder" 'DoCmd.SetWarnings True 'DoCmd.SetWarnings False 'DoCmd.OpenQuery "qryAutoOrderDetails" 'DoCmd.SetWarnings True DoCmd.OpenForm "Orders", acNormal, , "OrderID =" & OrderCode Else If IsNull(Me.txtOrder) Or Me.txtOrder = "" Then MsgBox "The desired stock for this item is correct", vbCritical, "Order Fail" End If End If End If End If Else DoCmd.CancelEvent End If End Sub Τελευταία επεξεργασία από το χρήστη γιώργοςΚ : 26-10-19 στις 07:13. |
« Προηγούμενο Θέμα
|
Επόμενο Θέμα »
Εργαλεία Θεμάτων | |
Τρόποι εμφάνισης | |
| |
Παρόμοια Θέματα | ||||
Θέμα | Δημιουργός | Forum | Απαντήσεις | Τελευταίο Μήνυμα |
[ Φόρμες ] συναρτηση Dlookup | d_sachlikidis | Access - Ερωτήσεις / Απαντήσεις | 4 | 14-09-19 10:57 |
[ Φόρμες ] Dlookup error | myly1400 | Access - Ερωτήσεις / Απαντήσεις | 11 | 20-04-18 22:57 |
Βοήθεια για dlookup | q.mrk | Access - Ερωτήσεις / Απαντήσεις | 11 | 24-01-17 20:42 |
dlookup με κριτήριο row | th3_b3st | Access - Ερωτήσεις / Απαντήσεις | 3 | 07-11-16 11:14 |
Dlookup προβλήματα | mikekal1oo | Access - Ερωτήσεις / Απαντήσεις | 28 | 14-03-16 11:11 |
Η ώρα είναι 22:00.