Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
17/06/2009 23:04
Konu Sahibi
danke
Yorumlar
9
Okunma
3464
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
15/10/2017,14:10
Çö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.995
29/10/2008
927
Ankara
Celosoft Yazılım
Ofis 2010 32 Bit
Bugün,01:41
Çö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ı: 101)
Cevapla

danke

Aktif Üye
Kullanici Avatari
Aktif Üye
185
10/05/2009
0
Ankara
Ofis 2007
15/10/2017,14:10
Çö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
132
12/03/2009
0
Belirtilmemiş
Ofis XP
29/05/2017,03:40
Çö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

Aktif Üye
Kullanici Avatari
Aktif Üye
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

Gümüş Üye
Kullanici Avatari
Gümüş Üye
K.... D....
1.282
12/01/2009
86
İstanbul
Ofis 2010 32 Bit
21/09/2017,12:03
Çö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!!!



(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
Çözüldü Msgbox Tamam Tıklayınca Form Kapansın bentürk 2 232 07/06/2017, 15:27 bentürk
Çözüldü Form üzerinden hesaplanan alanın başka form üzerinden güncelleştirilmesi nightashes 16 1.158 08/12/2016, 21:40 alpeki99
Çözüldü Form da Cari Koda Göre Form Çağırma cagatay1234 5 614 10/10/2016, 11:05 atoz112
Çözüldü Form içine form butonları ekleme IceMan7 7 1.133 26/07/2016, 11:44 IceMan7
Çözüldü access ana form üzerinde bulunan alt form da bulunan komutu çalıştırabilirmiyim serif_28 2 1.186 13/05/2015, 01:26 serif_28

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
Forum use Krzysztof "Supryk" Supryczynski addons.