عبد الله قدور

اضغط على قاعدة البيانات بزر اليمين ثم اختر خصائص ثم اختر إلغاء الحظر ثم موافق

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

اعطيك مثال كبير في هذا المجال وهو برامج المحاسبة ، تحتاج فيها الى سرعة كبيرة في ادخال البيانات مع مراعاة الدقة ، فعندما يضع المبرمج نوافذ معقدة ورسائل تحذيرية وتنبيه كثيرة ، يضيع الوقت وتذهب الدقة ويبقى المستخدم غائص في رسائل التحذير ويحاول تجاوزها لاضافة القيد رايت احد البرامج المحاسبية يسألك عند حذف سند قيد هل تريد حذف سند القيد تختار نعم ثم تظهر لك رسالة ثانية هل تريد التراجع عن حذف القيد هنا يجب ان تختار لا حتى تتمكن من حذف قيد ، برأيي هنا السؤال الثاني العكسي لا معنى له وهو مضيعة للوقت والتركيز بما أنني ضغط على زر الحذف واخترت نعم على الرسالة الاولى فأنا اعي ما افعل و اتحمل مسؤولية خياري في الحذف و برنامج اخر عندما تضغط اضافة تظهر لك رسالة هل تريد الاضافة تختار نعم فيتم الاضافة ثم رسالة تمت الاضافة بنجاح تختار نعم لاغلاق النافذة يجب ان تضغط جديد للانتقال الى فاتورة جديدة طبعا مع رسالة ثلاثة هل تريد فتح فاتورة جديدة ، تصور اني محاسب في شركة وعندي اضافة 200 فاتورة مبيعات و 50 سند قيد و 100 مشتريات بهذه الحالة عندي 1050 رسالة تحذير او تاكيد ، والله هذا يعتبر جريمة بحق مستخدم البرنامج طبعا هذه ميزة رائعة في الاكسس وانا استخدمها كثيرا لتوفير الوقت والعمل

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 نحن بانتظار الفيديو تحياتي

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

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