ابو جودي

تأكد من المرفق

هات مثال وانا اجرب

استاذى الجليل ومعلمى القدير و والدى الحبيب الأستاذ @jjafferr السلام عليكم ورحمة الله وبركاته اولا المشاركة فى نفس السياق هل يمكن الاستكمال هنا ام افتح موضوع جديد يخصها حتى لا اصبح مخالفا من فضلك انا تعثرت فى تنفيذ تلك الطريقة من فضلك ان سمح وقتكم الثمين التعديل على المرفق المفروض يحدث الاتى 1- ترقيم يخص الصادر واخر يخص الوارد كل منهما منفصل يبدأ من الرقم 1 ويبدأ مع بداية العام الجديد مرة أخرى من 1 2- فى المرفق انا ظبط على اعتبار اننا نريد الصادر 3- شكل الترقيم ( نوع الخطاب مسلسل الخطاب/ العام الحالى ) مثلا سوف يكون >>-----> صادر 1/2020 صادر ثم 1 ثم / ثم 2020 حالوت ضبط ان الترقيم لا يتداخل على الشبكة ولكن لم استطع الضبط وصار يحدث اخطاء فى زيادة السجلات وتعارض الجهازين بتعديل احدهما على سدل الاخر العمل محصور فى الجدول tblBook و النموذج frmBook test.zip

ماشى عاوز تعمل ايه بقه فهمنى بالراحة انت عارف فهمى تقيل يس اما افهم تلاقينى فوريرة

جزاكم الله خيـرا با مولانا والله ما كنت اعرف انها تنفع اول مرع اجربها ... انت راجل سمح وده رزقك ساقه الله اليك الحمد لله الذى تتم بنعمته الصالحات

اه نسيت ويا استاذ محمد حمزه مش عاوز اشوفك تانى انت جيبت لى صداع

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

طيب اتفضل جرب يا مولانا BackUp V2.accdb

تم التعديل على الكود بصيد الخطأ فى حالة تم الحاق البيانات من قبل كما تم التعديل على الجدول TableBarcodeBrExh حتى لا يقبل التكرار On Error GoTo Err_CmdMove_Click If IsNull([FBarcod]) Then MsgBox (ChrW("1581") & ChrW("1602") & ChrW("1604") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1576") & ChrW("1575") & ChrW("1585") & ChrW("1603") & ChrW("1608") & ChrW("1583") & ChrW("32") & ChrW("1605") & ChrW("1591") & ChrW("1604") & ChrW("1608") & ChrW("1576")) Me.FBarcod.SetFocus Else Dim db As DAO.Database Dim rs As DAO.Recordset Dim i As Integer Dim intQty As Integer Set db = CurrentDb Set rs = db.OpenRecordset("TableBarcodeBrExh") intQty = [Nom] For i = i To intQty rs.AddNew rs("ID") = Me![id] rs("itmCode") = Me![CodeItem] rs("NameItem") = Me![ItemNam] rs("NoBarcode") = Me![FBarcod] + i + 1 rs("Unets") = Me![Unet] rs("NoMat") = 1 rs("Praice") = Me![PrIce] rs("Qty") = 1 rs("Totals") = 1 rs.Update Next i rs.Close Me![Form_BarcodeBrExhSubform].Requery MsgBox "done" End If Exit_CmdMove_Click: Exit Sub Err_CmdMove_Click: If Err.Number = 3022 Then MsgBox (ChrW("1578") & ChrW("1605") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1581") & ChrW("1575") & ChrW("1602") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1576") & ChrW("1610") & ChrW("1575") & ChrW("1606") & ChrW("1575") & ChrW("1578") & ChrW("32") & ChrW("1605") & ChrW("1606") & ChrW("32") & ChrW("1602") & ChrW("1576") & ChrW("1604")) Else MsgBox Err.Description Resume Exit_CmdMove_Click End If الحمد لله بس خلاص رقم الباركود - Update v1 .accdb

اتفضل الكود على زر الامر ترجيل On Error GoTo Err_CmdMove_Click If IsNull([FBarcod]) Then MsgBox (ChrW("1581") & ChrW("1602") & ChrW("1604") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1576") & ChrW("1575") & ChrW("1585") & ChrW("1603") & ChrW("1608") & ChrW("1583") & ChrW("32") & ChrW("1605") & ChrW("1591") & ChrW("1604") & ChrW("1608") & ChrW("1576")) Me.FBarcod.SetFocus Else Dim db As DAO.Database Dim rs As DAO.Recordset Dim i As Integer Dim intQty As Integer Set db = CurrentDb Set rs = db.OpenRecordset("TableBarcodeBrExh") intQty = [Nom] For i = i To intQty rs.AddNew rs("ID") = Me![id] rs("itmCode") = Me![CodeItem] rs("NameItem") = Me![ItemNam] rs("NoBarcode") = Me![FBarcod] + i + 1 rs("Unets") = Me![Unet] rs("NoMat") = 1 rs("Praice") = Me![PrIce] rs("Qty") = 1 rs("Totals") = 1 rs.Update Next i rs.Close Me![Form_BarcodeBrExhSubform].Requery MsgBox "done" End If Exit_CmdMove_Click: Exit Sub Err_CmdMove_Click: MsgBox Err.Description Resume Exit_CmdMove_Click

اتفضل BackUp.accdb

ممكن مرفق للتجربة

ماشى سهله بس ممكن سورة نموذج من اخر مرفق بالبيانات لاول 3 سجلات كامله فى النموذج الفرعى واللى المفروض تكون زى ما انت تريد بناء على بيانات النموذج الرئيسي

لا تخاف من شئ راح احكى للمنتدى كله بس لكن خارج المنتدى لا سرك ببير ماله عمق

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

خلينا نقطه نقطه 9203406 ده كود صنف اسم الصنف معجون طماطم الاقى فين اخر رقم باركود ليه اللى هنبدأ بيه الشغل ولو صنف جديد ماله باركود اصلا ازاى تبدأ

1- من رقم بار كود : انت ياللى بتكتبه ؟ 2- والعدد : انت ياللى بتكتبه ؟ عدد الكرتونه الواحدة ام عدد الزجاجات بداخلها 3- الكمية التى يحتوى عليها الوحدة : انت ياللى بتكتبه ؟ عدد الكرتونه الواحدة ام عدد الزجاجات بداخلها

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

هذا المرفق يحتوى على نموذج بدون مصدر بيانات وحقول غير منضمه ومن خلاله يتم الحاق البيانات بالجدول الشرح Dim db As DAO.Database Dim rs As DAO.Recordset Set db = CurrentDb Set rs = db.OpenRecordset("اسم الجدول") rs.AddNew rs("اسم الحقل فى الجدول") = Me![اسم الكائن فى النموذج] rs.Update rs.Close 606969672_Unboundform.mdb

شوف كده رقم الباركود.accdb

لوحة مفاتيح OfficenaKeyboardUtility {V. 2 64 Bit}.mdb

ادة مهمة لا غنى عنها تحويل الحروف والارقام الى الترميز العالمى UNICODE وذلك لكتابة الرسائل داخل المحرر منعا لمشاكل اللغة العربية نهائيا والعكس طبعا لقرائتها كرة أخرى Converter Arabic and Unicode (v. 2).mdb

انا بكل صدق مش فاهم شئ

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

الحمد لله الذى هدانا وما كنا لنهتدى لولا ان هدانا الله عزوجل سبحانك لا علم لنا الا ما علمتنا لك الفضل كله والحمد و الشكر لك يارب العالمين ولا احترافى ولا حاجة ده اقل شئ عندى ........ طبعا باضحك معاك ده بس من كرم اخلاقك يا استاذ @tiger wanted ما فيش شكر بين الخوة اهلا بيك