alsihran

نفس الشي فتح النموذج بدون سجلات 😬

شكرا لك استاذنا للاسف يفتح النموذج بدون سجلات

السلام عليكم ورحمة الله وبركاتة بالمرفق نموذج Form1 يوجد بالنموذج رز أمر لفتح نموذج Table1 1- بشرط التاريخ 2- بشرط الرقم 3- بشرط النص وهي تعمل بشكل سليم المطلوب جمع الشروط الثالثة في كود واحد حاولت اعملها بالطريقة هذي لكن يظهر عندي خطأ DoCmd.OpenForm "Table1", acNormal, "", "[pc]=" & "'" & [Text0] & "'" And "[StartDate]=" & "#" & [StartDate] & "#" And "[txt]=" & " '" & [Text2] & "'", acReadOnly, acNormal ‏‏nbm2.accdb

تم حل المشكلة بتغيير معادلة الكود If (Not IsNull(Forms![Form1]![Text0])) And IsNull(Forms![Form1]![Text4]) Or (Forms![Form1]![Text4] = "") Then شكرا لكم جميعا

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

الرسالة يجب ان تظهر لكن بعد ادخال الرقم ويكون غير موجود بالجدول

شكرا لك الكود يعمل بشكل صحيح لحقل الارقام لكن ظهرت مشكلة عندي في نفس مربع النص حدث بعد التحديث عند النقر على اي حرف تظهر الرسالة الموجودة في حدث بعد التحديث ارجو حل هذه الجزئية شكر لك 🌷 nbm1.rar

السلام عليكم المطلوب مربع النص الاول عدم الاستجابة اذا تم ادخال حروف والاستجابة عند ادخال ارقم ومربع النص الثاني يكون العكس nbm.accdb

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

كما هو واضح بالصورة لايتم تفعيل الخيارات

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

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

هل وجدت حل لهذه المشكلة يا استاذ @jjafferr

up

نفس الشي حتى برنامجك يطلع لي خطأ لمى اشغلة

السلام عليكم بعد تركيب Access 64bit توقف زر فتح نافذة فتح ملف في جميع برامجي المرفق مثال لتفعيل وايقاف مفتاح الشفت عند النقر على زر اختيار قاعدة بيانات لايستجيب تفعيل وإلغاء الشفت.rar

طلع عندي نفس الخطأ اللي بالكود السابق واذا جعلت اسم الاختصار بالانجليزي يشتغل تمام

100/% بارك الله فيك وبما ان احنا في نفس الموضوع ياليت تشوف لي هذا الكود خاص بعمل اختصار على سطح المكتب مايقبل الترميز مش عارف ليه DB_Name = Application.CurrentProject.Name DB_Path = Application.CurrentProject.Path icon_Name = "Arc5.ico" icon_Path = Application.CurrentProject.Path ' icon_Name_Path = icon_Path & "\" & icon_Name icon_Name_Path = icon_Path & "\icon\" & icon_Name With CreateObject("WScript.Shell") With .CreateShortcut(.SpecialFolders("Desktop") & "\البرنامج.lnk") .TargetPath = DB_Path & "\" & DB_Name .WindowStyle = 1 .Hotkey = "" .IconLocation = icon_Name_Path .Description = "برنامج " .WorkingDirectory = DB_Path & "\" .Save End With End With

الله يتفضل عليك تسلم شاكر ومقدر لك

شكرا لك أخ محمد حاولت التطبيق ولم انجح أتمنى منك التعديل على الأكواد المشار اليها

السلام عليكم بالمرفق تقويم أم القرى في الفورم Cal توجد هذه الاكواد Me.cboMonth.RowSource = "1;Moharram;محرم;2;Safar;صفر;3;Rabi I;ربيع الأول;4;Rabi II;ربيع الآخر;5;Jumada I;جمادى الأولى;6;Jumada II;" & _ "جمادى الآخرة;7;Rajab;رجب;8;Shaban;شعبان;9;Ramadhan;رمضان;10;Shawwal;شوال;11;Thul-Qudah;ذو القعدة;12;Thul-Hijjah;ذو الحجة" Me.cboMonth.RowSource = "1;January;يناير;2;February;فبراير;3;March;مارس;4;April;أبريل;5;May;مايو;6;June;" & _ "يونيو;7;July;يوليو;8;August;أغسطس;9;September;سبتمبر;10;October;أكتوبر;11;November;نوفمبر;12;December;ديسمبر" Me.cboMonth.RowSource = "1;Moharram;محرم;2;Safar;صفر;3;Rabi I;ربيع الأول;4;Rabi II;ربيع الآخر;5;Jumada I;جمادى الأولى;6;Jumada II;" & _ "جمادى الآخرة;7;Rajab;رجب;8;Shaban;شعبان;9;Ramadhan;رمضان;10;Shawwal;شوال;11;Thul-Qudah;ذو القعدة;12;Thul-Hijjah;ذو الحجة" وبسبب مشاكل اللغة العربية في الاكود اريد تغيير اسماء الاشهر باللغة العربية الى الترميز العالمي UmAlQuraUp.mdb

والله انا مقتنع بكل كلمة تقولها لكن المشكلة احسها شائكة علي بما أني في بداية الطريق مثلا عجزت عن تنفيذ الرسالة برسالة نعم لا مع تنفيذ الشرط اذا كان نعم يفتح النموذج واذا كان لا يلغي الأمر انظر المرفق عبارة عن برنامجك اضفت له نموذج Form1 وضعت به 2 زر أمر زر أمر بالطريقة العادية وزر أمر بطريقتك لكن فشلت بتنفيذ الدالة Response بطريقتك msg.rar

Up

كبرت الصورة وشفتها لكن تظهر المسج لكلمة موافق لوكان المسج نعم لا كيف نعمل .....؟