[ Ερωτήματα ] Ερώτημα DLookup

[anestaki]

Καλημέρα σε όλους
Τι κανό λάθος στο ερώτημα και μου εμφανίζει error 2471

Private Sub nodeAdmin_Click()
Dim x As String
Dim s As String
If Me.nodeAdmin Then
x = Me.nodeParent
End If
s = DLookup("nodeText", "MenuNodes", "nodeKey=" & x)
End Sub

[kapetang]

Καλημέρα

Γιώργο, δοκίμασε τον κώδικα:

Private Sub nodeAdmin_Click()
    Dim x As String
    Dim s As Variant
    If Me.nodeAdmin Then
        x = Me.nodeParent
        s = DLookup("nodeText", "MenuNodes", "nodeKey='" & x & "'")
    End If
End Sub

Φιλικά/Γιώργος

[anestaki]

Καλημέρα Γιώργο
As Variant
Σε ευχαριστώ πολύ για την βοήθεια.

[kapetang]

Γιώργο, το βασικό λάθος είναι στον τύπο ορισμού της τιμής του s.

Πρόσεξε τα μονά εισαγωγικά (').

[anestaki]

Μια ακόμη ερώτηση πια η συμπεριφορά των εισαγωγικών “ ‘ “

[kapetang]

Επειδή ο τύπος δεδομένων του πεδίο [nodeKey] είναι Text (κείμενο), απαιτείται η τιμή που του αποδίδεται να περιέχεται σε μονά εισαγωγικά.

[anestaki]

Ευχαριστώ και πάλι.

[anestaki]

Στο παρακάτω ερώτημα το πεδίο Parastik είναι με πολλαπλή καταχώριση και ο κώδικας Dlookup μου εμφανίζει error

telsira = Nz(DLookup("sira", "Tblsira", "parastik=" & Me.EpilParast), "") 

[Meteora]

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

Δες ότι υπάρχει έλλειψη των μονών εισαγωγικών και ένα κόμμα -το τελευταίο- πλεονάζει στην πρότασή σου... Ο Γιώργος σε έδωσε τις απαραίτητες οδηγίες.

Κακή σχεδίαση να εντοπίσεις εγγραφή βάζοντας την Access να ψάξει ολάκερη πρόταση με περιεχόμενο μάλιστα το ερωτηματικό, που σε πολλές περιπτώσεις είναι δεσμευμένο στοιχείο.

Με εκτίμηση/ Νίκος

[kapetang]

Καλησπέρα

Γιώργο, το μήνυμα είναι ξεκάθαρο.

Στα κριτήρια της συνάρτησης DLookup δε μπορεί να συμμετέχουν πεδία πολλαπλών τιμών.

Θα πρέπει να ξεκαθαρίσεις τι ακριβώς αναζητάς και να βρεις άλλο τρόπο αναζήτησης.

Φιλικά/Γιώργος