Αδέσμευτο πλαίσιο κειμένου να ενημερώνει πεδίο
 

Καλησπέρα σε όλο το FORUM
Για πολλοστή φορά ζητάω τη βοήθεια σας

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

Κώστα καλό σου βράδυ,

Στο πεδίο 'ΚΕΙΜΕΝΟ', της φόρμας, στο συμβάν After Update βάλε αυτόν τον κώδικα

Dim db As Database
Dim rst As DAO.Recordset
Dim sql As String
Dim rscnt As Integer

sql = "SELECT [ΑΠΟΘΗΚΗ].[DATEOUT]" & _
" FROM ΠΕΛΑΤΕΣ INNER JOIN ΑΠΟΘΗΚΗ " & _
" ON [ΠΕΛΑΤΕΣ].ΚΩΔ_ΠΕΛ] = [ΑΠΟΘΗΚΗ].[ΚΩΔ_ΠΕΛ] " & _
" WHERE [ΑΠΟΘΗΚΗ].[DATEOUT] IS NULL"
Set db = CurrentDb
Set rst = db.OpenRecordset(sql, dbOpenDynaset)
rscnt = rst.RecordCount

If rscnt = 0 Then
rst.Close
Set rst = Nothing
Set db = Nothing
Exit Sub
Else
Do
rst.Edit
rst![DATEOUT] = [Forms]![DATEOUT]![KEIMENO]
rst.Update
rst.MoveNext
Loop Until rst.EOF
End If
rst.Close
Set rst = Nothing
Set db = Nothing
me.refresh

Καλησπέρα σε όλους!

Εναλλακτικά, μπορούμε να χρησιμοποιήσουμε σε συμβάν "με το κλικ" ενός κουμπιού το παρακάτω:

όπου Me.MyDate = το πεδίο "ΚΕΙΜΕΝΟ".

Φιλικά

Τάσος

Τάσο ευχαριστώ πολύ
στη a) περίπτωση μου κτυπάει με σφάλμα στην έκφραση του ερωτήματος [ΠΕΛΑΤΕΣ].ΚΩΔ_ΠΕΛ] = [ΑΠΟΘΗΚΗ].[ΚΩΔ_ΠΕΛ] " & _λείπει μια [ και δουλεύει
στη b) δουλεύει άψογα
ευχαριστώ ευχαριστώ ευχαριστώ

Τάσο μήπως μπορεί να γίνει
Έχω ένα πρόβλημα επειδή τη forma την έχω δευτερεύουσα και δεν το ανάφερα νομίζοντας ότι θα δούλευε
μπορεί να ενημερώνει μονο το DATEOUT του συγκεκριμένου ΚΩΔ_ΠΕΛ έτσι πηγαίνει και γεμίζει όλο το υπόλοιπο DATEOUT

Καλησπέρα
Κώστα σου πρόσθεσα επί πλέον ένα σύνθετο πλαίσιο από όπου επιλέγεις το όνομα και με το update του Τάσου ελπίζω να έγινε..

Θανάση σε ευχαριστώ δουλεύει και μου κάνει
λύθηκε και το πρόβλημα με το προηγούμενο POST
Διπλές εγγραφές σε Ερώτημα και Έκθεση
ευχαριστώ εσένα και τον Τάσο