ابو جودي

الله يسامحك يا سيدى فين الجدول اللى اسمه 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 للنموذج نفسه اعتذر تم الرد بتسرع دون الوقوف على الية عند تنفيذ الروتين الخاص بالكود ... وتم حل المشكلة

ما شاء الله الله اكبر مع الاستاذ @jjafferr لا توجد فى قاموس الاكسس كلمة مستحيل

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

انت لا يا الاكل يا الحل 😡 سيبك من الانقطاع دلوقتى لكل مقام مقال وانت اخدت الحل اترك لنا الاكل

طالما هناك عشاء لا تقلق 😋 لن نتأخر عنكم ابدا أستاذى دائما نحن فى الخدمة

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

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

انا أصبحت ضائع نتحدث فى الاصل عن ربط القاعدة الامامية بالخلفية .. صح ثم أخبر الاستاذ @أبو إبراهيم الغامدي ان كل بيانات الاتصال تظهر بالجدول MSysObjects فى الحقل Connect واشار سيادته بطريقة ربط غير مباشرة ثم بعد ذلك سألت كيف ننشئ الإستعلامات مع هذه الطريقة وكان رد سيادته وتفضلتم سيادتكم استاذى الجليل بالشرح الوافى بالاضافة طريقة اخوي ابو ابراهيم ، اليك طريقه انت متعود عليها : 1. هذا مسار قاعدة بيانات الجداول (هذه خطوة مؤقته) ( D:\Documents\Downloads\LINKED DATA\DB1.ACCDB ) : . 2. نعمل استعلام عادي في برنامج الواجهة ، وبدون اختيار اي جداول ، ثم نضع في Source Databasse ، اسم ومسار قاعدة بيانات الجداول (انظر اعلاه) (بدلا عن كلمة Current) : . 3. انقر على زر Show Tables (رقم 2) ، فسترى جداول قاعدة بيانات الجداول : . 4. ونعمل الاستعلام بطريقة عادية ، ونحفظه (كذلك مؤقتا على نعمل النموذج فقط) : . 5. اعمل النموذج المطلوب ، بحيث يكون الاستعلام اعلاه مصدر بياناته: . 6. ثم نحول الاستعلام الى وضع SQL . 7. ونحصل على الجملة التالية : . 8. ثم نضع هذه الجملة في السطر الذي وضعه اخوي ابو ابراهيم ، في حدث التحميل للنموذج (الجملة كما هي من الاستعلام وبتعديل بسيط) : . 9. نحذف الاستعلام مصدر البيانات ، ونحذف اسم الاستعلام من Record Source (مصدر بيانات) النموذج . 10. وكتعديل اخير حتى يشير الى وجدود قاعدة بيانات الجداول في نفس مجلد برنامج الواجهة (حتى يعمل البرنامج على كل جهاز وبأي مجلد) : . جعفر LINKED DATA_2.zip 128.11 kB · 16 downloads الان اليست الاستعلامات بتلك الطريقة الان عى محور النقاش ام ماذا

مثال 606969672_Unboundform.mdb

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

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