kaser906

القاعدة فتحت معي على 2016 ولم تفتح هلى 2010

بعد أذن الاخ محمد انظري للمرفق وطبقي نفس الكود Dim x As Integer Dim n As Long x = DCount("id", "table1") rsrce = Me.RecordSource If x >= 10 Then Me.RecordSource = "Table1" Exit Sub End If n = Nz(DMax("id", "table1")) If n = 0 Then DoCmd.SetWarnings False DoCmd.RunSQL "INSERT INTO Table1 ( id ) SELECT 1 AS Expr1" DoCmd.SetWarnings True End If For i = 1 To 10 - x n = n + 1 rsrce = rsrce & " Union SELECT " & n & " as a, null as b, null as c FROM Table1" Next i Me.RecordSource = rsrce & " ORDER BY Table1.id" بالتوفيق ::: item2.mdb

تفضل dlook_Bac.rar

الله يعطيك العافية اخي محمد لم نطلب البرنامج بالكامل فقط نفس المرفق يشتمل على الاكواد التي خلف الازرار لو أمكن تضع رابط المشاركة

السلام غليكم ورحمة الله وبركاتة امل المساعده في تعديل الكود التالي 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

لو تفضلت اخ محمد تضع لنا نفس المرفق يحتوي على بقية الاكواد لازارر الامر للاستفادة

بعد عدة محاولات توصلت الى هذه الطريقة عن طريق الكود التالي في حدث عند الطباعة وأتى بنتائج جيدة يعاب عليه ان الكود طويل ويحتاج اني اضعه لكل حقل من حقول التقرير 'نجلب رقم الراكب من جدول الحافلة If DLookup("Chair_no=2", "Tabl_bus", "Chair_no=2 And Num_rihla=[Forms]![frm]![Num_rihla]And Num_Itinerary_ID=[Forms]![frm]![Num_Itinerary_ID]") And _ DLookup("PcDigt", "Tabl_bus", "Chair_no=2 And Num_rihla=[Forms]![frm]![Num_rihla]And Num_Itinerary_ID=[Forms]![frm]![Num_Itinerary_ID]") Then ' نجلب الاسم حسب رقم الراكب الذي تم جلبه في الحقل بالتقرير Me.S2 = DLookup("PcDigt", "Tabl_bus", "Chair_no=2 And Num_rihla=[Forms]![frm]![Num_rihla]And Num_Itinerary_ID=[Forms]![frm]![Num_Itinerary_ID]") Me.S2 = DLookup("[FName] & ' ' & [Family]", "Tabl_Emp", "PcDigt = S2") ' عد السجلات التي تحتوي على رقم المقعد ElseIf DCount("id", "Tabl_bus", "Chair_no=2 And Num_rihla=[Forms]![frm]![Num_rihla]And Num_Itinerary_ID=[Forms]![frm]![Num_Itinerary_ID]") < 1 Then Me.S2 = "غير مخصص" ' عد السجلات التي تحتوي على رقم المقعد ولاتحتوي على رقم الراكب ElseIf DCount("id", "Tabl_bus", "Chair_no=2 And Num_rihla=[Forms]![frm]![Num_rihla]And Num_Itinerary_ID=[Forms]![frm]![Num_Itinerary_ID]And[PcDigt]=null") = 0 Then Me.S2 = "شاغر" End If لو أمكن اختصار هذا الكود

صباح الخير استاذنا وشكرا لتحملك وسعة صدرك معذرة منك الطريقة الأخيرة لاتفي بالغرض *واردت ان اضيف أن اعتماد التقرير بشكل كلي في السجلات على جدول Tabl_bus جدول Tabl_Emp فقط نجلب منه الاسم اذا كان رقم الراكب موجود بجدول Tabl_bus * ارغب في حل غير الأستعلام حتى لو كان عن طريق كود Vba

الله يعطيك العافية استاذنا الهدف من طلبي كان المحافظة على تنسيق التقرير لأنه يظهر الحقول على شكل مخطط ( كروكي ) لمقاعد الحافلة من الداخل وهذه الطريقة لن تخدمني في المحافظة على تنسيق التقرير هل بالامكان التعديل على الطريقة الأولى التي عملتها عن طريق دالة Dlookup للمحافظة على تنسيق التقرير

ممتاز استاذنا فقط اردت أن أشير إلى ( نص شاغر ) حيث انها تظهر حتى في حالة عدم وجود رقم في حقل Chair_no بالجدول Tabl_bus اريد عند وجود الرقم Chair_no وعدم وجود رقم راكب في نفس السجل إظهار نص( شاغر) وعند عدم وجود سجل بنفس الرقم Chair_no بالجدول إظهار عبارة ( غير مخصص ) شاكر ومقدر تعاونك ،،،

شكرا لتجاوبك استاذنا @AlwaZeeR الطلب متشابك قليلا ولعلي لم اتمكن من إيصاله بالصورة الصحية لذلك سأشرح ما هي العلاقة بين الجدولين والموضوع اولا الموضوع عبارة عن حجز مقاعد على حافلة الجدول Tabl_ Emp جدول بيانات الركاب الجدول Tabl_bus هو جدول الحافلة الحقل PcDigt i هو رقم الراكب الحقل Chair_No هو رقم المقعد في الحافلة ويقابله بالتقرير الحقول من S1 إلى S49 الحقل Num_rihla هو رقم الرحلة الحقل Num_intr هو رقم الحافلة Chair_no رقم المقعد يقابله بالتقرير المقعد الذي هو s1 الى s49 اعتذر هنا لاني وضعت ارقام عشوائية وتم التعديل في المرفق حيث ان رقم الراكب يجب أن يكون موجود بكلا الجدولين من الممكن ان يكون لم يتم ادخال رقم المقعد بالجدول مثلا لم يتم تسجيل رقم مقعد رقم 33 في الجدول (اي لايوجد سجل حسب الشروط ) يتم اظهار عبارة لم يتم التخصيص في مربع النص غير المنظم بالتقرير ( غير مخصص ) المطلوب يتم اظهار رقم الركاب واسمه في الحقل ملاحظة : في حالة وجود سجل Chair_no ولم يتم تسجيل رقم PcDigt يظهر نص في مربع النص بالتقرير شاغر انا اردت استخدام هذه الطريقة للمحافظة على تنسيق التقرير واذا كان هناك طريقة افضل فلا مانع وهذا المرفق الجديد بعد تعديل البيانات dlook.rar

السلام عليكم ورحمة الله وبركاتة بالمرفق نموذج Frm المطلوب : بعد إدخال رقم في مربع النص Num_rihla وليكن 10 ومربع النص Num_intr وليكن الرقم 25 عند النقر على زر أمر فتح التقرير أن يتم إظهار رقم PcDigt في مربعات النص غير المنظمة حسب الشرط التالي Num_rihla =Forms!Frm!Num_rihla And Num_intr = Forms!Frm!Num_intr مطلوب كود dlookup في مصدر عنصر التحكم في مربع النص الغير منظم في التقرير من الجدولين بحيث يجلب رقم PcDigt من الجدول Tabl_bus الى الحقل s10 مثلا بشرط أن يكونNum_rihla = Num_rihla!Frm And Num_intr=Frm !Num_intr وحقل Chair_No = 10 ويتم معه جلب الأسم الأول والأخير من جدول Tabl_Emp بشرط PcDigt = PcDigt الذي تم جلبه من جدول Tabl_bus وعند عدم وجود الرقم Chair_No في جدول Tabl_Bus تظهر عبارة لم يتم التخصيص عملت هذا الكود لكنه لم يأتي بنتيجه صحيحه حيث انه يرجع القيمة لأول سجل في الجدول ولم أتمكن من تعديله وإكماله ليحقق المطلوب =DLookUp("[PcDigt]";"Tabl_bus";"[Num_rihla] = " & [Forms]![Frm]![Num_rihla] And "[Num_intr] = " & [Forms]![Frm]![Num_intr] And "[Chair_No]=10") ارجو المساعده ولكم جزيل الشكر dlook.rar

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

السلام عليكم ورحمة الله وبركاتة بالمرفق نموذج Forme_InsertAndEdit وهو خاص بمتابعة من قام باضافة او تعديل السجلات ويمكن تغيير مصدر سجلاته عن طريق الاختيار من مربع التحرير والسرد الى هنا كل شي تمام اردت استدعاء النموذج من النموذج f_1 أو f_2 أو f_3 مع تغيير مصدر السجلات حسب النموذج ورقم المعرف الفريد في النموذج وهو يختلف من جدول الى جدول أخر فالنموذج f_1 والذي مصدر بيانات Tab_1 رقم المعرف Auto_id والنموذج f_2 والذي مصدر بياناته Tab_2 رقم المعرف الفريد هو id والنموذج f_3 والذي مصدر بياناته Tab_3 رقم المعرف الفريد هو id_f قمت بعمل زر أمر في كل نموذج لفتح نموذج Forme_InsertAndEdit مع تغيير مصدر بيانات النموذج ورقم المعرف حسب الكود التالي DoCmd.OpenForm "Forme_InsertAndEdit", acNormal, "", "[Masder_record]=" & Me.RecordSource, "[Auoto_id]=" & Me.Auoto_id, acReadOnly, acNormal ولكن لم ينجح الأمر أمل المساعدة في تنفيذ المطلوب . Openformresors.rar

جربت مرفقك على اكسس 2010 واكسس 2016 ولا توجد به مشكلة قمت بتحديد سجل واثنان وثلاثة ولم يهتز النموذج ولم يذهب للسجل الاول

لا أعلم ماذا تقصد بالطالب الحالي بالاستعلام عموما طبق ما عملته لك في النموذج على الاستعلام وستحصل على النتيجة

عفوا تفضل عرض احدث 3تاريخ.rar

تفضل بالتوفيق،،، عرض احدث تاريخ.rar

وعليكم السلام ورحمة الله وبركاتة من مصدر بيانات النموذج اجعلة استعلام ثم اضف الحقول التي تريدها توقف على حقل التاريح وأختر الفرز تنازلي بالتوفيق ،،،

تفضل أخي ابوياسين قم بتثبيتها وبعد الانتهاء قم بتفعيلها من الوظائف الاضافية في خيارات الاكسس اعد تشغيل الجهاز وستظهر الايقونة في شريط الحفظ الاداة الاضافية لحزمة التخزيم بالاكسس 2010.rar

أخي وليدة بارك الله فيك لست واضح في طرح مواضيعك ف في كل مشاركة تقوم بتغيير الطلب هذا هو طلبك وعدة مرة أخرى وقلت برمجيا وعندما فتحت مرفقك الذي توصلت فيه لما تريد يخالف طلبك فعندما قمت بتغيير التاريخ يدويا لم يحفظ اخر تاريخ رجع الى الكود واعطاك التاريخ من الكود ولم يثبت التاريخ بعد تغيره يدويا ثلاثة اشخاص لم يستطيعوا التوصل الى ما تريد هل المشكلة في طرحك للسؤال ؟ ام المشكلة في فهم سؤالك ؟ ام المشكلة في تغير طلبك في كل مشاركة ؟؟؟؟ حاولنا نخدمك لكن بدل من ان تدخل وتشكر كل من ساهم في موضوعك اتيت فاردا عضلاتك منتشي بأنك توصلت للمطلوب الذي هو ليس بالمطلوب في مشاركتك عموما بالتوفيق ،،،

فعلا أستاذ شفان كلامك صحيح لكن تخبر أن بعض الامثلة محتاجة بيانات للتطبيق وهذا الأمر ممل شكرأ لمرورك وإطلالتك على الموضوع

توصلت لطريقة فتح التقرير أولا هكذا بالوضع المخفي DoCmd.OpenReport stDocName, acViewReport, , stlinkcriteria, acHidden ومن ثم يتم تنفيذ أمر تصدير التقرير لا أعلم ان كانت هناك طريقة مختصرة الف شكر اخي ابو ياسين

نعم أخي هذي وارده في بالي لكن القصد من وضع الشرط خلف زر الأمر هو الاستفادة من فتح التقرير وتصفيته من اكثر من نموذج

مع الاسف أخي ابو ياسين يتم فتح التقرير بدون تصفية ( الشرط المحدد)