اهلا وسهلا بك استاذ @رمهان والله ليك شوقه تغييب تغيب وتظهر كالجواد
فعلا استخدمت dao وتم الامر وتم حل المشكلة بنجاح
واشكر جدا الاستاذ @ابوخليل على مساعدته .. الله يبارك فيه ويسعده
وبارك الله فيكم جميعا
'وهذا هو الكود ياستاذ رمهان حسب طلبك لتطلع عليه
'وايضا لمن ياتى من بعدنا حتى يستفيد منه
Private Sub Form_BeforeUpdate(Cancel As Integer)
Dim x As String
Dim db2 As Database
Dim rs As Recordset
Set db2 = CurrentDb
Set rs = db2.OpenRecordset("SELECT [id_company] & [taxt_name1] & [date_f] AS Expr1 " & vbCrLf & _
"FROM tbl_company INNER JOIN (tbl_custom INNER JOIN tbl_demand ON tbl_custom.id_custom = tbl_demand.emp_id) ON tbl_company.id_company = tbl_custom.emp_company " & vbCrLf & _
"WHERE (((tbl_company.id_company)=wrcmpny()))")
x = wrcmpny() & taxt_name1 & date_f
rs.MoveFirst
Do While rs.EOF = False
If rs!Expr1 = x Then
MsgBox "ÓÌá ãßÑÑ"
Undo
Exit Sub
End If
rs.MoveNext
Loop
rs.Close: Set rs = Nothing
End Sub
تحياتى ،،