Forum - Ενημέρωση Πεδίου από άλλο με δυνατότητα καταχώρησης νέας τιμής

Forum (https://www.ms-office.gr/forum/)

- Access - Ερωτήσεις / Απαντήσεις (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/)

- - Ενημέρωση Πεδίου από άλλο με δυνατότητα καταχώρησης νέας τιμής (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/1720-enimerosi-pedioy-apo-allo-me-dynatotita-kataxorisis-neas-timis.html)

Ενημέρωση Πεδίου από άλλο με δυνατότητα καταχώρησης νέας τιμής

Καλησπέρα στην Κοινότητα.
Ζητώ την βοήθειά σας σε κάτι που δεν καταφέρνω.

Στο πίνακα tbl2 και στο πεδίο Who αφού επιλέξω ΘΕΛΩ στο πεδίο Is να "τραβάει" την τιμή του πεδίου F2 απ' τον πίνακα tbl1 για το αντίστοιχο όνομα. Έτσι θα έχω ΚΑΙ την δυνατότητα να καταχωρώ Διαφορετική τιμή αν θέλω.

Καλημέρα

Νομίζω αυτό θες :

Κώδικας:

Private Sub Who_AfterUpdate()

Me.Is = DLookup("[F2]", "tbl1", "[F1]='" & Me.Who.Column(1) & "'")

End Sub

Φιλικά
Νικόλας

Ναι, σ' ευχαριστώ πολύ.

Γιατί η παρακάτω έκφραση δεν δουλεύει;
Me.Is = DLookup("[F2]", "tbl1", "[F1]=" & [Who])

Καλησπέρα

Το comboBox Who το έχεις να περιέχει δύο στήλες ( Η πρώτη αντιστοιχεί στα ID και η δεύτερη σε ονόματα). Η πρώτη έχει μηδενικό μήκος και δεν την βλέπεις. Για να "πιάσεις" τα ονόματα 'Νίκος' και 'Χρήστος', τα οποία ανήκουν στην 2η στήλη, πρέπει να γράψεις Who.column(1).
Η πρώτη στήλη είναι Who.column(0) ή απλά Who.
Η γραφή "[F1]=" & [Who] πάει να πιάσει την πρώτη στήλη που περιέχει αριθμούς! Έχεις και εδώ -μάλλον- λάθος διότι το Who δεν είναι πεδίο, οπότε οι αγκύλες αν δεν είναι άχρηστες, θα έχεις πρόβλημα εκτέλεσης.
Η δεύτερη στήλη είναι string και αυτό δικαιολογεί τον ιδιαίτερο τρόπο γραφής.

Καλή συνέχεια

Νίκος Δ.

Ήσουν κατατοπιστικός, σ' ευχαριστώ.