ابو جودي

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

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

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

طيب اتفضل جرب يا مولانا 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 ما فيش شكر بين الخوة اهلا بيك

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

اتفضل 5.accdb

اهلا استاذى الجليل ومعلمى القدير الاستاذ الفاضل @أبو إبراهيم الغامدي حضرتك قلت وبكلام مختصر: عند إضافة أو تحرير سجل.. أنت لست بحاجة إلى تحميل بيانات الجدول بالكامل! وبناءً عليه نستخدم وصلات الاستعلام للوصول للبيانات بشكل محدد.. طيب ما البيانات فى الاستعلام هى هى البيانات اللي بالجدول ؟ ما الفرق أستاذي واللا حضرتك تقصد لو الجدول يحتوى 10 حقول ممكن نستخدم فى الاستعلام 4 حقول فقط حسب الحاجة

هذا الروتين يكتب داخل الموديول Public Function AllowKeyCode(KeyCode As Integer, Shift As Integer) As Integer Select Case KeyCode Case 70 And Shift = 2 AllowKeyCode = KeyCode MsgBox ("turning off ctrl+f") Case 72 And Shift = 2 AllowKeyCode = KeyCode MsgBox ("turning off ctrl+h") Case Else AllowKeyCode = 0 End Select End Function ويتم استدعاء الامر فى زوايا التطبيق من خلال الكود الاتى KeyCode = AllowKeyCode(KeyCode, Shift) فى حدث KeyDown اما لاحد العناصر على النموذج او KeyDown للنموذج نفسه اعتذر تم الرد بتسرع دون الوقوف على الية عند تنفيذ الروتين الخاص بالكود ... وتم حل المشكلة