محمد القدسي

اشكرك استاذي تم الغاء افضل اجابة ومنتظر مشاركة اساتذتنا في الموضوع

وكيف السبيل لازالة افضل اجابة استاذي العزيز

up

تسلم استاذي على التنبه وننتظر استاذتنا بالمشاركة

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

اشكرك استاذي @احمد الفلاحجي على هذه الاجابة وهو المطلوب الذي اريده فجزاك الله خيرا وبارك فيك بقي سؤال استاذي ولو اثقلت عليك اريد ايضا ان يظهر لي اسم المندوب وليكن بعمل متغير بالدالة نفسها الذي صممتها اخي بحيث يظهر لي اسم المندوب مثل هذه strFind([firstnosanad]) واعذرني ان اثقلت عليك اخي

ظهرت معي هذه الرسالة استاذ جعفر

up up

up

السلام عليكم اساتذتي الافاضل مطلوب دالة لتحديث حقل firstnosanad الموجود في جدول tableestelame بحقل firstnosanad موجود في جدول tablesnadat وذلك عند تسجيل اي رقم في حقل taslsolnosanad الموجود في جدول tableestelame وقد وضعت استعلام يوضح المطلوب بدالة DFirst وفي النموذج باللون الاحمر ولاكنها تسبب لي بطء شديد في القاعدة بمعنى اريد بديل للدالة DFirst تحقق المطلوب ارجو ان اكون وفقت في شرح المطلوب وبارك الله في الجميع exambledata.rar

بارك الله استاذي @sandanet وبارك فيك على تجاوبك

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

السلام عليكم ورحمة الله وبركاته اساتذتي الافاضل اذا قمت باخفاء المجلد الذي به القاعدة الخلفى ببرنامج الاخفاء Wise Folder Hider وعند الاتصال بالقاعدة تظهر رسالة انها غير موجود فكيف الوصول الي القاعدة مع استخدام مثل هذه البرامج جزاكم الله خيرا وبارك فيكم

اشكرك استاذي @husamwahab على مجهودك وصبرك والله اني كنت استحييت منك من كثر المحاولة وانت صابر البرنامج شغال فل ولله الحمد والمنه ثم لك مني الشكر الجزيل ومن باب الشكر على مجهودك اسال من الله ان يبارك فيك وفي علمك وان يرزقك الجنة ويباعد وجهك عن النار انت وكل من تعاون معنا في هذا الصرح المبارك

هنا الخطأ ظهر استاذي نفس الخطا السابق

لا ما ظهرت استاذي

استاذي الخطا يظهر لي عند هذا السطر عند الضغط علي اي مفتاح كيبور لماذا الله اعلم

استاذي القدير @husamwahab هذا المرفق شغال عندي تمام ولاكن يبحث في حقل الاسماء فقط والاوفيس عندي 2010 تظليل وعد كلمات نتائح البحث.rar

هذا هو استاذي aboosama.rar

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

up

سلمت يداك اخي واستاذي @kanory هذا هو المطلوب بعينه بارك الله فيك وفي كل من تعاون معانا في هذا الصرح المبارك وحعله في ميزان حسناتكم يوم القيامة

اشكرك استاذي العزيز @kanory لاكن اولا هذا الكود يضيف سجل واحد فقط ثانيا يضيف الحقل codhesab فقط وما اريده اذا كان الجدول الاول يحتوي على عشرين حقل مثلا فسيكون تسجيل جميع الحقول في الكود امر متعب قليلا وبما ان الجدول الثاني يحمل نفس حقول الجدول الاول فانا اريد الكود يضيف الحقول دفعة واحدة وبنفس عدد السجلات كاملة ارجو ان اكود اوصلت سؤالي بالشكل المطلوب

السلام عليكم اساتذتي الكرام كيف يمكن استعمال هذا الكود ليضيف جميع حقول الجدول table1 hg الى الجدول table2 دفعة واحدة مثل استعمال مود الاحاق باستخدام (*) Dim rstFrom As DAO.Recordset Dim rstTo As DAO.Recordset Dim StrSql2 As String Set rstTo = CurrentDb.OpenRecordset("Select * From table2") Set rstFrom = CurrentDb.OpenRecordset("Select * From table1") rstFrom.MoveLast: rstFrom.MoveFirst RC = rstFrom.RecordCount For i = 1 To RC rstTo.AddNew rstTo!codhesab = rstFrom!codhesab rstTo.Update rstFrom.MoveNext Next i Set rstTo = Nothing Set rstFrom = Nothing MsgBox "Done" وبارك الله فيكم وفي علمكم

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