ابوخليل

يمكنك ارفاق القاعدة لتشخيص المشكلة

تفضل آمل ان يكون كما تحب نعم .rar

اللهم اغفر له وارحمه واكرم نزله وآنس وحشته واغسله بالثلج والماء والبرد ونقه من الخطايا كما ينقى الثوب الابيض من الدنس ، اللهم جازه بالحسنات احسانا وبالسيئات عفوا منك وغفرانا

جزأت لك العمليات نسخة احتياطية بزر ونسخة مضغوطة بــ rar بزر ونسخة مضغوطة بــ zip بزر فقد يحتاج المستخدم نقل واحدة فقط الى الفلاشة مثلا لك الخيار الآن بنقل ما شئت منها الى برنامجك تمت التجربة : جميع العمليات الثلاث تعمل بلا مشاكل msarat.rar

اليك هذه الملاحظات : العنوان : (مراجعة على هذا البرنامج) لا يصف شيئا ، ولن تجد احدا يساعدك اذا لم تحدد المشكلة يوجد أخطاء في كتابتك لاسماء الحقول والجداول وغيرها مثلا : (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