Form kullanılmıyorsa kapansın
Tarih
17/06/2009 23:04
Konu Sahibi
danke
Yorumlar
9
Okunma
2717
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



danke
Aktif Üye
Kullanici Avatari
Aktif Üye
185
10/05/2009
0
Ankara
Ofis 2007
29/11/2016,20:53
Çözüldü 
Arkadaşlar herkese kolay gelsin, cevap veren arkadaşlara şimdiden teşekkürler.

Yaptığım programda herşey güzel çalışıyor, yalnız kullanılan form sürekli açık kalmasın, yani kullanıcı bilgisayar başından ayrıldığında bizim belirtebileceğimiz zamanda form kapansın, veya programda kapanabilir.

herkese teşekkürler.
danke, 10-05-2009 tarihinden beri AccessTr.neT üyesidir. AccessTr.neT formuna katıldığımdan beri hem ufkum genişledi, hem programlarla ilgili sorunlarımı çözdüm. Siteye emeği geçen herkese teşekkürler.
Cevapla


C*e*l*o*y*c*e
Celosoft Yazılım
Kullanici Avatari
Uzman
M.... B....
2.813
29/10/2008
899
Ankara
Ofis 2010 32 Bit
Bugün,20:59
Çözüldü 
bayın danke
bunun için kullandığımız aşağıdaki kod var ve bu kodda bulunan
Const IDLEMINUTES = 1 yazan yere (1 yazıyor 1 dakika sonra kapanır,30 yazarsan 30 dakika sonra kapanır) istediğini yazabilirsin
..kod.............

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
Private Sub Form_Timer()
Const IDLEMINUTES = 1  ' 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

         ' Get the active form and control name.

         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

         ' Record the current active names and reset ExpiredTime if:
         '    1. They have not been recorded yet (code is running
         '       for the first time).
         '    2. The previous names are different than the current ones
         '       (the user has done something different during the timer
         '        interval).
         If (PrevControlName = "") Or (PrevFormName = "") _
           Or (ActiveFormName <> PrevFormName) _
           Or (ActiveControlName <> PrevControlName) Then
            PrevControlName = ActiveControlName
            PrevFormName = ActiveFormName
            ExpiredTime = 0
         Else
            ' ...otherwise the user was idle during the time interval, so
            ' increment the total expired time.
            ExpiredTime = ExpiredTime + Me.TimerInterval
         End If

         ' Does the total expired time exceed the IDLEMINUTES?
         ExpiredMinutes = (ExpiredTime / 1000) / 60
         If ExpiredMinutes >= IDLEMINUTES Then
            ' ...if so, then reset the expired time to zero...
            ExpiredTime = 0
            ' ...and call the IdleTimeDetected subroutine.
            'IdleTimeDetected ExpiredMinutes
            
            DoCmd.Quit
         End If
       
End Sub



........kod. son..
örnekte altta Img-grin



Ek Dosyalar
.rar   örnek -celoyce.rar (Dosya Boyutu: 122,03 KB / İndirme Sayısı: 98)
Cevapla


danke
Aktif Üye
Kullanici Avatari
Aktif Üye
185
10/05/2009
0
Ankara
Ofis 2007
29/11/2016,20:53
Çözüldü 
Sayın C*E*L*O*Y*C*E verdiğiniz cevap ve ayrıca örnek için teşekkür ediyorum, kolay gelsin.
danke, 10-05-2009 tarihinden beri AccessTr.neT üyesidir. AccessTr.neT formuna katıldığımdan beri hem ufkum genişledi, hem programlarla ilgili sorunlarımı çözdüm. Siteye emeği geçen herkese teşekkürler.
Cevapla


zetyu
Aktif Üye
Kullanici Avatari
Aktif Üye
121
12/03/2009
0
Belirtilmemiş
Ofis XP
09/11/2016,20:42
Çözüldü 
eger DoCmd.Quit yerine

stAppName = "C:\WINDOWS\system32\Shutdown.exe -r -t 00"
Call Shell(stAppName, 1)

yazarsan bilgisayarıda kapatmış olursun
CELOYCO birçok yaptığınız örneği kullandım teşekkür ederim.
zetyu, 11-03-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla


nsahin
Destek Ekibi
Kullanici Avatari
Destek
181
16/11/2009
64
Bursa
Ofis 2007
12/07/2016,09:29
Çözüldü 
Paylaşım için teşekkürler. Ancak;
Vermiş olduğunuz örnekte form kullanılmadığında değil windows kullanılmadığında kapanıyor.

Windows kullanılsa (örnek:dosya açma-kapama) bile form kullanılmıyor ise kapatması için ne yapabiliriz..
nsahin, 16-11-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla


kadirdursun

Kullanici Avatari
Özel Üye
K.... D....
1.242
12/01/2009
86
İstanbul
Ofis 2010 32 Bit
Bugün,17:59
Çözüldü 
(04/01/2010, 13:56)nsahin Adlı Kullanıcıdan Alıntı: Paylaşım için teşekkürler. Ancak;
Vermiş olduğunuz örnekte form kullanılmadığında değil windows kullanılmadığında kapanıyor.

Windows kullanılsa (örnek:dosya açma-kapama) bile form kullanılmıyor ise kapatması için ne yapabiliriz..


dediğiniz gibi bilgisayar kullanılmıyorsa kapanıyor. bunun yerine program kullanılmıyorsa kapanması için ne yapmalıyız.


sayın C*E*L*O*Y*C*E ne yapmalıyız?
Hayat bu
ölsende yaşamaya mecbursun!
UNUTMA!!!


http://www.isciler-iski.com
http://www.universiteliisciler.com

(hafta sonu mesai olmadığından mesajlardaki çözümleri ancak hafta içi uygulayabiliyorum)
Cevapla







Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  Form üzerinden hesaplanan alanın başka form üzerinden güncelleştirilmesi nightashes 16 171 Dün, 21:40 alpeki99
  Form da Cari Koda Göre Form Çağırma cagatay1234 5 179 10/10/2016, 11:05 atoz112
  Form içine form butonları ekleme IceMan7 7 537 26/07/2016, 11:44 IceMan7
Çözüldü access ana form üzerinde bulunan alt form da bulunan komutu çalıştırabilirmiyim serif_28 2 826 13/05/2015, 01:26 serif_28
Çözüldü ana form kayıt ve alt form veri güncelleme bulenttum 7 3.095 11/01/2015, 22:21 hakanuss


Türkçe Çeviri: MCTR, Forum Yazılımı: MyBB, © 2002-2016 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya