Forum

Αναζήτηση στο ms-office.gr

Πάμε!
ms-office.gr > Forum > Microsoft Access > Access - Ερωτήσεις / Απαντήσεις > Κώδικας DLookup με κριτήριο

Access - Ερωτήσεις / Απαντήσεις Access + VBA... Εδώ δεν υπάρχουν όρια!

Απάντηση στο θέμα

 

Εργαλεία Θεμάτων Τρόποι εμφάνισης
  #1  
Παλιά 25-10-19, 19:30
Όνομα: Γιώργος
Έκδοση λογισμικού Office: Ms-Office 2007, Ms-Office 2013
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 02-04-2013
Περιοχή: Κύπρος
Μηνύματα: 671
Προεπιλογή Κώδικας 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
__________________
Γιώργος Στυλιανού

gs.pocketpc@gmail.com
Απάντηση με παράθεση
  #2  
Παλιά 25-10-19, 22:14
Όνομα: ΓΙΩΡΓΟΣ
Έκδοση λογισμικού Office: Ms-Office 2010, Ms-Office 2013
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 14-01-2014
Μηνύματα: 154
Προεπιλογή

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

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

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

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

Ευχαριστώ.
__________________
Βραχνάκης Γιώργος
vrahnakisg@gmail.com
Απάντηση με παράθεση
  #3  
Παλιά 25-10-19, 22:45
Όνομα: Γιώργος
Έκδοση λογισμικού Office: Ms-Office 2007, Ms-Office 2013
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 02-04-2013
Περιοχή: Κύπρος
Μηνύματα: 671
Προεπιλογή

Παράθεση:
Αρχική Δημοσίευση από 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
__________________
Γιώργος Στυλιανού

gs.pocketpc@gmail.com
Απάντηση με παράθεση
  #4  
Παλιά 26-10-19, 00:10
Όνομα: Γιώργος
Έκδοση λογισμικού Office: Ms-Office 2007, Ms-Office 2013
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 02-04-2013
Περιοχή: Κύπρος
Μηνύματα: 671
Προεπιλογή

Εχω επιλύσει το πρόβλημα φίλοι μου με αρκετό κόπο και δουλειά και δουλεύει όπως το θέλω, σας ευχαριστώ.
Για όσους μπορεί να αντιμετωπίσουνε κάτι παρόμοιο στο μέλλον, παραθέτω τον τροπο με τον οποίο έλυσα το πρόβλημα.

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
__________________
Γιώργος Στυλιανού

gs.pocketpc@gmail.com

Τελευταία επεξεργασία από το χρήστη γιώργοςΚ : 26-10-19 στις 08:13.
Απάντηση με παράθεση
Απάντηση στο θέμα

Εργαλεία Θεμάτων
Τρόποι εμφάνισης

Δικαιώματα - Επιλογές
Δε μπορείτε να δημοσιεύσετε νέα μηνύματα
Δε μπορείτε να δημοσιεύσετε απαντήσεις
Δεν μπορείτε να επισυνάψετε αρχεία
Δεν μπορείτε να επεξεργαστείτε τα μηνύματα σας

Ο κώδικας ΒΒ είναι σε λειτουργία
Τα Smilies είναι σε λειτουργία
Ο κώδικας [IMG] είναι σε λειτουργία
Ο κώδικας HTML είναι εκτός λειτουργίας
Trackbacks are εκτός λειτουργίας
Pingbacks are εκτός λειτουργίας
Refbacks are εκτός λειτουργίας


Παρόμοια Θέματα

Θέμα Δημιουργός Forum Απαντήσεις Τελευταίο Μήνυμα
[ Φόρμες ] συναρτηση Dlookup d_sachlikidis Access - Ερωτήσεις / Απαντήσεις 4 14-09-19 11:57
[ Φόρμες ] Dlookup error myly1400 Access - Ερωτήσεις / Απαντήσεις 11 20-04-18 23:57
Βοήθεια για dlookup q.mrk Access - Ερωτήσεις / Απαντήσεις 11 24-01-17 21:42
dlookup με κριτήριο row th3_b3st Access - Ερωτήσεις / Απαντήσεις 3 07-11-16 12:14
Dlookup προβλήματα mikekal1oo Access - Ερωτήσεις / Απαντήσεις 28 14-03-16 12:11


Η ώρα είναι 18:26.