Ahmed_J

استاذي العزيز قمت بتعديل الملف بالشكل الصحيح المشكلة باقية في استعلام الالحاق للجدول tb2 لايقوم بالحاق كل السجلات تحياتي test1.accdb

السلام عليكم استاذ @أبو عبدالله الحلوانى استاذ @Moosak شكرا لكم مثال مرفق عن ماريده اول شيء لذي كود في القائمة المنسدلة لاختيار الشهر حسب طبيعة العمل فيه اكواد حسب التسلسل الاول لحذف سجلات الجدول tb2 والثاني لتشغيل الاستعلام الالحاقي والثالث لتحديث الشهر المطلوب انه يبقى الجدول tb2 فيه بيانات الشهر السابق والجدول tb1 في بيانات الشهر الحالي لكن في مشكلة الي شرحتها لكم سابقا وشكرا لكم test.accdb

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

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

السلام عليكم اساتذتي الاعزاء لدي نموذج منفرد فيه زر لتشغيل كود استعلام الحاقي من جدول الى جدول اخرفارغ وهو بعمل جيدا لكن فيه مشكلة واحدة انه يقوم بالحاق كل السجلات الا السجل الي واقف عليه بالنموذج ولا اعرف السبب علما انني انتقلت للسجل الثاني وضغطت الزر والحقت كل السجلات بصورة صحيحة الا السجل الثاني اللي واقف عليه وهذا الكود الذي استخدمة لتشغيل الاستعلام DoCmd.SetWarnings False DoCmd.OpenQuery "Q10" DoCmd.SetWarnings True تحياتي لكل الاخوة

اخي العزيز اولا لايجوز القسمة على صفر لان يظهر الكود التالي !0/div# الحل انك تستخدم دالة if ثانيا دالة nz تكتب بهذه الطريقة Nz([stop];0) ثالثا عن استخراج الشهر اكتب دالة () date بهذه الطرريقة ومن خلال تنسيق حقل التاريخ اكتب mmm ليعطيك الشهر باللغة العربية جرب المرفق تحياتي car n new.accdb

السلام عليكم اساتذتي الاعزاء عندي ملف فيه استعلام توحيد لجدولين (يوجد فيه عمليات حسابية) اردت ان اقوم بتحديث حقل في جدول جديد من هذا الاستعلام وظهرت هذه الرسالة ولا اعرف ماذا افعل هل يوجد حل لهذه الرسالة ام لا تحياتي للجميع

وعليكم السلام اول شيء لابد من رفع الفراغات باسم التقرير او وضع _ بين الاسم اذا كان مكون من جزئين تستطيع عمل ذالك بالدوال الشرطية مثل if او case تفضل اتمنى ان يكون المطلوب updata2022.mdb

استاذي العزيز اين المرفقات؟؟؟

السلام عليكم مشاركة مع استاذي ازهر اخي العزيز اول شيء لابد ان اسماء الدول لاتتكرر في القائمة بالنموذج وكذلك اسماء المدن حتلى تسهل عملية الفرز كان من المفترض ان تعمل جداول مرتبطة مجموعة مدن مرتبطة بدولة ومجموعة قرى مرتبطة بمدينة وهكذا تفضل الملف بعد التعديل حسب طلبك وفهمي للموضوع =DSum("totaly";"q";"country=[a] and city=[b] and village=[c]") ونستطيع اضافة لها NZ للتحويل القيمة الفارغة الى صفر =Nz(DSum("totaly";"q";"country=[a] and city=[b] and village=[c]");0) ddsum.accdb مرفق مثال توضيحي للقوائم المرتبطة تحياتي قائمة منسدلة متربطة بقائمة اخرى.accdb

وعليكك السلام تفضل هذا الرابط اتمنى يكون المطلوب

اخي العزيز استخدم دالة DLOOKUP لجلب القيمة للنموذج الفرعي مع معرفة القيمة هل رقم ام نص او تاريخ رقم DLookup = DLookup("My_Filde", "My_Table", "My_Filde1 =" & myWhere) نص DLookup = DLookup("My_Filde", "My_Table", "My_Filde1 ='" & myWhere & "'") تاريخ DLookup = DLookup("My_Filde", "My_Table", "My_Filde1 = #" & myWhere & "#")

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

السلام عليكم يوضع بزر في النموذج DoCmd.SelectObject acReport, "CHEMM", True DoCmd.PrintOut , 1, 1, , 1 جرب هذا المرفق تحياتي test.accdb

السلام عليكم جرب الكود بعد تغيير اسم التقرير تبعك DoCmd.SelectObject acReport, "TAB01", True DoCmd.PrintOut , 1, 1, , 1

اخي العزيز بالخدمة

اتدلل اخوي العزيز بالخدمة

تغضل اخي الكريم IQ.accdb

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

السلام عليكم اخي العزيز يجب اولا معرفة اين يجب كتابة الدالة if في جدول (حقل محسوب) او استعلام او نموذج لكي نعطيك مثال عن ذلك انظر للرابط https://www.officena.net/ib/topic/74860-إنشاء-دروس-vba-أكسس/

انظر للرابط اتمنى ان تستفيد منه

تفضل 1- قمت بتغيير المسميات في الجدول الى اللغة الانكليزية لسهولة التعامل معها مستقبلا في الاكواد 2- عملت لك استعلام لسهولة اجراء العمليات الحسابية فية او الفرز او اي شيء اخر 3- عملت لك نموذجين واحد نموذج منفرد والاخر نموذج مستمر (انت اختار اللي يعجبك منهم) 4- عملت لك تقرير تحياتي test.accdb

السلام عليكم اخي العزيز يمكن عمل ذلك لان برنامج الاكسس رائع المهم انك تعرف طريقة التعامل معة تفضل الملف البسيط مثل ملف الاكسل تبعك test.accdb

بارك الله فيك استاذ @أبوبسمله شكرا لكم اساتذتي الاعزاء وفقكم الله

شكرا لك أستاذ @jjafferr تعبتك معي كتير قصدي توسيط مثل الصورة بارك الله فيك