zero1111330566 قام بنشر فبراير 9, 2023 مشاركة قام بنشر فبراير 9, 2023 اريد قفل النموذج في حاله عدم استخدامه بعد فترة محددة وعدم استخدام الماوس رابط هذا التعليق شارك More sharing options...
أفضل إجابة ابوخليل قام بنشر فبراير 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 رابط هذا التعليق شارك More sharing options...
zero1111330566 قام بنشر فبراير 10, 2023 الكاتب مشاركة قام بنشر فبراير 10, 2023 تسلم يا ابو خليل بس انا عايز النموذج لا يغلق طول ما الموس يعمل ويبدأ في العد بعد ثبات الماوس 12 ساعات مضت, ابوخليل said: Private Sub Form_Timer() If MyTime = Empty Then MyTime = Now() If Now() >= DateAdd("s", 5, MyTime) Then DoCmd.Close End Sub تسلم يا ابو خليل بس انا عايز النموذج لا يغلق طول ما الموس يعمل ويبدأ في العد بعد ثبات الماوس رابط هذا التعليق شارك More sharing options...
ابوخليل قام بنشر فبراير 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 وهذا مثال تطبيق إغلاق تلقائي بعد مدة.mdb 1 رابط هذا التعليق شارك More sharing options...
zero1111330566 قام بنشر فبراير 10, 2023 الكاتب مشاركة قام بنشر فبراير 10, 2023 منذ ساعه, ابوخليل 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 مشكور جدا وتحت التجربه رابط هذا التعليق شارك More sharing options...
zero1111330566 قام بنشر فبراير 10, 2023 الكاتب مشاركة قام بنشر فبراير 10, 2023 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 وميقفلش النموذج الا لو توقفت الحركهاو الادخال يبدء في العد والاغلاق اسف علي الازعاج رابط هذا التعليق شارك More sharing options...
Eng.Qassim قام بنشر فبراير 10, 2023 مشاركة قام بنشر فبراير 10, 2023 اضافة لما تفضل به استاذي @ابوخليل اليك المثال التالي ..حينما تفتح النموذج form1 وعندما لايكون هناك اي نشاط عليه سيغلق النموذج بعد 10 ثواني تستطيع تغيير الوقت ان اردت close form.rar رابط هذا التعليق شارك More sharing options...
ابوخليل قام بنشر فبراير 10, 2023 مشاركة قام بنشر فبراير 10, 2023 شكرا للمداخلة والمشاركة اخوي قاسم 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 1 رابط هذا التعليق شارك More sharing options...
zero1111330566 قام بنشر فبراير 11, 2023 الكاتب مشاركة قام بنشر فبراير 11, 2023 (معدل) 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 رابط هذا التعليق شارك More sharing options...
zero1111330566 قام بنشر فبراير 11, 2023 الكاتب مشاركة قام بنشر فبراير 11, 2023 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 رابط هذا التعليق شارك More sharing options...
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 رابط هذا التعليق شارك More sharing options...
zero1111330566 قام بنشر فبراير 11, 2023 الكاتب مشاركة قام بنشر فبراير 11, 2023 23 ساعات مضت, Eng.Qassim said: اضافة لما تفضل به استاذي @ابوخليل اليك المثال التالي ..حينما تفتح النموذج form1 وعندما لايكون هناك اي نشاط عليه سيغلق النموذج بعد 10 ثواني تستطيع تغيير الوقت ان اردت close form.rar 21.19 kB · 13 downloads هل يمكن اضافه عند تحريك الماوس يبقي النموذج ايضا شكرا جدا رابط هذا التعليق شارك More sharing options...
ابوخليل قام بنشر فبراير 11, 2023 مشاركة قام بنشر فبراير 11, 2023 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 = خمس دقائق رابط هذا التعليق شارك More sharing options...
zero1111330566 قام بنشر فبراير 11, 2023 الكاتب مشاركة قام بنشر فبراير 11, 2023 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 رابط هذا التعليق شارك More sharing options...
ابوخليل قام بنشر فبراير 11, 2023 مشاركة قام بنشر فبراير 11, 2023 انت لم تعطني اجابة ، ما المشكلة هل عمل معك ام لا ؟ بعد ذلك ننظر في طلبك الجديد رابط هذا التعليق شارك More sharing options...
Eng.Qassim قام بنشر فبراير 11, 2023 مشاركة قام بنشر فبراير 11, 2023 منذ ساعه, 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 هو اسم ليبل تضعه في النموذج ليحسب الوقت لغلق النموذج 1 رابط هذا التعليق شارك More sharing options...
zero1111330566 قام بنشر فبراير 12, 2023 الكاتب مشاركة قام بنشر فبراير 12, 2023 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 ايه السبب رابط هذا التعليق شارك More sharing options...
Eng.Qassim قام بنشر فبراير 12, 2023 مشاركة قام بنشر فبراير 12, 2023 9 دقائق مضت, zero1111330566 said: بيعطيني خطأ في كلمه اعمل نموذج وفي داخل النموذج اعمل ليبل وليس مربع نص وضع داخل الليبل اي حرف حتى لايختفي عندك 1 رابط هذا التعليق شارك More sharing options...
zero1111330566 قام بنشر فبراير 13, 2023 الكاتب مشاركة قام بنشر فبراير 13, 2023 في 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 رابط هذا التعليق شارك More sharing options...
Eng.Qassim قام بنشر فبراير 13, 2023 مشاركة قام بنشر فبراير 13, 2023 2 ساعات مضت, zero1111330566 said: ارجوا المساعدة في برنامج الصلاحيات سؤالك هذا ليس له علاقة بالعنوان الرئيسي ..هذا الخلط يربك الذي يبحث عن معلومة ثانيا هناك العشرات من الفيدوات التي تشرح ماتريد..يجب ان تتعب نفسك قليلا حتى تتعلم تحياتي لك رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان