zero1111330566 قام بنشر فبراير 9, 2023 قام بنشر فبراير 9, 2023 اريد قفل النموذج في حاله عدم استخدامه بعد فترة محددة وعدم استخدام الماوس
تمت الإجابة ابوخليل قام بنشر فبراير 9, 2023 تمت الإجابة قام بنشر فبراير 9, 2023 Private Sub Form_Timer() If MyTime = Empty Then MyTime = Now() If Now() >= DateAdd("s", 5, MyTime) Then DoCmd.Close End Sub 1 1
zero1111330566 قام بنشر فبراير 10, 2023 الكاتب قام بنشر فبراير 10, 2023 تسلم يا ابو خليل بس انا عايز النموذج لا يغلق طول ما الموس يعمل ويبدأ في العد بعد ثبات الماوس في 9/2/2023 at 16:27, ابوخليل said: Private Sub Form_Timer() If MyTime = Empty Then MyTime = Now() If Now() >= DateAdd("s", 5, MyTime) Then DoCmd.Close End Sub Expand تسلم يا ابو خليل بس انا عايز النموذج لا يغلق طول ما الموس يعمل ويبدأ في العد بعد ثبات الماوس
ابوخليل قام بنشر فبراير 10, 2023 قام بنشر فبراير 10, 2023 تفضل طريقة اخرى بكود مختلف Const MyTime = 5 'وقت سكون النموذج /ثواني Dim i As Long ' ========== اختر الحدث المناسب لك =========== Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) i = 0 End Sub Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) i = 0 End Sub ' ============================================= Private Sub Form_Timer() i = i + 1 If i > MyTime Then DoCmd.Close End Sub وهذا مثال تطبيق إغلاق تلقائي بعد مدة.mdbFetching info... 1
zero1111330566 قام بنشر فبراير 10, 2023 الكاتب قام بنشر فبراير 10, 2023 في 10/2/2023 at 06:57, ابوخليل said: تفضل طريقة اخرى بكود مختلف Const MyTime = 5 'وقت سكون النموذج /ثواني Dim i As Long ' ========== اختر الحدث المناسب لك =========== Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) i = 0 End Sub Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) i = 0 End Sub ' ============================================= Private Sub Form_Timer() i = i + 1 If i > MyTime Then DoCmd.Close End Sub وهذا مثال تطبيق إغلاق تلقائي بعد مدة.mdb 220 kB · 1 download Expand مشكور جدا وتحت التجربه
zero1111330566 قام بنشر فبراير 10, 2023 الكاتب قام بنشر فبراير 10, 2023 في 10/2/2023 at 06:57, ابوخليل said: تفضل طريقة اخرى بكود مختلف Const MyTime = 5 'وقت سكون النموذج /ثواني Dim i As Long ' ========== اختر الحدث المناسب لك =========== Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) i = 0 End Sub Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) i = 0 End Sub ' ============================================= Private Sub Form_Timer() i = i + 1 If i > MyTime Then DoCmd.Close End Sub وهذا مثال تطبيق إغلاق تلقائي بعد مدة.mdb 220 kB · 4 downloads Expand جربت البرنامج بس بيقفل النموذج بعد 5 ثوان حتي لو حركت الماوس انا عايز كل ما يتحرك الماوس ترجع القيمه 0 وميقفلش النموذج الا لو توقفت الحركهاو الادخال يبدء في العد والاغلاق اسف علي الازعاج
Eng.Qassim قام بنشر فبراير 10, 2023 قام بنشر فبراير 10, 2023 اضافة لما تفضل به استاذي @ابوخليل اليك المثال التالي ..حينما تفتح النموذج form1 وعندما لايكون هناك اي نشاط عليه سيغلق النموذج بعد 10 ثواني تستطيع تغيير الوقت ان اردت close form.rarFetching info...
ابوخليل قام بنشر فبراير 10, 2023 قام بنشر فبراير 10, 2023 شكرا للمداخلة والمشاركة اخوي قاسم في 10/2/2023 at 16:28, zero1111330566 said: جربت البرنامج بس بيقفل النموذج بعد 5 ثوان حتي لو حركت الماوس انا عايز كل ما يتحرك الماوس ترجع القيمه 0 وميقفلش النموذج الا لو توقفت الحركهاو الادخال يبدء في العد والاغلاق اسف علي الازعاج Expand على الرحب والسعة انا غفلت عن مكان الحدث غير حدث الماوس الى تفصيل النموذج Const MyTime = 5 'وقت سكون النموذج /ثواني Dim i As Integer Private Sub detail_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) i = 0 End Sub Private Sub Form_Timer() i = i + 1 If i > MyTime Then DoCmd.Close End Sub اجعل تايمر النموذج في الخصائص / عند عداد الوقت = 1000 إغلاق تلقائي بعد مدة2.mdbFetching info... 1
zero1111330566 قام بنشر فبراير 11, 2023 الكاتب قام بنشر فبراير 11, 2023 (معدل) في 10/2/2023 at 06:57, ابوخليل said: تفضل طريقة اخرى بكود مختلف Const MyTime = 5 'وقت سكون النموذج /ثواني Dim i As Long ' ========== اختر الحدث المناسب لك =========== Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) i = 0 End Sub Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) i = 0 End Sub ' ============================================= Private Sub Form_Timer() i = i + 1 If i > MyTime Then DoCmd.Close End Sub وهذا مثال تطبيق إغلاق تلقائي بعد مدة.mdb 220 kB · 4 downloads Expand اسف علي الازعاج ابوخليل و Eng.Qassim شاكر جدا لحضراتكم وشكرا على وقتكم تم تعديل فبراير 11, 2023 بواسطه zero1111330566
zero1111330566 قام بنشر فبراير 11, 2023 الكاتب قام بنشر فبراير 11, 2023 في 11/2/2023 at 06:21, zero1111330566 said: اسف علي الازعاج ابوخليل و Eng.Qassim شاكر جدا لحضراتكم وشكرا على وقتكم Expand عندي الكود دة عايز اشغله علي نموذج ايه المطلوب علي النموذج Private Sub Form_Timer() mlngTimeout = mlngTimeout + 1 Me.txt.Caption = 60 - mlngTimeout & " " & "ثانية" If mlngTimeout = 60 Then ' 5 minutes DoCmd.Close Else Exit Sub End If End Sub
zero1111330566 قام بنشر فبراير 11, 2023 الكاتب قام بنشر فبراير 11, 2023 عندي الكود دة عايز اشغله علي نموذج ايه المطلوب علي النموذج Private Sub Form_Timer() mlngTimeout = mlngTimeout + 1 Me.txt.Caption = 60 - mlngTimeout & " " & "ثانية" If mlngTimeout = 60 Then ' 5 minutes DoCmd.Close Else Exit Sub End If End Sub
zero1111330566 قام بنشر فبراير 11, 2023 الكاتب قام بنشر فبراير 11, 2023 في 10/2/2023 at 16:35, Eng.Qassim said: اضافة لما تفضل به استاذي @ابوخليل اليك المثال التالي ..حينما تفتح النموذج form1 وعندما لايكون هناك اي نشاط عليه سيغلق النموذج بعد 10 ثواني تستطيع تغيير الوقت ان اردت close form.rar 21.19 kB · 13 downloads Expand هل يمكن اضافه عند تحريك الماوس يبقي النموذج ايضا شكرا جدا
ابوخليل قام بنشر فبراير 11, 2023 قام بنشر فبراير 11, 2023 في 10/2/2023 at 19:07, ابوخليل said: شكرا للمداخلة والمشاركة اخوي قاسم على الرحب والسعة انا غفلت عن مكان الحدث غير حدث الماوس الى تفصيل النموذج Const MyTime = 5 'وقت سكون النموذج /ثواني Dim i As Integer Private Sub detail_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) i = 0 End Sub Private Sub Form_Timer() i = i + 1 If i > MyTime Then DoCmd.Close End Sub اجعل تايمر النموذج في الخصائص / عند عداد الوقت = 1000 إغلاق تلقائي بعد مدة2.mdb 220 kB · 6 downloads Expand ما المشكلة هنا المثال يعمل على اكمل وجه ، لا يتم اغلاق النموذج ما دمت تحرك الماوس .. اما اذا انتظرت 5 ثواني فسوف يغلق ،،، تستطيع زيادة الوقت بتغيير الرقم 5 في الكود الى 300 = خمس دقائق
zero1111330566 قام بنشر فبراير 11, 2023 الكاتب قام بنشر فبراير 11, 2023 في 11/2/2023 at 16:53, ابوخليل said: ما المشكلة هنا المثال يعمل على اكمل وجه ، لا يتم اغلاق النموذج ما دمت تحرك الماوس .. اما اذا انتظرت 5 ثواني فسوف يغلق ،،، تستطيع زيادة الوقت بتغيير الرقم 5 في الكود الى 300 = خمس دقائق Expand طيب بالنسبك للكود دة ايه اللي اضيفه في النموذج ليعمل Private Sub Form_Timer() mlngTimeout = mlngTimeout + 1 Me.txt.Caption = 60 - mlngTimeout & " " & "ثانية" If mlngTimeout = 60 Then ' 5 minutes DoCmd.Close Else Exit Sub End If End Sub
ابوخليل قام بنشر فبراير 11, 2023 قام بنشر فبراير 11, 2023 انت لم تعطني اجابة ، ما المشكلة هل عمل معك ام لا ؟ بعد ذلك ننظر في طلبك الجديد
Eng.Qassim قام بنشر فبراير 11, 2023 قام بنشر فبراير 11, 2023 في 11/2/2023 at 17:26, zero1111330566 said: طيب بالنسبك للكود دة ايه اللي اضيفه في النموذج ليعمل Expand كود استاذ ابو خليل يعمل جيدا .. لكن بالنسبة للكود الذي طرحته يعمل هكذا Private mlngTimeout As Date Private Sub Form_Timer() Me.txt.Caption = 10 - DateDiff("s", mlngTimeout, Now) If Me.txt.Caption = 0 Then DoCmd.Close Else Exit Sub End If End Sub Private Sub Form_Load() mlngTimeout = Now Me.TimerInterval = 1000 End Sub Private Sub Detail_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) mlngTimeout = Now End Sub ملاحظة: txt هو اسم ليبل تضعه في النموذج ليحسب الوقت لغلق النموذج 1
zero1111330566 قام بنشر فبراير 12, 2023 الكاتب قام بنشر فبراير 12, 2023 في 11/2/2023 at 18:39, Eng.Qassim said: كود استاذ ابو خليل يعمل جيدا .. لكن بالنسبة للكود الذي طرحته يعمل هكذا Private mlngTimeout As Date Private Sub Form_Timer() Me.txt.Caption = 10 - DateDiff("s", mlngTimeout, Now) If Me.txt.Caption = 0 Then DoCmd.Close Else Exit Sub End If End Sub Private Sub Form_Load() mlngTimeout = Now Me.TimerInterval = 1000 End Sub Private Sub Detail_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) mlngTimeout = Now End Sub ملاحظة: txt هو اسم ليبل تضعه في النموذج ليحسب الوقت لغلق النموذج Expand بيعطيني خطأ في كلمه Caption ايه السبب
Eng.Qassim قام بنشر فبراير 12, 2023 قام بنشر فبراير 12, 2023 في 12/2/2023 at 17:05, zero1111330566 said: بيعطيني خطأ في كلمه Expand اعمل نموذج وفي داخل النموذج اعمل ليبل وليس مربع نص وضع داخل الليبل اي حرف حتى لايختفي عندك 1
zero1111330566 قام بنشر فبراير 13, 2023 الكاتب قام بنشر فبراير 13, 2023 في 11/2/2023 at 16:53, ابوخليل said: ما المشكلة هنا المثال يعمل على اكمل وجه ، لا يتم اغلاق النموذج ما دمت تحرك الماوس .. اما اذا انتظرت 5 ثواني فسوف يغلق ،،، تستطيع زيادة الوقت بتغيير الرقم 5 في الكود الى 300 = خمس دقائق Expand في 10/2/2023 at 16:35, Eng.Qassim said: اضافة لما تفضل به استاذي @ابوخليل اليك المثال التالي ..حينما تفتح النموذج form1 وعندما لايكون هناك اي نشاط عليه سيغلق النموذج بعد 10 ثواني تستطيع تغيير الوقت ان اردت close form.rar 21.19 kB · 13 downloads Expand ارجوا المساعدة في برنامج الصلاحيات اولا عايز اشغل نظام الوقت للنموذج ثانيا في الصلاحيات عايز ازرار الحذف في النموذج تكون غير مرئيه للي معندهوش صلاحيه الحذف وبرضه في الاضافه للي معندهوش صلاحيه الاضافة وهكذا وعايز اشغل امر الطباعة مثل الحذف والتعديل والاضافه الكود النموذجي له واسف علي التطويل ملحوظه مصمم لكل واحد من الاسماء دي صلاحيات اسم محمد له كل الصلاحيات و اسم محمد1 له الاضافه وملهوش الحذف او التعديل اسم محمد2 ليس له اي صلاحيات كلمه السر للكل 1 الصلاحيات.rarFetching info...
Eng.Qassim قام بنشر فبراير 13, 2023 قام بنشر فبراير 13, 2023 في 13/2/2023 at 07:53, zero1111330566 said: ارجوا المساعدة في برنامج الصلاحيات Expand سؤالك هذا ليس له علاقة بالعنوان الرئيسي ..هذا الخلط يربك الذي يبحث عن معلومة ثانيا هناك العشرات من الفيدوات التي تشرح ماتريد..يجب ان تتعب نفسك قليلا حتى تتعلم تحياتي لك
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.