د.كاف يار

عشان لا تكون الأرقام صحيحة و لا تجبر الكسور يجب تحويل المتغيير الى Double مرفق الملف بعد التعديل دالة.accdb

اتفضل هذا التعديل يابو الحسن فانت بحاجة الى مقارنة التاريخ بنطاق تواريخ السنوات المالية ملاحظة يجب ان لا يكون حقل السنة المالية متاحا لكي يتم تنفيذ الشرط سوف تظهر السنة المالية اذا كان التاريخ ضمن نطاق التواريخ في الجدول و غير ذالك فإن القيمة ستكون صفر 0 DATA14.zip

تفضل التعديل Microsoft Access قاعدة بيانات جديد.zip

تفضل هذه المشاركة مع الأخوان Dawam1 (1).zip

هل يوجد رسالة خطأ ؟؟

بعد اذن اخي عمر اتفضل التعديل حذف و اضافة و انشاء نسخة سيتم انشاء مجلد بجوار قاعدة البيانات لحفظ النسخة Microsoft Access قاعدة بيانات جديد.accdb

يفضل ارفاق مثال لكي يسهل معرفة المشكلة و اعطاء الحل المناسب

هل جميع هذه الملفات مختلفة عن بعضها ؟؟؟

تفضل هذا المثال و هو عبارة عن حفظ معلومات تسجيل الدخول بإستخدام ملف خارجي ادخل اي معلومات النموذج للمثال فقط ليس مرتبط بأي جدول بعد ملئ جميع الحقول و اختيار حفظ معلومات الدخول ستظهر لك رسالة بهذا الشكل بعدها ستجد بجوار قاعدة البيانات ملف بهذا الشكل شكل الملف من الداخل المعلومات مشفرة بإستخدام التشفير لكن الفكرة انه عند اغلاق النموذج و اعادة فتحه ستجد بأنه تم جلب البيانات للحقول Database2.mdb

تفضل استخدم هذا الكود مع اضافة - موقع قاعدة البيانات - كلمة المرور - اسم الجدول Dim db As DAO.Database Dim rs As DAO.Recordset Dim strDbFile, strPassword, PDb As String '================ معلومات قاعدة البيانات البعيدة ======================== strDbFile = CurrentProject.Path & "\MyData1.mdb" strPassword = "123" '============================================================= Set db = DBEngine.OpenDatabase(Name:=strDbFile, Options:=False, ReadOnly:=False, Connect:=";PWD=" & strPassword) Set rs = db.OpenRecordset("table_name") rs.AddNew rs.Fields(0).Value = [TextBox1] rs.Fields("column_name").Value = [TextBox2] rs.Update rs.Close Set rs = Nothing تفضل التعديل يمكن استخدام نفس الطريقة في حال تحديث البيانات و لكن هنالك فكرة !!!!!!!! ان تقوم بإنشاء جدول ممثال في حال التحديث تذهب البيانت المحدثه للجداول الجديد بدورك تشييك و تتأكد من صحة البيانات و اذا ما فيه اخطاء يصير ترحل التحديث لجميع الجداول الأساسية بذا تضمن ان البيانات في جميع الجداول مدخلة بشكل سليم New folder.zip

هل عندك ملفات اخرى مختلفة عن هذه لأني راح اعدلك الكود ما يحتاج

السبب أن عدد الأعمدة مختلف بين الجدولين

هل فيه رسالة خطأ؟

خلاص لغينا استخدام المكتبة جرب هذا التعديل Database2.mdb

اعطيني نسخة فارغة من برنامجك

جرب المحدد باللون الأحمر

جرب هذا Database2.mdb

ماهو اصدار الاوفيس لديك ؟؟

اعطيني صورة من المكتبات

اضف المكتبة التالية

تم التحويل في المشارركة في الأعلى لكن تفضل هذه مرة اخرى Database2.mdb

طيب اربط مربع الصورة بالجدول مباشرة لأن رابط الصورة بالكامل راح يكون في الجدول

تم كذلك المرفق يناسبك تم هذا اصدار 2003 Database2.mdb

ارفق ملف مثال عشان تاخذ عليه التعديل او استخدم الكود التالي Dim fso As Object Dim oFSO As Object Dim oFolder As Object Dim oFile As Object Dim i As Integer Dim x As String Set oFSO = CreateObject("Scripting.FileSystemObject") Set oFolder = oFSO.GetFolder("مسار المجلد") For Each oFile In oFolder.Files x = x & vbNewLine & oFile.Name Next oFile MsgBox x سيتم عرض اسماء الصور التي في المجلد في صندوق الرسائل لكن لو حبيت ان تحتفظ بمسار الصور داخل قاعدة الببيانات تفضل هذا المثال اختر المجلد ثم تحميل سيتم تحميل كافة اسماء الملفات و اضافة رابط الموقع اليها Report.accdb

جرب هذا الحل If Len([TextBox1].Text) > 145 Then Exit Sub If Len([TextBox1].Text) > 111 Then [TextBox1].Width = 55 * Len([TextBox1].Text) End If الشرح اذا كان في النموذج يجب ان تستخدم Text للتركيز على المدخلات على الحقل و يكون الشرط اذا تجاز عدد الحروف المدخلة عن 111 حرف سيتم توسيع مربع النص بالعرض Width و حتى ان يصل عدد الحروف الى 145 حرف سوف يتوف النمو العرض و سيتم بالنمو الطولي هذه الفكرة بإختصار