ابوخليل

للشرط النصي Text1 = DLookup("[ID]", "Table1", "[SName]='" & [TextName] & "'") للشرط الرقمي Text1 = DLookup("[ID]", "Table1", "[id]=" & me.id ) بدون شروط اذا كان الجدول يحتوي على سجل واحد فقط Text1 = DLookup("[ID]", "Table1")

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

أولا : تطبيق الفكرة داخل النموذج في حقول غير منضمة On Error Resume NextDim x As Integer x = Len([txtNm]) - Len(Replace([txtNm], " ", "")) 'هذا السطر لعد الفواصل بين الأسماء name1 = Split(txtNm, " ")(0) ' الصفر يعني ما قبل الفاصلة الأولى ​ 'اذا كان عدد الفواصل=1 يعني اسمين فقط سيتم تعييين الاسم الثاني كاسم عائلة If x = 1 Then name4 = Split(txtNm, " ")(1) If x = 2 Then name4 = Split(txtNm, " ")(2) ' If x = 3 Then name4 = Split(txtNm, " ")(3) ' If x = 4 Then name4 = Split(txtNm, " ")(4) ' وفي المثال غنية عن زيادة المقال يتبع .. _تجزئة النص في النموذج حسب التحديد .rar

سؤال جميل وتكثر الحاجة اليه فقد تكون الاسماء خماسية او رباعية او ثلاثية .... وتكون حاجتنا في اظهار الاسم الاول واسم العائلة فقط مثلا لذا فنحن بحاجة الى عدد خانات الاسم كما تفضل به الاخ السائل لكي نختار ما نريد من اجل هذا سيكون التطبيق التالي داخل الاستعلام لاختيار الاسم الاول واسم العائلة مهما تعددت الخانات

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

انظر هنا فالفكرة مشابهة http://www.officena.net/ib/index.php?showtopic=50808&p=314783#entry314783

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

اخونا ابراهيم وفقك الله لكل خير حاول مستقبلا ان يشتمل المثال على اقل عدد من الكائنات والعناصر الضرورية فقط تم التعديل حسب الطلب B2.rar

اخي الكريم : لاحظ انك كنت سببا رئيسيا في عدم استجابة الاعضاء السؤال مخالف لقواعد المشاركة يجب ان تحتوي المشاركة على استقسار واحد فقط xxxxxxx يغلق الموضوع xxxxxxx يمكنك انشاء موضوع جديد يشتمل على سؤال واحد فقط فإذا حصلت على الاجابة انشء موضوعا آخر وهكذا تعدد الاسئلة والعنواين مطلب ، وعلامة صحية .

الروابط التي وضعتها لك في المشاركة رقم 5 تشرح الطريقة وعلى كل حال : افتح التقرير على التصميم ثم انقر بزر الفأرة الأيمن على المربع StNo واختر : تنسيق شرطي ستتضح لك المسألة امام عينيك

حييت اخي وتفضل تم التعديل على مثالك آمل ان يحقق طلبك Mdbschool.rar

الموضوع مخالف xxxx يجب اختيار عنوان مناسب xxxxxxx يغلق

يا اخوتي الموضوع هذا مخالف لقوانين المنتدي ××××××× حيث أن المواضيع المتعلقة بالكراك والسيريلات ممنوعه في هذا المنتدى ×××××××× يغلق ×××××××× الإدارة

تفضل MO2.rar

تفضل مثالك معدلا student2.rar

تم دمج الموضوعين اخي الكريم يمكنك التعقيب على موضوعك بكتابة كلمة تفيد اعادة الطلب كــ للرفع مثلا

انظر في هذه الروابط ففيها ما تبحث عنه http://www.officena.net/ib/index.php?showtopic=41609#entry236097 http://www.officena.net/ib/index.php?showtopic=38006#entry205723 http://www.officena.net/ib/index.php?showtopic=25574#entry121193

اجعل مصدر الصف في مربع التحرير مثل مصدر الصف في حقل الجدول

شرح كيفية عمل استعلام توحيد بين الجداول http://www.officena.net/ib/index.php?showtopic=37077#entry197784 http://www.officena.net/ib/index.php?showtopic=41165#entry232314

في مثالك استخدمت كود الاستاذ يوسف تم اعادة وترتب الكود 1- اعد نسخه ولصقه مرة اخرى 2- غير ما يلزم من اسماء الحقول حسب الذي عندك

المشاركة في تنفيذ فكرة لا يلزم منه كون الفكرة صالحة للتطبيق فهنا مثلا : - هل المبرمج ملزم بتسمية العناصر داخل الفورم وفق تسمية وترتيب معين ؟ وهذه اشكالية ظاهرة - وهل كل النماذج ستشتمل على هذا العدد من الازرار ؟ لنفرض الجواب=لا - ما يدري الاداة بعمل كل عنصر ووظيفته ؟ اقصد كيف يتعامل المستخدم ( المدير ) عند منح الصلاحيات هل عليه ان يجرب ثم يذهب الى النموذج الهدف ليرى النتيجة الرؤية الصحيحة عندي : ( مثلا لو تم عرض عناصر كل نموذج بوظائفها دون الالتزام بتسميات محددة لكان هذا اقرب ) ولكن كيف ؟ شيء آخر احب ان ادرجه هنا وهو الذوق العام للنماذج فأنا كمستخدم يؤلمني ويحز في نفسي ان ارى داخل النموذج عناصر باهتة ، او ان تخرج على رسالة بعدم منحي الصلاحية المفترض ان لايتواجد في النموذج اي عنصر فوق حاجة المستخدم وجهة نظر آمل الا تحد او تثنيك عن عزمك ، فالاستشارة هي مشاركة العقل وفقك الله لكل خير

حول مثالك الى صيغة MDB فلعلك تجد تفاعلا من اخوانك اكثر

جزيت خيرا استاذ يوسف Dim rs As Recordset Dim i As Integer Set rs = Me.Recordset With rs .MoveFirst Do Until .EOF For i = 1 To Nz((Me.txtNoOfPrint), 0) DoCmd.OpenReport "rpt1", acViewNormal, , "id= " & Me.txtId Next i .MoveNext Loop End With Set rs = Nothing

تفضل : تم تنفيذ التصور officenaUP.rar

شكرا جزيلا استاذنا الحبيب يوسف واعتقدت ان السائل يريد طباعة الكل فاعددت له هذا .. مع اخذ نصيحة الاستاذ يوسف بالاعتبار Dim i, z, r As Integer Dim rs As Recordset Set rs = Me.RecordsetClone rs.MoveLast r = rs.RecordCount rs.MoveFirst For z = 1 To r Do Until i = Me.code.Value i = i + 1 DoCmd.OpenReport "report", acNormal, , "[number]=" & Me!number Loop rs.MoveNext Next rs.Close Set rs = Nothing