alsihran

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

للرفع

استبدلتها الان عند تسجيل الدخول يظهر خطأ ارجو التعديل على المرفق ان امكنك

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

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

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

]داخلي مرتبط بشبكة وزارة

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

السلام عليكم ورحمة الله وبركاتة طلبي ايقاف دالة incode عند اضافة مستخدم في نموذج User Name او تعديل بيانات مستخدم هذا الكود للاضافة DoCmd.RunSQL "INSERT INTO Users ( UName, PW ,fname) SELECT '" & incode(UN, "User") & "' AS Expr1, '" & incode(PW, "Pass") & "' AS Expr2, '" & incode(UN2, "User") & "' AS Expr3;" وهذا الكود للتعديل DoCmd.RunSQL "UPDATE Users SET UName = '" & incode(UN, "User") & "' , PW = '" & incode(PW, "Pass") & "' ,fname = '" & incode(UN2, "User") & "' WHERE ( SN=" & Str(UNUM) & ");" وايقاف دالة عند تسجيل الدخول للبرنامج من خلال النموذج frm-UserLogon If DCount("SN", "users", "deCode([UName],'User')='" & Trim(user) & "'") = 0 Then اليوزر 222 الباسورد 222 المرفق usrs.accdb

أشكرك استاذي @ابوخليل فتح التقرير في طريقة العرض لن تفي بالغرض لذلك لا اريد ان اتعبك وأهدر وقتك شكرا لك مرة أخرى 🌹

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

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

شكرا لك

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

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

يبدو اني لم اوضح المطلوب اللي اريده يبقى الامر كما هو لو تلاحظ الكود تم تعريفه للنماذج فقط انا ابيه يشمل النماذج والتقارير Static OldcontrolName As String Static OldFormName As String Static ExpiredTime As String Dim ActivecontrolName As String Dim ActiveFormName As String Dim ExpiredMinutes As String '<<<<< ÇÈæ äÇÏÑ >>>>> On Error Resume Next ActivecontrolName = Screen.ActiveControl.Name ActiveFormName = Screen.ActiveForm.Name Me.txtActiveForm = ActiveFormName If (OldcontrolName = "") Or (OldFormName = "") _ Or (ActiveFormName <> OldFormName) _ Or (ActivecontrolName <> OldcontrolName) Then OldcontrolName = ActivecontrolName OldFormName = ActiveFormName

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