rudwan

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

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

ابني نموذجك على الاستعلام query1 Nouveau_Application_Microsoft_Access.rar

عدل الكود الى الشكل التالي Private Sub Amount_Exit(Cancel As Integer) If Me.NewRecord Then If id = 1 Then Dim stDocName As String Dim stLinkCriteria As String stDocName = "MG" DoCmd.OpenForm stDocName, , , stLinkCriteria End If End If End Sub

في حدث عند الفتح للنموذج الفرعي ضع الكود التالي Forms![SubForm]!LinkMasterFields = Me.Parent.[myfield] و جرب بعد تغيير اسماء النماذج و الحقول

مكونات ملف الأكسس تخزن في جدول مخفي من جداول النظام و اسمه MSysObjects , و هذا الاستعلام يحضر لك أسماء المكونات التي من نوع تقرير أي (((MSysObjects.Type)=-32764) و من هذه التقارير اعرض فقط التقارير التي يبدأ اسمها ب rpt أي ((MSysObjects.Name) Like ""rpt*"")) لذلك فان الجزء الأول فقط هو الذي يفيدك و هو : Me.lstForms.RowSource = "SELECT DISTINCTROW Mid([Name],4) AS Expr1, MSysObjects.Type FROM MSysObjects WHERE (((MSysObjects.Type)=-32764) AND ((MSysObjects.Name) Like ""rpt*"")) أما الباقي فهو يحضر لك أسماء النماذج بعد كلمة Or حيث كود النماذج في ذلك الجدول هو -32768

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

ممكن , لكن ضع تفصيلا أكثر لما تريده

انظر تعديل المتغيرات في الكود الخاص بالتفقيط أما التواصل عبر الايميل فالحقيقة هو للضرورة فقط و في حال الحاجة لارفاق ملفات فيها بيانات سرية تخشى من اطلاع الآخرين عليها فلامانع و اية أسئلة برمجيه أخرى فأرجو حصرها هنا في المنتدى حتى تعم الفائدة على الجميع أما للتعارف الشخصي و الأمور التي لاتخص البرمجة فلامانع من التواصل عبر الايميل db1.rar

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

في نموذج frmNum2Text التفقيط يعتمد على الدالة ArbNum2Text الموجودة في الوحدة النمطية . الآن ماتحتاجه في نموذج الايصالات ليس الربط بين النموذجين و انما تطبيق نفس الطريقة على ذلك النموذج , بمعنى : اضافة الكود التالي في نموذج الايصالات كما يلي : Private Sub Form_Current() Me.Text8 = ArbNum2Text(Me.ko) End Sub و ذلك بعد تغيير قيمة حقل المجموع رقما من الاسم 1 الى الاسم ko حيث الرقم 1 اسم غير محبب للاستخدام في المعادلات و الأفضل النصوص أيضا اجعل مصدر صف بيانات الحقل TEXT8 غير منضم كذلك ضع الكود نفسه عند حدث عند الخروج من النموذج الفرعي ليتم تحديث القيمة عند تغيير القيم في النموذج الفرعي

اذا كنت تقصد فتح نموذج القائمة الرئيسيية تلقائيا بمجرد فتح البرنامج : اذهب الى أدوات - خيارات بدء التشغيل - اختر اسم النموذج المطلوب من أول قائمة اختيار على يسار تلك الشاشة اذا كانت لديك بالعربي , أو على اليمين اذا كانت بالانكليزي

مشكور أخ يوسف على تفانيك في خدمة اخوانك في المنتدى , و لك مني أحلى تحية

انظر الاستعلام query1 عند تشغيله تظهر لك رسالة , أدخل فيها قيمة التاريخ المطلوب db1.rar

تفضل no.rar

هذا الشكل لايتوافق مع خصائص أداة تسمية , لذلك قلت لك اجعلها صورة و لتكن خلفية لمربع نص شفاف

نعم يوجد طريقة , انظر الموضوع التـالــــــي , و هو يحوي العديد من طرق الحماية , و في نهايته طريقة لمعرفة المدخلين و المحررين للسجلات ووقت التحرير أيضا

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

للتبديل بين الهجري و الميلادي يمكنك استخدام الكود التالي Dim CurrCal As Byte CurrCal = Calendar الآن اذا كان التقويم الموجود هجري و تريد استخدام الميلادي ضع : Calendar = vbCalGreg و اذا كان ميلادي و تريد استخدام الهجري ضع : Calendar = vbCalHijri و بعد تنفيذ العمليات المطلوبة , و حتى تعيد حالة التقويم الى تنسيقه الأصلي ضع في نهاية الكود Calendar = CurrCal علما بأنك لاتستطيع استخدام حقل من نوع تاريخ الا لتنسيق واحد فقط اما هجري أو ميلادي , و اذا أردت استخدام تنسيق مزدوج تستطيع استخدام الطريقة التالية : أنشأ حقلين واحد من نوع تاريخ ( تنسيق هجري مثلا ) و تخزن فيه قيم التاريخ الهجري فقط و حقل نصي تخزن فيه قيم التاريخ الميلادي اذا لم يكن متوفرا الهجري و بواسطة الكود أعلاه تستطيع تحويل قيمة التاريخ في النص الميلادي الى مايعادله بالهجري و تخزنه في الحقل الهجري و بذلك يكون لديك أخيرا حقل هجري مكتمل السجلات ( أو ميلادي اذا كانت الحالة معاكسة )

هل يناسبك هذا الحل ؟ new.rar

في هذه الحالة اعمل الترقيم التلقائي برمجيا تجد طريقة له في الأرشيف

هذا تعديل على ملفك Balance.rar

و أنت بألأف خير أخي الكريم تم وضع شرح مفصل في المشاركة السابقة , و الآن الدور عليك في تصميم الجداول ان كانت تحقق ماترغب به

هل نجحت معك الطريقة التي ذكرتها أنت أخيرا

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