ابو عبد الرحمن اشرف

السلام عليكم ورحمة الله وبركاته اخواني واساتذتي الكرام عندي قاعدة بيانات مقسمه الي جداول ونماذج وعند الخروج من البرنامج يتم عمل نسخة احتياطية علي مجلد علي الدريف :c المشكلة هنا تكمن في ماذا لو تم عمل عطل للكمبيوتر ككل ولم نستطع الوصول الي قاعدة البيانات او النسخة الاحتياطية وعليه كان من الضروري عمل نسخةاحتياطية علي البريد الالكتروني بحيث نستطيع قتحها من اي مكان او من اي جهاز اخر وهذا هو المديول : Option Compare Database Option Explicit Public Function InitiateAutoBackup() As Boolean ' هذه الدالة خاصة بعملية التحقق من البدء في إجراء النسخ الاحتياطي ' ثم إنشاء النسخة الاحتياطية حسب المعطيات ' وهي الدالة التي يتم مناداتها في ماكرو AutoExec On Error GoTo HandleError Dim WhereToSave As String InitiateAutoBackup = False ' مكان الحفظ بجانب قاعدة البيانات 'WhereToSave = BECurrentPath & "Bakup\" WhereToSave = "c:\Bakup" ' التحقق من وجود نسخة سابقة أم لا .. وعمل النسخة في حال عدم وجودها If CheckBackupWeek() = False Then ' يفحص من جدول النسخ الاحتياطية إذا كانت هناك نسخة محفوظة سابقا خلال هذا الأسبوع ' إذا ما وجدها يحفظ وإذا وجدها ينتقل للإجراء التالي Call BackupToPath(WhereToSave) InitiateAutoBackup = True Else ' توجد نسخة سابقة لذلك يلغي العملية InitiateAutoBackup = False Exit Function End If HandleExit: Exit Function HandleError: If err.Number = 0 Then Exit Function Else MsgBox err.Number & vbNewLine & vbNewLine & err.Description, , "Code : InitiateAutoBackup()" End If Resume HandleExit End Function

لا حرمني الله منك اخي الحبيب الغالي تم الامر كما ينبغي

السلام عليكم ورحمة الله وبركاته اخواني واساتذتي الكرام ارجوا مساعدتي في جدول به حفل اسمه( المدة من) وحقل اخر اسمه (المدة الي) اريد وضع شرط في حقل (المدة الي ) بحيث لا يقبل تاريخ اقل من الموجود في (المدة من ) فمثلا مدة ايجار تبدأ من 1/06/2025 تنتهي في 01/12/2025 تم تدوينها بالخطأ 01/01/2025 والبرنامج قبل ذلك بدون تنبيه للمستخدم ان التاريخ خطأ

اجزل الله لك العطاء كفيت ووفيت بارك الله فيك اخي

1 - اسم قاعدة الجداول ‏‏‏‏برنامج العقارات 23 _be.accdb 2 - اسم الجدول tblCtrlDate اسم الحقل ctrlDate البرنامج موجود علي C:\ashraf .................................................................................................. حضرتك لو تريد تغيير اسم قاعدة البيانات مفيش مشكلة وانا اقوم بتغييرها عند العميل

حبيبي الغالي ابو جودي هل تلك الوحدة النمطية تعمل علي 64بت ام تحتاج تغيير في الصيغة

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

بارك الله فيك اخي

الله يجزيك الخير تمام ولكن تبقي ان نخفي التاريخ عند كتابته فيظهر نجوم و عند استدعاء النموذج frm1 يكون بكلمة سر حتي لا يعبث به المستخدم وبارك الله فيك لخي الحبيب

اخي الحبيب الفاضل الذي اعرفه انه طالما نسخة الويندوز 32 بت فلابد يكون الاوفيس 32 وان عندي اللاب قديم فلا يقبل اوفيس 64 بت فهل هناك طريق لنسخة وهمية مثلا

السلام عليكم ورحمة الله وبركاته اساتذتي الاعزاء واعضاء منتدانا الكرام جهاز العميل اوفيس 64 وجهازي اوفيس 32 فأضطر عند عمل اي تعديل الي نسخ الملف المفتوح الي جهازه والاغلاق عنده مع العلم ان هناك واجهه(النماذج) وخلفي (الجداول) فما الحل ؟

@ابوخليل هل بالامكان عمل ذلك علي الملف المرفق وجزاك الله خيرا

وكيف يمكنني او يمكنك عمل دالة الربط آلية عند الاقلاع بملف توضيحي بارك الله فيك

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

السلام عليكم ورحمة الله وبركاته اساتذتي الكرام واعضاء ذلك المنتدي الرائع عندي قاعدة بيانات مقسمة الي الخلفية (الجداول) والواجهه و تحتوي علي النماذج كل ستة شهور اقوم بتغيير تاريخ الصلاحية حتي تعمل قاعدة البيانات فاضطر الي نسخ الملف المفتوح الي كمبيوتر العميل وفتحة والدخول الي حدث عند الفتح واقوم بتغير التاريخ ثم احول الملف الي ملف مغلق فهل هناك طريقة لتعديل تاريخ الصلاحية عن طريق نموذج جديد دون الدخول الي اوامر الفيجول بيزك بحيث يتم التعديل مباشرة علي كمبيوتر العميل والي حضراتكم نموذج الواجهه الذي يحتوي علي حدث عند الفتح وبه التاريخ المحدد Database1.accdb