how to add new item until 10 row

[zozzz]

hello to all friends

with a view to sample ، I can Add (insert) unlimited item from subform1 into subform2 .

question :
A : How can I add only 10 Items into the subform2 ??
B : and for add Item of equal 11th and then , I want display Error message??



Thankyou for your help

[ssanfu]

Not really sure what you want, but try this: (quick and dirty)

Private Sub cmdCopyFName_Click()
    Dim RC1 As Integer
    Dim RC2 As Integer
    Dim SumRC As Integer

    'number of selected (Aproved) records in table1
    RC1 = DCount("*", "table1", "Aproved = TRUE")
    
    'number of existing records in table2
    RC2 = DCount("*", "table2")

    SumRC = RC1 + RC2
    
    If SumRC <= 10 Then
        CurrentDb.Execute "INSERT INTO TABLE2 (Fname, Lname, Phone, Aproved) SELECT Fname, Lname, Phone, Aproved FROM Table1 WHERE [Aproved];", dbFailOnError
    Else
        MsgBox "ERROR Message!!! Adding the aproved records would create more than 10 records in table2"
    End If
    
    Me.Table2_sub.Requery
End Sub

Allows a maximum of 10 records in Table2.

[zozzz]

very fantastic my friend (ssanfu) ....
good job
Thank you very much