[sendbad100]

السلام عليكم

هل هذا هو المطلوب

PHP كود :

Me.Text22.Text = rs3.RecordCount 


تضيفة للكود التالي

PHP كود :

Private Sub Command16_Click()

Dim rs3 As Recordset
Set rs3 = db.OpenRecordset("SELECT Sum(Crdnum)AS SumCrdnum From tbl1 Where Crdnum=" & Val(Text22))
Me.Text22.Text = rs3.RecordCount
rs3.Close
Set rs3 = Nothing
End Sub