Access'İn KendİlİĞİnden Kapanmasi

[ASOİP]

Access'İn (OTOMATİK) KendİlİĞİnden Kapanmasi

Acces Programinin Bİlgİsayar Üzerİnde KullanilmadiĞi Bellİ Bİr SÜre Sonrasinda Kapanmasi MÜmkÜnmÜ, Masa Üzerİnde SÜreklİ AÇik Kalmasini Nasil Önleyebİlİrİz... Saygilarimla...

 

[BKCAN]

forumdaki örnekler arasında mevcut aşagıdaki kodu zaman doldugunda olayına yazın süre ölçer aralıgını 1000 yapın

iyi çalışmalar

Private Sub Form_Timer()
Const IDLEMINUTES = 15 ' Kaç dakika istiyorsanız onu yazın

Static PrevControlName As String
Static PrevFormName As String
Static ExpiredTime

Dim ActiveFormName As String
Dim ActiveControlName As String
Dim ExpiredMinutes

On Error Resume Next
ActiveFormName = Screen.ActiveForm.Name
If Err Then
ActiveFormName = "No Active Form"
Err = 0
End If

ActiveControlName = Screen.ActiveControl.Name
If Err Then
ActiveControlName = "No Active Control"
Err = 0
End If


If (PrevControlName = "") Or (PrevFormName = "") _
Or (ActiveFormName <> PrevFormName) _
Or (ActiveControlName <> PrevControlName) Then
PrevControlName = ActiveControlName
PrevFormName = ActiveFormName
ExpiredTime = 0
Else

ExpiredTime = ExpiredTime + Me.TimerInterval
End If

ExpiredMinutes = (ExpiredTime / 1000) / 60
If ExpiredMinutes >= IDLEMINUTES Then

ExpiredTime = 0
DoCmd.Quit
End If
End Sub

 

[arnavut]

&#231;ok te&#351;ekk&#252;rler,

 

[ASOİP]

Te&#351;ekk&#252;r Ederim Sn. Bkcan... &#304;&#351;lem Tamam.

 

[efsane81]

arkada&#351;lar kodlar&#305; yaz&#305;yorsunuz bilgileri payla&#351;&#305;yorsunuz &#231;ok g&#252;zel ama ben bu konuda biraz geriyim bilgiyi alan arkada&#351; dosya &#246;rne&#287;ini &#246;zel bilgilerini silip tabiki forma &#246;rnek koysa bizlerde onun dosyas&#305;n&#305; download edip incelesek bilgi sahibi olsak ne iyi olurdu. te&#351;ekk&#252;rler payla&#351;&#305;m i&#231;in