د.كاف يار

الطلب غير واضح من اين يتم ملئ الحقول و ماهو النموذج المطلوب العديل عليه تفضل هذا التعديل بخصوص اضافة اسم المستخدم عند تغيير كلمة المرور قاعدة البيانات للمستخدمين.zip

تفضل التعديل 3الدائن و المدين.zip

زودنا بصورة من رسالة الخطأ جرب هذا التعديل Request.accdb

للإضافة استخدم الكود التالي Dim db As DAO.Database Dim rs As DAO.Recordset Set rs = CurrentDb.OpenRecordset("ضع اسم الجدول هنا") rs.AddNew rs![Folde1]=[TextBox1] rs![Folde2]=[TextBox2] rs![Folde3]=[TextBox3] rs.Update rs.Close Set rs = Nothing لتعديل البيانات استخدم الكود التالي Dim db As DAO.Database Dim rs As DAO.Recordset Set rs = CurrentDb.OpenRecordset("SELECT * FROM TabolName Where [Folde1]='"+ [TextBox1] +"'") rs.Edit rs![Folde1]=[TextBox1] rs![Folde2]=[TextBox2] rs![Folde3]=[TextBox3] rs.Update rs.Close Set rs = Nothing حذف سجل استخدم الكود التالي Dim db As DAO.Database Dim rs As DAO.Recordset Set rs = CurrentDb.OpenRecordset("SELECT * FROM TabolName Where [Folde1]='"+ [TextBox1] +"'") rs.Delete rs.Close Set rs = Nothing لإستدعاء بيانات محدد الى النموذج استخدم الكود التالي Dim db As DAO.Database Dim rs As DAO.Recordset Set rs = CurrentDb.OpenRecordset("SELECT * FROM TabolName Where [Folde1]='"+ [TextBox1] +"'") If Not rs.BOF Then ' عرض السجلات التي بها بيانات فقط rs.MoveFirst 'بيانات السجل الأول فقط [TextBox1] = rs.Fields(1) [TextBox2] = rs.Fields(2) [TextBox3] = rs.Fields(3) End If rs.Close Set rs = Nothing

تفضل التعديل 2الدائن و المدين.zip

من كشف الحساب تطبع المعروض

هذي مشكلة الطلب العام بدون تحديد اي هدف اولا هذا الكود فقط لإستدعاء البيانات من الجدول كما شرحت لك بالنسبة للإضافة يلزمك تضيف AddNew بالنسبة للشرط مثله مثل اي شرط ثاني الأفضل انك تفتح موضوع لكل طلب عشان الجميع يقدروا يساعدوك شكرا لك

يابو الحسن هذي الأمور البسيطة حاول تسويها بنفسك ما يحتاج تطلبها اتفضل التعديل الدائن و المدين.zip

للأن مافهمت هذي العبارة كيف تحتاج تدخل 60 قيد دفعة وحدة بدون ملف الإكسل ؟؟؟ اتضفل هذا التعديل 3333NewData22.zip

يجب ان تتعلم بنفسك هذه اسهل طريقة لكي تجلب البيانات من الجدول الى الحقول داخل النموذج ضع هذا الكود مثلا بعد تحديث حقل رقم الموظف Dim db As DAO.Database Dim rs As DAO.Recordset ]Dim MyTabol As String MyTabol="ضع هنا اسم الجدول" Set rs = CurrentDb.OpenRecordset("SELECT * FROM " & MyTabol ) If Not rs.BOF And Not rs.EOF Then rs.MoveFirst While (Not rs.EOF) if rs.Fields("اسم الحقل في الجدل الذي يحمل رقم الموظف") = [اسم الحقل في النموذج الذي يحمل رقم الموظف] then ' هنا سيتم وضع شروط لتعبئة الحقول فقد اخترنا مثلا رقم الموظف [اسم الحقل1 في النموذج] = rs.Fields("اسم الحقل في الجدل1") [اسم الحقل2 في النموذج] = rs.Fields("اسم الحقل في الجدل2") [اسم الحقل3 في النموذج] = rs.Fields("اسم الحقل في الجدل3") [اسم الحقل4 في النموذج] = rs.Fields("اسم الحقل في الجدل4") end if rs.MoveNext Wend End If rs.Close Set rs = Nothing

تفضل هذا التعديل YasEnEx2021.rar

في حدث بعد التحديث ضع التالي في البداية If Nz(DCount("[باركود]", "Emp", "[باركود]=" = [الباركود]), 0) = 0 Then MsgBox "الباركود غير مسجل في النظام", vbCritical + vbMsgBoxRight + vbOKOnly, "تنبيه" [الباركود]=Null Exit Sub End If YasEnEx2021.zip

طلبك عام و لم تقم بتحدد المشكلة

حديث خطأ تفضل هذا التعديل NewData22.zip

تفضل التعديل كما أمل حذف الصور حفاطا على خصوصية اصحابها شكرا لتفهمك Main.mdb

طريقة ربط غير صحيحة مرفق.accdb

اتفضل التعديل يابو الحسن تعديل او اضافة السنة المالية من خلال الإعدادات الآلية ( سيتم في كل الأحوال اعتماد قيمة السنة الحالية الأخيرة المدخلة و سيتم ادراجها بشكل تلقائي عند الإدخال)

بصراحة شفرة في قمة الروعة يعني مشكلة التاريخ بهذي الطريقة انتهت نهائيا و يعامل التاريخ كأنه رقم شكرا لك اخي الكبير @jjafferr اتفضل التعديل يابو الحسن 555NewData2.zip

تفضل هذا التعديل و بطريقتين 2223131323.zip

هذا نفس المثال السابق

نداء لأخويا الكبير و معلمي الأستاذ @jjafferr الفورم لا يستطيع التعرف على التاريخ رغم الإعلان عن متغيير للتاريخ نأمل ان نجد الحل لديك

جرب هذا NewData23333333.zip

تفضل هذا خط الباركود يحول اي نص الى باركود يستطيع اي قارئ براكود قرائته مثل هذا qr_font_tfb.zip

جرب هذا التعديل NewData2222.zip

محتمل ذلك جرب هذا التعديل 4NewData.zip