[Tasos]

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

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

Private Sub cmdSetDates_Click()
    If IsDate(Me.MyDate) Then
        CurrentDb.Execute "UPDATE [ΠΕΛΑΤΕΣ] INNER JOIN [ΑΠΟΘΗΚΗ] " & _
                "ON [ΠΕΛΑΤΕΣ].[ΚΩΔ_ΠΕΛ] = [ΑΠΟΘΗΚΗ].[ΚΩΔ_ΠΕΛ] SET [ΑΠΟΘΗΚΗ].[DATEOUT] = " _
                & CDbl(Me.MyDate) & " WHERE Not IsDate([ΑΠΟΘΗΚΗ].[DATEOUT])"
        Me.Refresh
    End If
End Sub

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

Φιλικά

Τάσος