عبد الله قدور

If txt100 = "ãÍãÏ" Then me.btn100.visbile = true Else me.btn100.visbile = false End If السلام عليكم استخدم هذا الكود في حدث "في الحالي" في حال كنت تريد اظهار واخفاء الزر عند التنقل بين السجلات

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

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

كنت اشك في nam فاستبدله فلم يفلح الامر فنقلت الكود الى المنتدى قبل اعادته كمان كان 😅

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

اما هذا الكود اشتغل بشكل جيد لكن ما السبب ان الكود القديم توقف عن العمل فجأة

ظهرت نفس رسالة الخطا للاسف

السلام عليكم اخواني الكرام هذا الكود كنت استخدمه في النسخ الاحتياطي لقاعدة البيانات المرتبطة ويعمل بشكل جيد ، فجأة توقف عن العمل وتظهر رسالة خطا هل من المعقول انه بسبب زيادة حجم قاعدة البيانات ؟؟ Dim a As VbMsgBoxResult a = MsgBox("هل تريد أخذ نسخة احتياطية قبل الخروج", vbInformation + vbMsgBoxRight + vbYesNoCancel, "تنبيه") If a = vbYes Then Dim OldFile, newfile, copymydb, nam nam = "Acc_Tavuk_" & Day(Date) & "-" & Month(Date) & "-" & Year(Date) & "_" & Hour(Time) & "-" & Minute(Time) & "-" & Second(Time) & ".ACC4" OldFile = DLookup("[database]", "track", "[ForeignName]='bill'") newfile = "E:\2022\tavuk" & "\" & nam copymydb = "cmd.exe /C copy " & """" & OldFile & """" & " " & """" & newfile & """" Shell copymydb, 0 DoCmd.Quit ElseIf a = vbNo Then DoCmd.Quit End If رسالة الخطأ

اكيد لن ننسى موقعنا الرائع بالاجابة

السلام عليكم ..اخي @Muhammed syr انا افضل العمل على الاكسس ومستعد لدعمك في تنفيذ مشروعك حتى النهاية ، فمساعدة اهلنا في سوريا واجب علينا ويمكنك التواصل معي الواتس بأي وقت على رقمي : 00905510365950

السلام عليكم اليك ما طلبت Database1.accdb

السلام عليكم يمكنك ضبط عرض الورقة بالكود التالي عند التحميل me.width = number ايضا يمكنك ضبط طول التقرير Me.تفصيل.Height = number يمكنك استخدام المكتبة التالية في ضبط خصائص الورقة كاملة me.printer. ملاحظة مهمة جدا كل 1 سم يساوي في 567 في محرر الفيجول بيسك (لا ادري ما اسم وحدة القياس هذه)

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

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

السلام عليكم اخي الكريم ضع مرفق للتعديل عليه

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

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

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

السلام عليكم هل يمكن ارسال رسالة على مجموعة واتساب وليس لشخص

للاسف ظنك ليس في مكانه انا عملت على اس كيو ال وعندما تكلمت عن الاكواد قصدت اكواد اكسس تختلف في التعامل مع الجداول بين اس كيو ال و اكسس واليك مثال واحد Set RS = DB.OpenRecordset("billB") هذا الكود يعمل على الاكسس بكل سلاسة اما اذا اردت استخدامه مع جدول اس كيو ال فلن يعمل يحتاج الى تعديل واليك التعديل Set RS = DB.OpenRecordset("billB", dbOpenDynaset, dbSeeChanges) اما المعلمات في اس كيو ال يتم اسخدام % بدلا من * في اكسس وعندما ذكرت لك انشاء قاعدة بيانات والنسخ الاحتياطي قصدت العمل عن طريق الاكواد من الاكسس وليس باستخدام SQL SERVER MANAGEMENT STUDIO نحن بانتظار الفيديو تحياتي

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

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

السلام عليكم ورحمة الله وبركاته اخي الكريم @صابر سليمان الفكرة التي تدور في بالي الان هي كالتالي واتمنى من اساتذتنا الكرام مشاركتنا رأيهم : 1- تقوم باعداد جدول مؤقت في fe لكل جدول ظهرت عندك المشكلة فيه 2- تربط النماذج كلها بهذه الجداول المؤقتة وعند الادخال يتم نقل البيانات الى الجدول الرئيسي في قاعدة البيانات 3- عند تسجيل الدخول الى البرنامج تقوم باستخدام استعلام الحاق بنقل سجلات الموجودة في قاعدة البيانات الى الجداول المؤقتة 4- ايضا يمكنك ان تضع زر تحديث في نموذج سطح المكتب عندك ليقوم البرنامج بنقل السجلات المضافة حديثا من قبل المستخدمين الاخرين تحياتي

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

لقد راجعت الرابط وقرأت الاجوبة وكلها يمكن القيام بها في اكسس من خلال قفل السجل المحرر فقط وليس الجدول بالكامل ما اريد قوله الان هو أن الاكسس (صديقنا العزيز المحبوب) يؤدي الغرض المطلوب منه كما تفعل sql تماما في هذا المجال ومشكلة التكرار التي ذكرتها ستواجهها نفسها في sql ولن تستطيع تجاوزها الا من خلال الاكواد كما ذكرنا سابقا اما بالنسبة للاخ @صابر سليمان لا ندري ماذا جرى معك هل تم حل المشكلة أم لا عندي فقط سؤال صغير لك هو قمت بتقسيم الاكسس الى قسمين قاعدة بيانات تحوي الجداول فقط واخرى تحوي النماذج والاستعلامات والتقارير ؟؟ تحياتي للجميع