[Meteora]

Καλημέρα...

Μαρία θα έκανα χρήση του κώδικα:

Private Sub Form_Current()
tseka
End Sub


Private Sub tseka()
if [ Logiko]=-1
Me.AllowEdits = False
Else
Me.AllowEdits = True
End If
End Sub


Όπου [Logiko] ειναι ένα πεδίο τύπου ΝΑΙ/ΟΧΙ που προσθέτω στον πίνακα και εμφανίζω στη φόρμα, ώστε να επιλέγω ποιες εγγραφές θα επιδέχονται διόρθωση και ποιές όχι..

Όταν πάλι είμαστε κατάσταση παρουσίασης εγγραφής με φόρμα, αν θελήσουμε να αλλάξουμε την κατάσταση (διόρθωση - μή διόρθωση), τότε πρέπει να προστεθεί :
Private Sub Logiko_Enter()
If [Logiko] = -1 Then
[Logiko] = 0
Me.AllowEdits = True
Else
[Logiko] = -1
Me.AllowEdits = False
End If
DoCmd.RunCommand acCmdSelectRecord
DoCmd.RunCommand acCmdSave
End Sub

Δοκίμασε αυτά που περιγράφω. Μη διστάσεις να ρωτήσεις οτιδήποτε. Ειναι βέβαιο οτι στο Forum αυτό εδώ θα βρεις τις απαντήσεις που χρειάζεσαι.
Ελπίζω να βοήθησα... /Νίκος Δ.