Περιορισμός πλήθους εγγραφών σε υποφόρμα

[Tasos]

Δημήτρη,

Στο BeforeInsert() της υποφόρμας πέρασε τον παρακάτω κώδικα:

Private Sub Form_BeforeInsert(Cancel As Integer)
    If DCount("*", Me.Recordset.Name, "[fldKodParalabesID]= " & Me.Parent.fldParalabesID) > 3 Then Cancel = True
End Sub

Σημείωση: Βάζοντας το 3 θα σου επιτρέψει 3+1 δηλ 4 εγγραφές.

Για να αποκλείσεις τη διαγραφή εγγραφών στην υποφόρμα σου, στο φύλλο ιδιοτήτων της υποφόρμας, στην καρτέλα δεδομένα επίλεξε
Όχι στην επιλογή "Δυνατότητα διαγραφών".

Ελπίζω να σε καλύπτω.

Τάσος