[asemshahen5]

PHP كود :

Private Sub Command16_Click()

Dim rs3 As Recordset
Set rs3 = db.OpenRecordset("SELECT Count(Crdnum)AS CountCrdnum From tbl1 ") ''Where Crdnum="" & Val(Text22.Text))
Me.Text22.Text = rs3!CountCrdnum
rs3.Close
Set rs3 = Nothing
End Sub 


هذا الكود مبدئيا الا اذا كان هناك معيار معين للبحث .

مثل :

PHP كود :

Private Sub Command16_Click()

Dim rs3 As Recordset
Set rs3 = db.OpenRecordset("SELECT Count(Crdnum)AS CountCrdnum From tbl1 Where Crdnum=" & Val(Text20.Text))
Me.Text22.Text = rs3!CountCrdnum
rs3.Close
Set rs3 = Nothing
End Sub