كريمو2 قام بنشر يوليو 11 مشاركة قام بنشر يوليو 11 السلام عليكم اساتذتي الكرام كيف يتم التعديل على دالة DLookup Dim Omra As Boolean Omra = IIf(DLookup("omra", "omra", "EmployeeID =" & Me.EmployeeID) = -1, True, False) OmraAnne = DLookup("année", "omra", "EmployeeID =" & Me.EmployeeID) If Omra = True Then MsgBox "هذا الموظف مستفيد من منحة العمرة خلال سنة " & OmraAnne: Me.Undo: Exit Sub حيث ان الجدول المعني هو Mena7 والشرط هو Menha_ID=11 و année= annee Omra= Haj وشكرا رابط هذا التعليق شارك More sharing options...
ابو جودي قام بنشر يوليو 11 مشاركة قام بنشر يوليو 11 اتفضل Dim Omra As Boolean Dim OmraAnne As Integer Omra = IIf(DLookup("Haj", "Mena7", "EmployeeID =" & Me.EmployeeID & " AND Menha_ID = 11") = -1, True, False) OmraAnne = DLookup("annee", "Mena7", "EmployeeID =" & Me.EmployeeID & " AND Menha_ID = 11") If Omra = True Then MsgBox "هذا الموظف مستفيد من منحة العمرة خلال سنة " & OmraAnne Me.Undo Exit Sub End If رابط هذا التعليق شارك More sharing options...
Foksh قام بنشر يوليو 11 مشاركة قام بنشر يوليو 11 (معدل) إضافة لما تفضل به أستاذنا @ابو جودي في حال عدم وجود سجل يطابق الشروط قد نستخدم نوع المتغير Variant بدلاً من Integer في المتغير 😉 Dim Omra As Boolean Dim OmraAnne As Integer Dim result As Variant Omra = IIf(DLookup("Haj", "Mena7", "EmployeeID =" & Me.EmployeeID & " AND Menha_ID=11") = -1, True, False) result = DLookup("annee", "Mena7", "EmployeeID =" & Me.EmployeeID & " AND Menha_ID=11") If Not IsNull(result) Then OmraAnne = result Else OmraAnne = 0 End If If Omra = True Then MsgBox "هذا الموظف مستفيد من منحة العمرة خلال سنة " & OmraAnne Me.Undo Exit Sub End If من زمان ما استفزيتكش يا مان 😁 تم تعديل يوليو 11 بواسطه Foksh تحديث الكود رابط هذا التعليق شارك More sharing options...
كريمو2 قام بنشر يوليو 12 الكاتب مشاركة قام بنشر يوليو 12 (معدل) شكرا لكم اساتذة ولو انه لم يتم فهمكم للمطلوب ولكن اجابتكم ومساعدتكم وفت وكفت Dim haj As Boolean haj = IIf(DLookup("Menha_ID", "Mena7", "EmployeeID =" & Me.EmployeeID) = 11, True, False) hajAnne = DLookup("annee", "Mena7", "EmployeeID =" & Me.EmployeeID) If haj = True Then MsgBox "هذا الموظف مستفيد من منحة الحج خلال سنة " & hajAnne: Me.Undo: Exit Sub تم تعديل يوليو 12 بواسطه كريمو2 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان