فتى الوادي

للرفع... (y)

السلام عليكم عندي قاعدة بيانات على جهاز آخر .... ومنذ سنتين تقريباً وأنا أعمل عليها زي السكر ... وفجأة ....! لم أعد قادراً على فتح القاعدة ؟!!! عند تشغيل القاعدة لا يظهر لي شي وتبقى شريط الأكسيس فقط ... المشكلة هنا في :1 - أن القاعدة تم ألغاء الشفت بها 2- القاعدة تم وضع حماية عليها .. بحيث لو نسخت ووضعت على جهاز آخر لن تعمل . 3- الجداول مخفيه بالكود . حاولت أن ألغي عمل الشفت بكود ألغاء الشفت من قاعدة أخرى ولم أفلح !؟؟ حاولت أن أستورد الجدوال .. ولم أفلح ؟!!! فما هي المشكلة ؟؟ وكيف أستورد الجدوال وهي مخفيه ؟؟؟؟؟؟ وما سبب هذه المشكلة .. والسلام

السلام عليكم لدي قاعدة بيانات على الأكسيس وفيها سندات قبض .. ولدي طابعة نقطية ( أبسون LQ 300 ) .. والسندات عندي مطبوعة على أوراق مخرمة ... مقاس A4 وفي كل ورقة سندين قبض ... السؤال : كيف أستطيع أن أجعل الطابعة المذكورة تقف عن منتصف الورقة ( اي نهاية السند الأول ) .. ثم تطبع السند الثاني وتقف عند نهايته وهكذا ... فهل هناك إعدادت معينة ..؟؟!!

الحل الثاني هو المطلوب ... طريقة حسابها عن طريق الأستعلام سهلة .. لكن اريد أن أحدث قيمة حقل ( المجموع السابق ) في الجدول فما هو الكود المناسب .. مع ان لدي كود ينقصه عملية الجمع للسابق ، وهو : Dim db As Database Dim MyTABLE As Recordset Set db = DBEngine.Workspaces(0).Databases(0) Set MyTABLE = db.OpenRecordset("جدول1", dbOpenTable) Do While Not MyTABLE.EOF MyTABLE.edit 'هنا يوضع كود عملية جمع حقل ( المبلغ ) في حقل ( الجموع السابق MyTABLE.Update MyTABLE.MoveNext Loop MyTABLE.Close هذه هو كود التعامل مع الجداول ... لكن ما هو الكود اللي يستطيع يجمع لي القيم من حقل ( المبلغ ) ويجمعها في حق ( المجموع السابق )

السلام عليكم كنت عارف ومتأكد أنك راح تكون أول من يرد :) لكن يا أخي الكريم أنا أريد ذلك أن يكون في الجدول وليس في النموذج .... يعني أريد أن تحفظ قيمة ( المجموع السابق ) في الجدول حتى أسلم من اللخبطة التي قد تحصل عند تعديل مبلغ معين .. وجزاك الله خيراً ..

جمع القيم السابقة في الجدول كيف نطبق ذلك على كامل الجدول السلام عليكم إذا كان عندي جدول بالصورة التالية وأريد أن يكون حقل ( المجموع السابق ) يأخذ مجموع حقل ( المبلغ ) لكل عميل على حده بناءً على رقم السند مع ملاحظة أن السند رقم واحد راح يكون حقل المجموع السبق فيه = 0 لأنه ليس قبله سجلات .. بناءً على الصورة السابقة .. يفترض أن يكون الجدول بهذا الشكل : فكيف أستطيع تطبيق كود يفعل لي ذلك ؟؟!!

الله يجزيك بالخير .. لكن هل كل مرة لا زم أضغط الزر لألغاء الكود ؟؟ أنا أريد أن أضغط زر ألغاء الكود ويصبح غير فعال حتى لو خرجت ودخلت للبرنامج مرة أخرى ... وإذا أردت أن أعيد تفعيل الكود لا بد أن أضغط الزر

السلام عليكم مزيد من التوضيح .. عندي هذا الكود If DCount("txtnum", "جدول2") > 5 Then MsgBox "عــفواً ... هذه النسخة للعرض فقط .. للحصول على نسخة كاملة من البرنامج " & vbCrLf & _ " الــرجــاء الأتــصــال على المبــرمــج " _ & vbCrLf & _ vbCrLf & " AMOTAIB@HOTMAIL.COM ", 0, "أنتهاء مدة العرض" Me.Undo Cancel = True DoCmd.Quit Else DoCmd.Maximize End If اريد نموذج فيه زرين أمر ... الأول يقوم بتشغيل هذه الكود ليكون فاعلاً .. والزر الثاني لألغاء الكود وأبطال تأثيره .

السلام عليكم كيف أقوم بتفعيل كود أو ألغاءه بواسطة زر أمر ؟ بحيث يكون هناك زرين أمر الأول ( تشغيل الكود ) والثاني ( الغاء الكود ) والسلام

السلام عليكم بعد الأستعانة بالله توصلت إلى هذه الكود اللي على قد الحال t0 = Year(Now) & "/" & Month(Now) & "/" & 1 t00 = Year(Now) & "/" & Month(Now) & "/" & 30 حيث أن t0 مربع النص الأول و t00مربع النص الثاني

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

السلام عليكم أحياناً استخدم برنامج على الأكسيس 2000 ويستخدم التاريخ الهجري ... لكن إّا أردت أن أستخدم هذا البرنامج على الأكسيس الأكس بي يتغير التاريخ إلى ميلادي ؟؟! فكيف أجعل التاريخ لقاعدة البيانات المصممة على الأكسيس 2000 تستخدم التاريخ الهجري حتى لو أستخدم على الأكسيس الأكس بي ؟؟؟!