ابوخليل

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

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

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

عن نفسي تعلم اني استخدم الاصدار 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])

اخونا ازهر السؤال من العضو CrazyAccess واضح تماما ومثاله الذي قدمه للعلاج رائع ونريدك ان تعدل على مثاله وتطبق الكود الذي تفضلت به

اخوي ازهر ، مع الشكر والتقدير ممكن تطبق الكود على المثال المرفق

سؤالك الاول عن القوائم واختفائها تجد هذا في خصائص بدء التشغيل في 2003 : ادوات / بدء التشغيل اما سؤالك الثاني فحبذا لو افردته بموضوع مستقل تعدد المواضيع والمسميات علامة صحية ومطلوبة في المنتدى مع ملاحظة توضيح ماذا تريد من نتيجة بــــ IsNull لان rs لوحدها لا تحمل قيمة

يغلق عدم اختيار عنوان مناسب للموضوع ولتكرر المخالفة سبق وان كتب العنوان نفسه هنا http://www.officena.net/ib/index.php?showtopic=55925 وتم تعديله ومخالفة اخرى ايضا وهي عدم شرح المشكلة يعني ان المشكلة لن تظهر مستقبلا في البحث ابدا

السؤال الثاني انقر باليمين على النموذج / خصائص / علم على خانة مخفي السؤال الثالث : لا اعلم بالضبط ما تقصد بالقوائم الا ان المثال لا يحتوي على ماكروات ولا وحدات نمطية ولا تقارير السؤال الرابع : يحتاج ان تفرد له سؤال يخصه مع المثال ، واعلم انني اعمل على الاصدار 2003 ـــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــ اما السؤال الأول فقد وجدت لك في مكتبتي شرحا لمطلوبك : ====================================== أنواع السجلات التي يمكن فتحها بالكائن DAO النوع الأول Table Recordset وهذا النوع هو ارتباط مباشر لأي جدول في قاعدة البيانات مميزاته 1 – استخدام نظام الفهرسة INDEX 2 – إتاحة عمليات بحث سريعة عيوبه 1 – عدم إمكانية إنشاء تصفية للسجلات 2 – استخدام تعليمة SEEK في البحث وهى تبحث عن السجل الأول فقط 3 – عدم استخدام تعليمة البحث FIND التي يمكن أن توجد عدد كبير من السجلات ولفتح جدول باستخدام هذا النوع نستخدم الجملة التالية Set rs = db.OpenRecordset("tbl1", dbOpenTable) النوع الثاني DyanaSet Recordset وهو عبارة عن مجموعة من السجلات من جدول واحد أو أكثر في قاعدة البيانات مميزاته 1 – إمكانية ربط البيانات في أكثر من جدول 2 – إمكانية استخدام الأمر FIND في البحث عن السجلات 3 – إمكانية عمل تصفية للسجلات عيوبه 1 - لا يستخدم الفهارس INDEX 2 – لا يتيح تعديل السجلات أو حذفها بسهولة لفتح جدول باستخدام هذا النوع من السجلات نستخدم الجملة التالية Set rs = db.OpenRecordset("tbl1", dbOpenDynaset) النوع الثالث : SnapShot Recordset وهى عبارة عن صورة من الجدول كما هو وهي للقراءة فقط مميزاته 1 - إمكانية ربط أكثر من جدول 2 - إمكانية استخدام أمر البحث FIND 3 - سرعة البحث للسجلات لأنها في الذاكرة عيوبه 1 – عدم إمكانية تحديث وتعديل البيانات لأنها للقراءة فقط 2 – عدم إمكانية استخدام الفهارس 3 – استهلاك الذاكرة وخاصة عند فتح أكثر من جدول لفتح جدول باستخدام هذا النوع من السجلات نستخدم الجملة التالية Set rs = db.OpenRecordset("tbl1", dbOpenSnapShot)

لانه لا توجد به بيانات مكررة ولكن هذه الصفحات لا ادري من اين اتت ولا شك ان للمعيار الموجود في الاستعلام يدا في ذلك ويمكن تخطي هذه المشكلة بلصق الكود التالي في محرر التقرير : Private Sub Report_NoData(Cancel As Integer) MsgBox "لا يوجد بيانات مكررة في هذا التقرير " Cancel = -1 End Sub

تم التعديل وعمل التقارير اللازمة ملحوظة : في تقرير 22 يتم العرض صفحة صفحة وفي تقرير 20 يتم عرض الجميع بالتوالي انظر الفرق بينهما في مقطع التذييل عند عرض التصميم دقق وتفحص وتعلم كما هناك تقرير ثالث للفرد وفقك الله ،،، SNAWNAW_UP.rar

جزاك الله خيرا اخي علي الرسالة تعني اختلاف نوع الحقل والاستعلامات تحتوي على جداول مرتبطة بعلاقات فحين تغير نوع الحقل في احد الجداول ظهرت المشكلة تم التعديل ، وبعض اللمسات Wak2.rar