ابوخليل

اليك هذه الملاحظات : العنوان : (مراجعة على هذا البرنامج) لا يصف شيئا ، ولن تجد احدا يساعدك اذا لم تحدد المشكلة يوجد أخطاء في كتابتك لاسماء الحقول والجداول وغيرها مثلا : (Table remise) يجب ان يختفي الفراغ بين الكلمتين والصحيح هكذا (Tableremise) (T-Article) لا تضع علامة السالب بين الكلمات والصحيح هكذا (T_Article) (Qtélivrée) اقتصر على الحروف الانجليزية فقط ويمكنك كتابة التسميات الفرنسية او العربية في التسمية التوضيحية .

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

حفظ نسخة بامتداد mdb مع اضافة تاريخ اليوم مع نسخة مضغوطة Rar مع اضافة تاريخ اليوم الاثنتين بضغطة زر واحدة مع تحديد مكان الحفظ المناسب backup.rar

شكرا لاخي وأستاذي ابا آدم على المرور والتقييم لا اخفيك .. انقطاعك ترك فراغا مؤثرا في المنتدى كان الله في عونك وحفظك اينما كنت نعم هو ما ذكرت

جرب هذا Private Sub SJL_DblClick(Cancel As Integer) Dim stLinkCriteria As String Dim stDocName As String stLinkCriteria = "[SJL] = Forms!frmMxs!frmBhs![SJL]" stDocName = "frmBamat" DoCmd.OpenForm stDocName, , , stLinkCriteria End Sub

لدي مطلوبك في مثال جاهز ان كنت تستخدم برنامج الضغط winzip

تفضل msar.rar

جرب هذا ID هو الرقم المعرف اذا كان هناك رقم معرف فريد للموظف Dim stLinkCriteria As String Dim stDocName As String stLinkCriteria = "[ID ]=" & Me![ID ] stDocName = اسم النموذج" DoCmd.OpenForm stDocName, , , stLinkCriteria

تفضل mm4.rar

الاخ العزيز/ عبدالله المجرب الاخ العزيز/ دغيدي الاخ العزيز/ احمد فضيلة الف مبروك ... تستحقون أكثر

اكتب في حدث تحميل النموذج id = ""

http://www.officena.net/ib/index.php?showtopic=42323#entry242198 http://www.officena.net/ib/index.php?showtopic=28195#entry135910 http://www.officena.net/ib/index.php?showtopic=31301#entry158478 http://www.officena.net/ib/index.php?showtopic=21044#entry97041

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

انظر هنا https://www.google.com/url?q=http://www.officena.net/ib/index.php%3Fshowtopic%3D37285&sa=U&ei=35cIUfmCJIOt0QXW4IGoDw&ved=0CAcQFjAA&client=internal-uds-cse&usg=AFQjCNFIZUucqZnJDvgnYqeUZxZELLELWA

هذا الذي عليه العمل من شريط الادوات / ادوات / بدء التشغيل طبق ما هو موجود في مربع الحوار

وضح اكثر !

صحيح هو ما ذكرت

لا تستخدم علامة الناقص للفصل بين الكلمات في اسماء الكائنات والعناصر mm2.rar

لاول مايعني Quote لو تغير الجدول لاصبحت نتيجة الكود خاطئة المفترض ان يأخذ الكود رقم الحصة من جدول لا ان تضع الرقم داخل الكود والشق الثاني انظر آخر سطر في حدث مربع التحرير حيث نقلنا التركيز الى عنصر تحكم النموذج الفرعي ( تم تعديل الاسم الى subfrm ) فإذا انتقل التركيز اليه سيكون التركيز الفعلي على اول حقل مجدول في النموذج الفرعي وحقل الاسم في المثال يحمل رقم الجدولة صفر بمعنى انه يمكنك جعل التركيز على اي حقل تريد من خلال رقم الجدولة والاخير كيف حولت القاعدة الى mdb باستيراد الكائنات الى قاعدة جديدة

في حدث عند الطباعة يتم تحديث الحقل في الجدول بزيادة 1 من خلال السطر ادناه DoCmd.RunSQL "UPDATE tbRePCountl SET tbRePCountl.RePCount = tbRePCountl.RePCount+1 " ثم يتم جلب الرقم الحاصل الجديد بواسطة هذه العبارة t1 = DLookup("RePCount", "tbRePCountl")

انظر ان كان التعديل يناسبك db4.rar

الاول/ اذهب الى تنسيق في خصائص الحقل وبدل قيمة "لغة لوحة المفاتيح" الى العربية الثاني / نحن لا نستخدم الاستعلام لعرض البيانات مباشرة وانما نستخدمه كوسيط بين الجدول والنموذج او بين الجدول والتقرير اما ان كنت مصر على فتح الاستعلام للعرض حينئذ يلزمك اغلاق النموذج انظر مثالك بعد التعديل STATU_2013_up.rar

كنا نعمل في وقت واحد سبقتني بأربع دقائق

يمكن تطبيق ما تفضلت به انظر مثالك بعد التعديل ولكن هناك ملاحظات : لا بد من توفر شرط مناسب حتى يتم احتواء الحصة الثانية ايضا التنفيذ بهذه الطريقة ( داخل المحرر ) فائدته وقتية تنتهي بتغير الجدول ملحوظة : تم تحويل المرفق الى امتداد mdb db4.rar

انت بحاجة الى حقل يحفظ الرقم السابق انظر التعديل ترقيم التقرير عند الطباعة.rar