kaser906 قام بنشر مارس 14, 2018 قام بنشر مارس 14, 2018 السلام غليكم ورحمة الله وبركاتة امل المساعده في تعديل الكود التالي 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
ابو جودي قام بنشر مارس 14, 2018 قام بنشر مارس 14, 2018 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 قام بنشر مارس 15, 2018 الكاتب قام بنشر مارس 15, 2018 8 ساعات مضت, ابا جودى said: المرفق لو تكرمت تفضل dlook_Bac.rar
AlwaZeeR قام بنشر مارس 16, 2018 قام بنشر مارس 16, 2018 (معدل) تفضل: 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 1
kaser906 قام بنشر مارس 16, 2018 الكاتب قام بنشر مارس 16, 2018 1 ساعه مضت, AlwaZeeR said: تفضل: مع الاسف استاذنا الكود لم يأتي بنتيجة صحيحة
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.