السلام عليكم ورحمة الله تعالى وبركاته
اساتذتى العظماء .. تحية عطرة
ما الخطأ فى هذا الكود
Dim myWhere As String
myWhere = "[FirstName] ='" & [txtFirstName] & "'"
myWhere = myWhere & " And"
myWhere = myWhere & "[LastName] ='" & [txtLastName] & "'"
myWhere = myWhere & " And"
myWhere = myWhere & "[DateOfBirth] =#" & Format([txtDateOfBirth], "dd/mm/yyyy") & "#"
myWhere = myWhere & " And"
myWhere = myWhere & "[SIR]= " & [ChckSIR]
Debug.Print myWhere
Me.txtCount = DCount("*", "[tblTestCount]", myWhere)
Test Dcout.mdb