[ασχετος]

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

Στο πεδίο 'ΚΕΙΜΕΝΟ', της φόρμας, στο συμβάν 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