ابوخليل

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

تم الاصلاح db1.rar

عند تطبيق بدء التشغيل يتحقق لك ما تريد في اكسس 2003 : ادوات/بدء التشغيل اختر نموذج البداية ثم ازل جميع العلامات من خانات الاختيار ثم موافق

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 27 Then DoCmd.close End If If KeyCode = vbKeyF2 Then msgbox"مرحبا" End If End Sub 27 هو زر الهروب Esc جرب زر F2 اولا

السلام عليكم اخونا مجدي تحية طيبة وبعد يمكنني ان اخرج لك الجداول فقط ما رأيك ؟

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

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

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

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

هذه تشير الى وحدة نمطية مسؤلة عن فتح المجلد واختيار الملف وهي موجودة فعلا داخل المثال

المثال يحتوي على بيانات لشخص واحد فقط هو تركي لا اعلم ما ذا تقصد ؟

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

اذا يكون التحديث بعد التحديث Dim i As Integer i = Khet Me.Requery Khet = i 333_6.rar

السلام عليكم شكرا للاستاذ علي على هذا المجهود والمتابعة الاخ ابوعبير اجابتك في سؤالك فالعنوان هو طلب تحديث النموذج الفرعي وقبل ذلك يجب اولا تحديث النموذج الرئيس وعبارات التحديث اما requery او refresh فانظر اين تضعها ؟ تم التعديل آمل ان يوافق المطلوب وقمت بالتأشير على مكان التعديل (ثلاثة اسطر) تجده في آخر كود في محرر النموذج الرئيس 333_6.rar

شكرا للاستاذ علي المعلومة الجميلة المشكلة عندك ارفق مثالك لتشخيص المشكلة

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

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

الاستعلام والجدول ليس بينهما فرق فكلاهما يصلح مصدر بيانات فقط غير اسم الجدول الى اسم الاستعلام الموجود لديك

انظر هنا http://www.officena.net/ib/index.php?showtopic=55769 وهذا تطبيق frm1.rar

تفضل حسب الطلب Dim x As Integer Dim n As Long x = DCount("id", "table1") rsrce = Me.RecordSource If x >= 10 Then Me.RecordSource = "Table1" Exit Sub End If n = Nz(DMax("id", "table1")) If n = 0 Then DoCmd.SetWarnings False DoCmd.RunSQL "INSERT INTO Table1 ( id ) SELECT 1 AS Expr1" DoCmd.SetWarnings True End If For i = 1 To 10 - x n = n + 1 rsrce = rsrce & " Union SELECT " & n & " as a, null as b, null as c FROM Table1" Next i Me.RecordSource = rsrce & " ORDER BY Table1.id" item2.rar

ايضا يمكن فتح الصورة بمستعرض الصور الافتراضي فتح الصورة بالمستعرض.rar

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

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

Age: DateDiff("yyyy";[Texit_Brtheday];[forms]![frm1]![text1]) شرط يكون النموذج مفتوح اذا غير واضح ارفق مثالك للتعديل

Age: DateDiff("yyyy";[Texit1];[Texit2])