[Tasos]

Στο AfterUpdate του στοιχείου 'need_call' πέρασε το παρακάτω:

Private Sub need_call_AfterUpdate()
Dim strSQL As String
strSQL = "UPDATE Periexomena_Paraggelias SET Periexomena_Paraggelias.need_call = " & _
Nz(Me.need_call) & " WHERE [code] =" & Nz(Me.code)
CurrentDb.Execute strSQL
Me.Add_Periexomena_Paraggelias_deyt.Form.Refresh
End Sub

Μπορείς ακόμα να μεταφέρεις το παραπάνω στοιχείο στην υποφόρμα στη θέση της ετικέτας 'Θέλει Υπενθύμιση' (στην κεφαλίδα της υποφόρμας) και να του αντιστοιχίσεις το παρακάτω:

Private Sub need_call_AfterUpdate()
Dim strSQL As String
strSQL = "UPDATE Periexomena_Paraggelias SET Periexomena_Paraggelias.need_call = " & _
Nz(Me.need_call) & " WHERE [code] =" & Nz(Me.code)
CurrentDb.Execute strSQL
Me.Refresh
End Sub

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

Τάσος