ابوخليل

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

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

تفضل هذه حسب حقولك تم ايقاف الأسطر التي لا يوجد لها مقابل في النموذج DbSearch.rar

انظر هنا

هذا رابط لموضوع للواتساب ويب .. حاول ان تطلع على المشاركات والطلبات ونزل المرفق الذي اسمه sendwatsWebAll ويحتوي على ثلاث نماذج كلها للارسال وطلبك ستجده في النموذج الذي اسمه SendWhatsMoreMsg

مع ان الامثلة في المنتدى فيها طلبك جرب تعديل السطر SendToWhatsApp Me.PhoneNumber.Value, Me.Msg.Value هكذا : SendToWhatsApp RS!PhoneNumber.Value, RS!Msg.Value

هذه خدمة تقدمها شركة واتساب بمقابل عن طريق token اي باسوورد معين ابحث في واتساب ستجد هذه الخدمة .. ويمكن تشغيلها من اكسس او اي تطبيق آخر