dim stLinkCriteria As String:stLinkCriteria = "[Fildename]=" & Me.txtObjectName
If DCount("*", "tblName", stLinkCriteria) > 0 Then
MsgBox$("type You Want")
End If
مع الاخذ فى الاعتبار
نستخدم ذلك مع الارقام'
stLinkCriteria = "[Fildename]=" & Me.txtObjectName
نستخدم ذلك مع النصوص'
stLinkCriteria = "[Fildename] ='" & Me.txtObjectName & "'"
نستخدم ذلك مع التواريخ'
stLinkCriteria ="[Fildename] =#" & Me.txtObjectName & "#"
وفى هذا الموضوع تم استخدام الكود السابق