ابوخليل

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

ولا اروع ولا اجمل .. ويعمل بشكل صحيح ودقيق وعلى طريقتك حبيبنا فيه حاجة صغننة .. سأحاول ان استطعت ان لم تسبقني وهي تصور ان النموذج يشتمل على 10 مربعات او اكثر او اقل .. وهنا يلزمني كتابة عشرة اسطر فافكر اعمل متغير ودوران يأخذ اسماء مربعات التحرير ... وفي الوقت نفسه يأخذ قيمة مربع التحرير وقيمة العمود الثاني من هذا السطر Set rsCombo = db.OpenRecordset(targetComboBox.RowSource, dbOpenSnapshot) اخي الغالي ابو جودي انت في الف حل فلا تشغل نفسك .. يكفيني النقطة التي اوصلتني اليها ، جزاؤك واجرك على الله

انت طول الليل جالس شغال .. وانا تركتك ورحت انام .. فاعذرني حكم السن .. لا يمكنني مجاراة الشباب ما شاء الله لا قوة الا بالله .. اختصرت علي الكثير جزاك الله خيرا -------------------------------------------------------------------------------------------------- الآن دعني اخبرك الحكاية كما يقولون من طق طق الى .... القيمة الرقمية في الجدول نأخذها من ذاكرة اكسس ... كيف ؟ اشرح .. هات زيادة في التفصيل يوجد في المشروع روتين يسجل اي تغيير يحدث على الحقول داخل النماذج الحقول النصية لا اشكال فيها المشكلة فقط في مربعات التحرير فجميع قيم مربعات التحرير في المشروع رقمية فالروتين قبل تحديث النموذج يأخذ قيمة مربعات التحرير السابقة وقيمتها الحالية قيمته الحالية لا اشكال فيها حيث يمكنني التعامل مع العنصر الحالي واستخراج قيمة العمود الثاني النصية ولكن المشكلة في القيمة السابقة فهي عبارة عن قيمة فقط في ذاكرة أكس وليس لها اي ارتباط فأنا الآن اريد ترجمة الرقم الى قيمته النصية بناء على (النموذج + مربع التحرير الخاص به) هذه كل الحكاية ----------------------------------------------------------------------------------------------------------------------- طيب نأتي للمفيد انت وصلت الى مرحلة متقدمة جدا لا يمكن الوصول اليها بسهولة .. وبقي تكة .. لعلها لا تصعب عليك انا عدلت على الجدول في المثال كما هو موجود عندي في المشروع .. حين تطلع عليه ستفهم المطلوب المطلوب تحديث الحقل بناء على اسم النموذج واسم الحقل الموجودات ضمن السجل طبعا اضفت نموذج آخر ومربعات تحرير اخرى اعتقد المعيار في الروتين سيكون بحاجة الى اسم النموذج ، حيث ان الكود سيتم تشغيله من النموذج النشط ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, DatabaseUp5.rar

نعم هذا ماانوي عمله ان شاء الله بارك الله فيك استاذ محمد وجعل ما تقوم به من بذل للعلم والجهد والوقت في ميزان أعمالك

نعم هو كذا .. تسلم الأنامل التي سطرت هذا الابداع الف شكر استاذنا .. هذا الكود هو حجر الاساس .. سوف اطوره ليشمل جميع مربعات التحرير داخل النموذج لن استغني عن مساعدتك ولمساتك ان احتجت لذلك .

شكرا اخي الغالي ابو جودي الكود الأول قربت من الحل اعتقد المسألة بحاجة الى ما يشبه combo.Recordset كجملة استعلام نتعامل معها ولكن لا يتوفر الا combo.RowSurce لا اريد جدول tblSp يدخل في العملية صحيح ان الجدول هو مصدر البيانات ولكن اريد اتعامل مع هذه البيانات من خلال النموذج ومربع التحرير وقد ذكرت السبب هو ان السجل في الجدول الاصلي الهدف لا يمكن تحديثه بطريقة صحيحة الا بدلالة النموذج ومربع التحرير بمعنى اوضح : اريد استخراج مصدر بيانات مربع التحرير الذي كما هو معلوم الاستعلام الداخلي

السلام عليكم ورحمة الله وبركاته في المرفق ادناه جدول يحتوي على حقل واحد والقيم الموجودة فيه عبارة عن ارقام ونموذج يشتمل على مربع تحرير قيمته رقمية والعمود الثاني نص المطلوب تحديث الحقول في الجدول بمعرفة القيمة الرقمية بينهما الى القيمة النصية الموجودة في مربع التحرير والتي تمثل العمود الثاني اي الرقم 1 في الجدول يتحدث الى كلمة "الأبيض" والرقم 2 الى الأزرق وهكذا ..... حسب الشروط التالية : 1- يكون التحديث بواسطة مصدر بيانات مربع التحرير وهو الاستعلام الفرعي داخله وليس من الجدول tblSp مباشرة .. فالاخيرة هذه اعرفها ولا تخدمني 2- يتم التحديث على الجميع جملة مرة واحدة .. بمعنى اني لا اريد ان اختار القيمة من مربع التحرير ثم اقوم بالتحديث .. ايضا هذه اعرفها ولا تخدمني يمكن ان يتساءل احد ولماذا هذا التكلف .. والجواب ان المعيار الموجود في الجدول عندي هو أسماء نماذج وأسماء مربعات تحرير ولا يمكن التحديث الا من خلالها شاكرا مقدما لكل من يحاول تنفيذ الفكرة DatabaseUp.rar

ولم الاعتذار ، والمكان يتسع للجميع البرنامج ممتاز ومليء بالافكار الجميلة جزاك الله خيرا وغفر لي ولك

تفضل مطعم وجبات3.rar

كفوك الطيب اخوي موسى انا طرحتها هنا كاملة في المشاركة 14 .. ملف تكست _كامل الكود _ يمكنك الاطلاع عليه وعندي نسخة فيجوال بيسك6 منقولة هي التي اعمل عليها الملف التنفيذي

اذا تريد ايقونة خاصة ارفقها لي

ابشر .. من عنيا .. غالي والطلب رخيص تفضل RunApp.rar

الحمد لله .. هذا من فضل الله وتيسيره

تفضل وأعتقد انه لا علاقة للنواة في مجال التنفيذ لانه يتعامل مع التسجيل جرب على النواتين وأفدني بالنتيجة twasol.rar

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

اذا تستخدم التحزيم ضم الملف التنفيذي الأول الى برنامج التنفيذ واعطه امر تشغيل قبل او بعد اكتمال التنفيذ .. لا فرق غالبا انا اعطيه امر التشغيل بعد اكتمال التنصيب .. وسيكون الملف التنفيذي ضمن مجلد البرنامج ، وعمله فقط يشتغل اول مرة فقط لذا يمكنك توجيه تنصيبة الى مجلد تيمب وندوز هذه هي الاسطر المسؤولة عن التخفيض ، وفتح قاعدة البيانات انظر اختلاف اصدارة اكسس تختلف في كل سطر استتلت لك صفحة الفيجوال كاملة وحولتها الى ملف تكست تجدها في المرفق Dim strVS As String On Error Resume Next strVM = SaveRegLong(HKEY_LOCAL_MACHINE, "Software\Microsoft\Office\11.0\Access\Security", "Level", 1) strVS = SaveRegLong(HKEY_CURRENT_USER, "Software\Microsoft\Office\11.0\Access\Security", "Level", 1) strVS = SaveRegLong(HKEY_CURRENT_USER, "Software\Microsoft\Office\12.0\Access\Security", "VBAWarnings", 1) strVS = SaveRegLong(HKEY_CURRENT_USER, "Software\Microsoft\Office\14.0\Access\Security", "VBAWarnings", 1) strVS = SaveRegLong(HKEY_CURRENT_USER, "Software\Microsoft\Office\16.0\Access\Security", "VBAWarnings", 1) ShellExecute Me.hwnd, "open", App.Path & "\Seq.accdb", "", "", 1 code.rar

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

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

مشاركة مع اخي اكرم المكتبة تأتي مع جهاز البصمة او ابحث عنها في النت

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

الأخ / الأخت الكريمة نأمل في مشاركاتك القادمة الاهتمام باختيار عنوان مناسب مختصر يصف الموضوع تم تعديل العنوان ،،،

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

طلبك غير واضح تختار فين ؟ المثال يوجد فيه جداول فقط اين هذه القوائم في مثالك ؟ يا لطيف !!! .. ارفق مثال متكامل وستجد ان شاء الله الحل الشافي من اخوانك

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

اعمل حقل نصي غير منضم في رأس الصفحة الصق هذا الكود في مصدر بياناته ="قسم:" & [Page]+39 ستلاحظ ان الصفحة الاولى = 40 والثانية 41 وهكذا ... اذا اردت الترقيم من 1 احذف علامة + والرقم الذي بعدها اعتقد الفكرة واضحة