تعديل كود

[kaser906]

السلام غليكم ورحمة الله وبركاتة

امل المساعده في تعديل الكود التالي

If DLookup("Chair_no=1", "Tabl_bus", "Chair_no=1&" And Num_Itinerary_ID = "&Me.Num_Itinerary_ID") And _
DLookup("PcDigt", "Tabl_bus", "Chair_no=1&" And Num_Itinerary_ID = "&Me.Num_Itinerary_ID") Then

 

[ابو جودي]

52 دقائق مضت, kaser906 said:

السلام غليكم ورحمة الله وبركاتة

امل المساعده في تعديل الكود التالي

If DLookup("Chair_no=1", "Tabl_bus", "Chair_no=1&" And Num_Itinerary_ID = "&Me.Num_Itinerary_ID") And _
DLookup("PcDigt", "Tabl_bus", "Chair_no=1&" And Num_Itinerary_ID = "&Me.Num_Itinerary_ID") Then

 

المرفق لو تكرمت 

[kaser906]

8 ساعات مضت, ابا جودى said:

المرفق لو تكرمت 

تفضل

dlook_Bac.rar

[kaser906]

رفع

[AlwaZeeR]

تفضل:

If DLookup("Chair_no=1", "Tabl_bus", "Chair_no=1" & Num_Itinerary_ID = " & Me.Num_Itinerary_ID") And _
DLookup("PcDigt", "Tabl_bus", "Chair_no=1 " & Num_Itinerary_ID = " & Me.Num_Itinerary_ID") Then
Me.S1 = DLookup("PcDigt", "Tabl_bus", "Chair_no=1" & Num_Itinerary_ID = " & Me.Num_Itinerary_ID")
Me.S1 = DLookup("[PcDigt] &  '  -  ' & [FName]&  ' ' & [Family]", "Tabil_Emp", "PcDigt = S1")
ElseIf DCount("id", "Tabl_bus", "Chair_no=1" & Num_Itinerary_ID = " & Me.Num_Itinerary_ID") < 1 Then
Me.S1 = "غير مخصص"
ElseIf DCount("id", "Tabl_bus", "Chair_no=1" & Num_Itinerary_ID = " & Me.Num_Itinerary_ID And[PcDigt]=Null") = 0 Then
Me.S1 = "شاغر"
End If

 

تم تعديل مارس 16, 2018 بواسطه AlwaZeeR

[kaser906]

1 ساعه مضت, AlwaZeeR said:

تفضل:

مع الاسف استاذنا

الكود  لم يأتي بنتيجة صحيحة