د.كاف يار

اخي الكريم الواضح من كلامك انك تحتاج تحفظ مسار كل صورة في قاعدة البيانات اذا كان هذا قصدك اتفضل هذا الكود انشاء الله يفي بالغرض Dim Path As String Path = "ضع هنا مسار الملجد" Dim msg As String Dim objFSO As Object Dim objFolder As Object Dim objFile As Object Dim i As Integer Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFolder = objFSO.GetFolder(Path) For Each objFile In objFolder.files msg = msg & vbNewLine & objFile.Path ' ضع هنا عنصر التحكم الذي سيتم حفظ المسار اليه Next objFile

كلمة مبدع قليلة في حقك

تفضل التعديل اخي الكريم ملاحظة قم بالغاء ارتباط النماذج لكي يعمل معك الكود تفضل الملف بعد التعديل f1.rar

الف الف شكرا اخي @jjafferr تنسيق جميل جدا شكرا لكم اخواني و دائما في الخدمة

اضغط شفت باستمرار ( اي ضغطه واحده طويلة الى ان يفتح معك)عند الفتح

تفضل التعديل اخي الكريم ضبط_التاريخ (3).accdb

تفضل لكن لو تقرأ المعادلة ستجد أنك ملزم بتنسيق معين لأرقام الوثائق xx.accdb

تفضل سيتم اضافة عدد 1 لرقم الوثيقة حتى لو اختلف السيريال ضع هذا في عنصر التحكم ( مربع نص ) في النموذج Replace(DLast("[رقم الوثيقة]";"[ضد الغير]");Mid(DLast("[رقم الوثيقة]";"[ضد الغير]");11);Mid(DLast("[رقم الوثيقة]";"[ضد الغير]");11)+1)

تفضل التعديل اخي الكريم DoCmd.RunSQL " INSERT INTO (No_facture , prod_code, description, prod_quantity, total) VALUES ('"& fature &"', '"& code &"' , '"& description &"' , '"& quantité &"' , '"& total &"' ) ;" كان الخطأ في هذه الجزئية (fature, 0) الحل ان تضعها بين ' " & fature & " ' و تضع الصفر ضمن معادلة الترقيم افضل او اجعلها كتالي '"& IIF(IsNull(fature ),0,fature )&"'

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

اخي الكريم كنت اقصد في هذا الجزء بأنك تستيطع تصميم برنامج على واجهات غير الاكسس مثل VB.ASP و هي الاقرب الى الاكسس

اخواني الافاضل تم شرح الخطوات بالصور ليسهل تطبيقها وتجدونها في المرفقات. اولاً اذا كانت قاعدة البيانات باللغة العربية حولها على الانجليزية ، واسهل وسيلة لعرض بيانات قاعدة بيانات SQL Server هي الاكسس و بما اننا نتكلم عن قاعدة بيانات على الاكسس انصح انك تبدء تصمم الواجهات على VB.Net او ASP.Net ، فهي لا تختلف كثيرا عن الاكسس ، لكن المميز فيها بأن المستخدم يستطيع الاستفادة من برنامجك على جميع الاجهزة كمبيوتر - لابتوب-موبايل - ايباد و غيرها ثانيا انشئ حساب على سيرفر SOMEE من : https://somee.com/default.aspx و اختر حزمة الاستضافة المجانية https://somee.com/DOKA/DOC/DOLoginOrRegister.aspx . . . . . عمل قاعدة بيانات SQL Server . . . . . . . برنامجك الاكسس : . . . . . . . . . . . . . . . . . في حال وجود اي استفسارات ارجوا كتابتها في التعليقات نشر قاعدة البيانات.zip

تفضل التعديل اخي الكريم و لإضافة رقم 1 على اخر وثيقة ضع في القيمة الافتراضية لحقل رقم الوثيقة ="41/20/995/" & Mid(DLast("[رقم الوثيقة]";"[ضد الغير]");11)+1 kkkkk1.accdb

تفضل التعديل اخي الكريم wesam.zip

تفضل اخي الكريم c12 (2).accdb

اخي الكريم ارفق نسخة من الملف ان امكن لكن نحاول معك

اذا نبدء خطوة خطوة اولاً اذا كانت قاعدة البيانات باللغة العربية حولها على الانجليزية ثانيا انشئ حساب على سيرفر SOMEE و اختر حزمة الاستضافة المجانية من هنــــــــــــا ثالثا بعدالدخول على حسابك قيم بالنشاء قاعدة بيانات جديدة على السيرفر ثم هنا ثم استكمل البيانات قم بانجاز هذه المهام و لنا عودة بعدها و بعدها بخطوة سهلة سيتم ترحيل قاعدة بيانات اكسس على القاعدة الجديدة SQL

اتفضل التعديل c12 (2).accdb

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

اجراءات يجب ان تأخذ في الحسبان يجب عليك ازالة المسافات بين الكلمات ان وجدت لأنك ستواجه مشكلة مع التقارير فقط استبدل المسافات بعلامة "_" كذلك ارسال الباينا لقاعدة البيانات عن طريق الاكسس بطيئة !!!!!!!! انتبه الافضل اذا رغبت في انشاء قاعدة بيانات انشاء الننماذج على الفيجوال بيسك او PHP و غيرها من لغات البرمجة فهي سريعه في قل البياات الاكسس مع SQL لن تستطيع الاستغاء عن الاكسس لأن اسهل وسيلة لعرض بيانات قاعدة بيانات SQL هي الاكسس و بما انك تفكر في انشاء قاعدة بيانات على الاكسس انصح انك تبدء تصمم الواجهات على VB.ASP فهي لا تختلف كثيرا عن الاكسس لكن المميز في الموضوع بأن المستخدم يستطيع الاستفادة من برنامجك على جميع الاجهزة كمبيوتر - لابتوب-موبايل - ايباد و غيرها حين تقرر هذه الانتقالة ابدء بانشاء موضوع جديد و سأقوم بمساعدتك لإنشاء اول تطبيق يتوافق في عرضه مع جميع الاجهزة بما فيها الموبايل

تفضل هذا تعديل على ملف اخي الكبير و استاذي @محمد أبوعبدالله c12 (1).accdb

مشاركة مع الاخوة استخدم قناع الادخال اخي الكريم فهي اسهل الطرق من خصائص عنصر التحكم > البيانات > قناع الادخال - و اختار النوع كلمة المرور او اقتراح اخر عرف متغيير من نوع String و في حدث بعد التحديث اجعل قيمة المتغيير هي عنصر تحكم كلمة المرور و بعد اعطاء القيمة للمتغيير يتم اعطاء قيمة اخرى لعنصر التحكم كما تريد علامة النجوم

من الجميل ان تتعدد الحلول تفضل هذه مشاركة من طرفي اخي الكريم c12.accdb

سؤال غير واضح

اتفضل يابوعبدالرحمن استيراد الملف الى ملف Mobile برنامج_تصدير_الطلاب_للسجل_الالكتروني_حسب_المادة_معتمد.mdb