السلام عليكم ...
لدي جدول t_1 وفيه حقول ( رقم الوارد - تاريخ الوارد - الموضوع )
ولدي نموذج غير منضم للجدول ... وفيه مربعين نص غير منضمه .... الأول أريد أن أدخل فيه رقم الوارد والمربع الثاني أريد أن أدخل فيه تاريخ الوارد ...
وبعد تحديث المربع الثاني أريد التأكد من وجود السجل الذي يحمل رقم الوارد ونفس التاريخ هل هو موجود في الجدول أو لا ؟
والمثال المرفق ...
تم تعديل هذه المشاركة بواسطة ekseer في 31 يناير 2007 في 02:19
تم تعديل هذه المشاركة بواسطة أحمد مبارك الحيقي في 31 يناير 2007 في 01:16
أخي أحمد مبارك الحيقي بارك الله فيك
بالعكس أخي تعدد الاجابات يسعدنا كثيرا .. وكودك جميل جدا
ويؤدي الغرض بارك الله فيك
ekseer
السلام عليكم ...
ekseer جميل لكن ليس هو المطلوب وإنما المطلوب هو أن يفحص الجدول فإذا وجد الرقم بنفس التاريخ يعطي إشارة أنه موجود مسبقاً ... لأن الرقم لوحده ممكن يتكرر لكن الرقم والتاريخ مع بعض لا يتكرر .
الأخ أحمد مبارك الحيقي كود لم يعمل معي ... بعد ضغط الزر لا يفعل شيء !!
على العموم أشكر لكم مروركم وردوكم ... مع أني تقريباً وجدت الحل 90%
وسأحاول إتمامه وإرفاقه إتماماً للفائدة .
If (Eval("DLookUp(""[txtWnum]"",""[t_1]"",""[txtWnum] =form![txtwnum]and [txtwdate] =form![txtwdate]"") Is Not Null")) Then
Dim txt2 As Variant
Dim txt3 As Variant
txt2 = DLookup("[txtwnum]", "t_1", "[txtwnum]=[forms]![f_1]![txtwnum]and [txtwdate] =form![txtwdate]")
txt3 = DLookup("[txtwdate]", "t_1", "[txtwdate]=[forms]![f_1]![txtwdate]and [txtwdate] =form![txtwdate]")
Beep
MsgBox " سبق تسجيل التعميم رقم : " & txt2 _
& vbCrLf & " في تاريخ : " _
& Format(txt3, "dd / mm / yyyy") _
& vbCrLf & " لا يمكن تسجيل التعميم" _
, vbExclamation, " مدقق التعاميم"
Else
MsgBox " لم يسبق تسجيل التعميم رقم : " & txt2 _
& " بالتاريخ : " _
& Format(txt3, "dd / mm / yyyy") _
& vbCrLf & " يمكنك تسجيل هذا التعميم" _
, vbExclamation, "مدقق التعاميم"
End Ifتم تعديل هذه المشاركة بواسطة فتى الوادي في 31 يناير 2007 في 15:03
هذا الموضوع مغلق.