alsihran

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

الله يعطيك العافية استاذنا @ابوخليل وكل عام وانت بخير الطريقة تعمل وهذه تصلح اثناء اضافة بيانات المشكلة اني فقدت عرض البيانات اثناء فتح النموذج هل يمكن تعديل جملة selcet rs.Open "Select * from tbl_Employ", con, adopenDynamic, adLockBatchOptimistic لعرض البيانات واظهار اسم المدينة اثناء فتح النموذج شكرا لك اخي الكريم هذه طريقة اخرى لكن ينطبق عليها نفس طلبي من الاستاذ ابو خليل

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

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

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

السلام عليكم المطلوب عندما تكون خلية النص جده والو قت اكبر من دقيقتين (00:02:00) يصبح لون الخلية أحمر الرياض والو قت اكبر من دقيقتين ونصف (00:02:30) يصبح لون الخلية أحمر الدمام والو قت اكبر من ثلاث دقائق (00:03:00) يصبح لون الخلية أحمر بقية المدن اكبر من اربع دقائق (00:04:00) يصبح لون الخلية أحمر تنسق شرطي.xlsx

تمام الله يعطيك العافيه

انقر على زر الامر ولا يحدث اي شي

لا اعلم استاذ شفان كان يعمل معي على اصدار اكسس 32 bit والان فجأه بعد تركيب 64 bit لا يعمل

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