alsihran

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

شكرا على استجابتك ..... تفضل tbl.accdb

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

استاذ @jjafferr هل يوجد حل لاظهار الرسالة مع تنفيذ الشرط نعم لا

هل من حل لهذا الموضوع .....؟

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

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

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

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