د.كاف يار

دائيما لكي تحصل على نتيجة احرص على ان ترفق مثال لكي يتم التطبيق عليه تفضل التعديل bumb.accdb

اتفضل يابوالحسن If DCount("*", "tbl_Items", "iBill_Number Like '" & Main_iBill_Number & "' AND iPage=" & iPage) <> 0 Then MsgBox "فشل الاختيار" & vbNewLine & "تم ادخال هذا الحساب مسبقا", vbCritical + vbMsgBoxRight, "تنبيه" Me.iPage.SetFocus Exit Sub Else DoCmd.GoToRecord , , acNewRec Me.iName.SetFocus End If

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

عمل جميل و للتصحيح هذا ليس ترميز بل ترقيم مضاف الى نصوص او حروف Auto numbering with letters الجميل في الموضوع ان الكود سهل الفهم للغاية و يستطيع المستخدم المبتدء قرائته و فهم المتغيرات و الوظائف Function المستخدمة الف الف شكر لك اخي تم اضافة هذا العمل الجميل لمكتبتي

لن يتم اضافة المستخدم الآخر على نفس الملف سيتم انشاء ملف بإسم كل مستخدم تفضل هذا شرح بالفيديو المرفق Video2.zip

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

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

يستحسن ان ترفق مثال او تستخدك التالي Dim db As DAO.Database Dim rs As DAO.Recordset Dim x As String Set rs = CurrentDb.OpenRecordset("Table_Name") If Not rs.BOF And Not rs.EOF Then rs.MoveFirst While (Not rs.EOF) ComboBox1.AddItem rs.Fields(1) ComboBox1.ListWidth = 2.5 * (1440) rs.MoveNext Wend End If rs.Close Set rs = Nothing

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

هذا المثال لأخونا @Eng.Qassim انصحك فيه سهل للغاية و تستطيع فهمه و تطبيقه في برنامجك لا تبحث عن حلول معقدة

من وجهة نظري لا يوجد حل افضل من هذا ايسرها و اخفها و سهلة الفهم درس سريع و مباغت و بشكل احترافي مع مثال 😂

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

تفضل هذا التعديل 3MyStore1.zip

كذلك توجد لديك نفس المشكلة في النموذج الفرعي تجنب وضع الأحداث عند التركيز تفضل هذا التعديل 2MyStore1.zip

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

في اي نموذج توجد المشكلة ؟؟ ماهو اسم النموذج

شغلك صحيح بس فيه خطأ بسيط حقل السنة رقمي If Nz(DCount("[iPage]", "tbl_Items", "[YEAR] = " & [YEAR] & "[iBill_Number] Like '" & iBill_Number & "' AND [iPage]=" & iPage), 0) <> 0 Then

للأن سؤالك غير واضح الافضل ترفق نسخة من برنامجك لكي يتم التعديل عليه شكرا لك

في اعتقادي لا يمكن لأنهاء مع التجربة و جدت ان الرقم يختفي الا في حال كان التحديث بطيئ

طريقة اخرى بإستخدام الحلقة التكرارية داخل النموذج الفرعي Dim db As DAO.Database Dim rs As DAO.Recordset Dim LineNumber As Integer LineNumber = 0 Set db = CurrentDb Set rs = [Forms]![date_napsa]![WORKERS_DETAILS Subform].Form.Recordset rs.MoveFirst Do Until rs.EOF [Forms]![date_napsa]![WORKERS_DETAILS Subform]![discount_napsa] = [discount_napsa_main] rs.MoveNext Loop napsa.mdb napsa.zip

جرب هذا الحل التحديث مع عداد الوقت لكل ثانية لحقل محدد لكي لا يشعر المستخدم بوجود تحديث 😅 Nouveau Microsoft Access Database.accdb

تفضل If MsgBox("هل تريد حفظ التغيرات ؟", vbCritical + vbYesNo, "تنبيه") = vbNO Then Cancel = True SendKeys "{ESC}" Else DoCmd.RunCommand acCmdSaveRecord Exit Sub End If

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

وهذه مشاركتي مع اخواني Loop.accdb

لأن اصدار الوينرار قديم حدث الوينرار و راح تفتح معك