kkhalifa1960

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

ممكن تتم الموضوع بتمت الاجابة .

تفضل استاذ @gavan التعديل بطلبك . GavanDB.rar

ابشر

تفضل استاذ @تامر خليفه المرفق بعد التعديل ليعمل على النواتين 32بت و 64بت . QR_Code.rar

تفضل استاذ @محمد التميمي المرفق .ووافني بالرد . QR_Code-11.rar

انا ذكرت لك مواصفات عملي انشاء الله بعدل الكود كي يعمل على النواتين .

استاذ @محمد التميمي حتى لا يحذف الموضوع رجاء طلبك بمشاركة جديدة . وأنا جاهز بالرد .

عطني وقت كي أقرأ الموضوع من الاول ................. تقصد اعادة توجيه الكتاب أم الرد على الكتاب ويرد للمرسل منه . عموماً جرب المرفق بعد التعديل . GavanDB.rar

نفضل استاذ @تامر خليفه يالاستعانة بكود أحد الزملاء للاسف مادري اسمه ممكن يكون من النت أو من المنتدى . علما بأني أعمل على اوفيس 2010 32 بت .... اليك المرفق . QR_Code.rar

سلامات استاذ @Foksh ماتشوف شر .

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

استاذ @gavan رجاء راجع التعديل ورد عليا بأسرع وقت لأني أنسى واضطر لمراجعة المرفق من الأول ... تفضل المرفق . GavanDB.rar

تفضل استاذ @fai50fe المرفق بعد التعديل بطلبك بالمسار المرفق ...... مع الاخذ في الاعتبار عدم فتح أي شئ مرتبط بالجدول عند تنفيذ العملية غير الفورم1 لأنه غير مرتبط . ووافني بالرد . sem1-1.rar

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

استاذ @حسين مامون يشرفني مرورك .

Sub CopyPreviousFieldValue() Dim db As DAO.Database Dim rs As DAO.Recordset Dim PreviousValue As Variant Set db = CurrentDb Set rs = db.OpenRecordset("اسم_الجدول", dbOpenDynaset) With rs If Not .EOF Then .MoveFirst PreviousValue = !اسم_الحقل .MoveNext Do While Not .EOF .Edit !اسم_الحقل = PreviousValue .Update PreviousValue = !اسم_الحقل .MoveNext Loop End If .Close End With Set rs = Nothing Set db = Nothing End Sub

ارفق للمهتمين نموذج للنسخ الاحتياطي :- 1- بجوار قاعدة البيانات أ - نسخة احتياطية بالتاريخ بفلدر ب- نسخة احتياطية مضغوطة بالتاريخ بفلدر ج - نسخة احتياطية مضغوطة بباسوورد بالتاريخ بفلدر 2- بمسار تختاره أ - نسخة احتياطية ب- نسخة احتياطية مضغوطة ج - نسخة احتياطية مضغوطة بباسوورد فاصيل المكتبات المستخدمة في الكود: FileDialog: جزء من مكتبة Microsoft Office xx.0 Object Library. يسمح بفتح مربع حوار لتحديد الملفات أو المجلدات. CreateObject: جزء من مكتبة OLE Automation. يستخدم لإنشاء كائنات خارجية، مثل تطبيق Access. DBEngine.CreateDatabase: جزء من مكتبة Microsoft Access xx.0 Object Library. يستخدم لإنشاء قاعدة بيانات Access. إذا كانت المكتبات غير مفعلة: إذا لم تكن المكتبات المذكورة أعلاه مفعلة، يمكنك تفعيلها يدويًا عن طريق: فتح نافذة المراجع (Tools > References). البحث عن المكتبات المذكورة أعلاه. تفعيلها بوضع علامة صح (✔) بجانبها. اليكم المرفق . CopyDB.rar

أما بالنسبة للطلب نسخة مضغوطة .... ونسخة مضغوطة بباسوورد ..... سأنشرها بمشارك جديدة كهدية لينتفع بها الجميع .

نفص مكتبات تفاصيل المكتبات المستخدمة في الكود: FileDialog: جزء من مكتبة Microsoft Office xx.0 Object Library. يسمح بفتح مربع حوار لتحديد الملفات أو المجلدات. CreateObject: جزء من مكتبة OLE Automation. يستخدم لإنشاء كائنات خارجية، مثل تطبيق Access. DBEngine.CreateDatabase: جزء من مكتبة Microsoft Access xx.0 Object Library. يستخدم لإنشاء قاعدة بيانات Access. إذا كانت المكتبات غير مفعلة: إذا لم تكن المكتبات المذكورة أعلاه مفعلة، يمكنك تفعيلها يدويًا عن طريق: فتح نافذة المراجع (Tools > References). البحث عن المكتبات المذكورة أعلاه. تفعيلها بوضع علامة صح (✔) بجانبها.

تفضل استاذ @رشبد طلبك حسب مافهمت . ووافني بالرد . ويمكن اضافة اختيارين كمان ... 1- نسخة مضغوطه .... 2- نسخة مضغوطة بباسوورد . CopyDB.rar

مشاركة مع الاساتذة تفضل استاذ @gavan تصوري بمرفق كامل جربه ووافني بالرد . GavanDB.rar

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

تفضل استاذ @بوكفوس عبدالسلام . فردي ...... Private Sub YourFieldName_AfterUpdate() Me.YourFieldName = UCase(Me.YourFieldName) End Sub استبدل YourFieldName باسم الحقل النصي الخاص بك. هذا الكود سيحول أي نص يتم إدخاله في الحقل إلى أحرف كبيرة تلقائيًا عند التحديث. إذا كنت بحاجة إلى تطبيق ذلك على عدة حقول، يمكنك تكرار الخطوات لكل حقل. جماعي ...... Private Sub Form_AfterUpdate() Dim ctl As Control For Each ctl In Me.Controls If ctl.ControlType = acTextBox Then ctl = UCase(ctl) End If Next ctl End Sub هذا الكود سيقوم بالبحث عن جميع مربعات النص في النموذج ويحول أي نص يتم إدخاله فيها إلى أحرف كبيرة تلقائيًا عند التحديث

استاذ @((( folks ))) انا سويت لك التقرير لكن تنسيقه ومربعاته عليك يابطل تقرير1 أما الطلب الثاني مو فاهمه زين . ممكن تشرحه مع اني يخيل اليا اني سويت لك نفس الشئ من قبل . رجاء شرحه بالتفصيل . إحصائية المدن.rar