بسته شدن فرم پس از چند ثانیه

[انگوران]

دوستان سلام ـ در فایل ضمیمه می خوام زمانی که دکمه ای فشرده میشه فرم بسته نشه و کدی که تو خصوصیت keydown نوشتم جواب نداد لطفاً راهنمائی کنید .

[MM_Mofidi]

خاصیت KeyPreview=True را درست ست کنید مشکل حل میشود

[Payam Moradi]

دوستان سلام ـ در فایل ضمیمه می خوام زمانی که دکمه ای فشرده میشه فرم بسته نشه و کدی که تو خصوصیت keydown نوشتم جواب نداد لطفاً راهنمائی کنید .

این کدها رو جای کدهای فرم جایگزین کن.



Option Compare Database
Dim x As Integer
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Me.TimerInterval = 0
Text28 = "انصراف"
End Sub
Private Sub Form_Open(Cancel As Integer)
Me.TimerInterval = 1000
x = 0
Text28 = 0
End Sub
Private Sub Form_Timer()
If x > 5 Then
Me.TimerInterval = 0
DoCmd.Close
Exit Sub
End If
Text28 = x
x = x + 1
End Sub


:چشمک:

[انگوران]

البته کدی که دوست خوبمون مدیری زحمت کشیدن پس از اینکه کلیدی فشرده شود برای همیشه از بستن فرم جلوگیری می کند ولی کدی که بنده ضمیمه کردم و مشکلش با راهنمائی مفیدی عزیز حل شد هر زمان که دست از کار بکشیم پس از مدت زمان تعیین شده فرم بسته می شود .