قفل النموذج في حاله عدم استخدامه

[zero1111330566]

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

[ابوخليل]

Private Sub Form_Timer()
If MyTime = Empty Then MyTime = Now()
If Now() >= DateAdd("s", 5, MyTime) Then DoCmd.Close
End Sub

 

[zero1111330566]

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

12 ساعات مضت, ابوخليل said:

Private Sub Form_Timer()
If MyTime = Empty Then MyTime = Now()
If Now() >= DateAdd("s", 5, MyTime) Then DoCmd.Close
End Sub

 

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

[ابوخليل]

تفضل طريقة اخرى بكود مختلف

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

[zero1111330566]

منذ ساعه, ابوخليل 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

مشكور جدا وتحت التجربه

 

[zero1111330566]

9 ساعات مضت, ابوخليل 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

جربت البرنامج بس بيقفل النموذج بعد 5 ثوان حتي لو حركت الماوس

انا عايز كل ما يتحرك الماوس ترجع القيمه 0 وميقفلش النموذج الا لو توقفت الحركهاو الادخال يبدء في العد والاغلاق 

اسف علي الازعاج

[Eng.Qassim]

اضافة لما تفضل به استاذي @ابوخليل

اليك المثال التالي ..حينما تفتح النموذج form1 وعندما لايكون هناك اي نشاط عليه سيغلق النموذج بعد 10 ثواني

تستطيع تغيير الوقت ان اردت

 

close form.rar

[ابوخليل]

 

شكرا للمداخلة والمشاركة اخوي قاسم

 

2 ساعات مضت, zero1111330566 said:

جربت البرنامج بس بيقفل النموذج بعد 5 ثوان حتي لو حركت الماوس

انا عايز كل ما يتحرك الماوس ترجع القيمه 0 وميقفلش النموذج الا لو توقفت الحركهاو الادخال يبدء في العد والاغلاق 

اسف علي الازعاج

على الرحب والسعة

انا غفلت عن مكان الحدث

 غير حدث الماوس الى تفصيل النموذج

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

[zero1111330566]

23 ساعات مضت, ابوخليل 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

 

اسف علي الازعاج

ابوخليل

و

Eng.Qassim

شاكر جدا  لحضراتكم وشكرا على وقتكم

تم تعديل فبراير 11, 2023 بواسطه zero1111330566

[zero1111330566]

9 ساعات مضت, zero1111330566 said:

 

اسف علي الازعاج

ابوخليل

و

Eng.Qassim

شاكر جدا  لحضراتكم وشكرا على وقتكم

عندي الكود دة عايز اشغله علي نموذج ايه المطلوب علي النموذج

 

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]

عندي الكود دة عايز اشغله علي نموذج ايه المطلوب علي النموذج

 

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]

23 ساعات مضت, Eng.Qassim said:

اضافة لما تفضل به استاذي @ابوخليل

اليك المثال التالي ..حينما تفتح النموذج form1 وعندما لايكون هناك اي نشاط عليه سيغلق النموذج بعد 10 ثواني

تستطيع تغيير الوقت ان اردت

 

close form.rar 21.19 kB · 13 downloads

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

[ابوخليل]

21 ساعات مضت, ابوخليل 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

ما المشكلة هنا

المثال يعمل على اكمل وجه ، لا يتم اغلاق النموذج ما دمت تحرك الماوس .. اما اذا انتظرت 5 ثواني فسوف يغلق ،،، تستطيع زيادة الوقت بتغيير الرقم 5 في الكود الى 300 = خمس دقائق

[zero1111330566]

31 دقائق مضت, ابوخليل said:

ما المشكلة هنا

المثال يعمل على اكمل وجه ، لا يتم اغلاق النموذج ما دمت تحرك الماوس .. اما اذا انتظرت 5 ثواني فسوف يغلق ،،، تستطيع زيادة الوقت بتغيير الرقم 5 في الكود الى 300 = خمس دقائق

طيب بالنسبك للكود دة ايه اللي اضيفه في النموذج ليعمل

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

[ابوخليل]

انت لم تعطني اجابة ، ما المشكلة

هل عمل معك ام لا ؟

بعد ذلك ننظر في طلبك الجديد

[Eng.Qassim]

منذ ساعه, zero1111330566 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 هو اسم ليبل تضعه في النموذج ليحسب الوقت لغلق النموذج

[zero1111330566]

22 ساعات مضت, 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 هو اسم ليبل تضعه في النموذج ليحسب الوقت لغلق النموذج

بيعطيني خطأ في كلمه

Caption

ايه السبب

[Eng.Qassim]

9 دقائق مضت, zero1111330566 said:

بيعطيني خطأ في كلمه

اعمل نموذج وفي داخل النموذج اعمل ليبل وليس مربع نص

وضع داخل الليبل اي حرف حتى لايختفي عندك

[zero1111330566]

في 11‏/2‏/2023 at 18:53, ابوخليل said:

ما المشكلة هنا

المثال يعمل على اكمل وجه ، لا يتم اغلاق النموذج ما دمت تحرك الماوس .. اما اذا انتظرت 5 ثواني فسوف يغلق ،،، تستطيع زيادة الوقت بتغيير الرقم 5 في الكود الى 300 = خمس دقائق

 

في 10‏/2‏/2023 at 18:35, Eng.Qassim said:

اضافة لما تفضل به استاذي @ابوخليل

اليك المثال التالي ..حينما تفتح النموذج form1 وعندما لايكون هناك اي نشاط عليه سيغلق النموذج بعد 10 ثواني

تستطيع تغيير الوقت ان اردت

 

close form.rar 21.19 kB · 13 downloads

ارجوا المساعدة في برنامج الصلاحيات 

اولا عايز اشغل نظام الوقت للنموذج 

ثانيا في الصلاحيات عايز ازرار الحذف في النموذج تكون غير مرئيه للي معندهوش صلاحيه الحذف وبرضه في الاضافه للي معندهوش صلاحيه الاضافة وهكذا

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

ملحوظه مصمم لكل واحد من الاسماء دي صلاحيات

اسم محمد له كل الصلاحيات و

اسم محمد1 له الاضافه وملهوش الحذف او التعديل

اسم محمد2 ليس له اي صلاحيات

كلمه السر للكل  1

الصلاحيات.rar

[Eng.Qassim]

2 ساعات مضت, zero1111330566 said:

ارجوا المساعدة في برنامج الصلاحيات 

سؤالك هذا ليس له علاقة بالعنوان الرئيسي ..هذا الخلط يربك الذي يبحث عن معلومة

ثانيا هناك العشرات من الفيدوات التي تشرح ماتريد..يجب ان تتعب نفسك قليلا حتى تتعلم

تحياتي لك