التعديل على رسالة تنبيه بالاستفادة

[طاهر اوفيسنا]

السلام عليكم اساتذتي الكرام

كيف يتم التعديل على دالة 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

وشكرا 

 

 

 

 

 

 

[ابو جودي]

اتفضل
 

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

[Foksh]

إضافة لما تفضل به أستاذنا @ابو جودي

في حال عدم وجود سجل يطابق الشروط قد نستخدم نوع المتغير 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, 2024 بواسطه Foksh
تحديث الكود

[طاهر اوفيسنا]

شكرا لكم اساتذة ولو انه لم يتم فهمكم للمطلوب ولكن اجابتكم ومساعدتكم وفت وكفت 

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, 2024 بواسطه كريمو2