AccessTr.neT
veritabanına otomatik kapatmak mümkün mü ? - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: veritabanına otomatik kapatmak mümkün mü ? (/konu-veritabanina-otomatik-kapatmak-mumkun-mu.html)

Sayfalar: 1 2


veritabanına otomatik kapatmak mümkün mü ? - hgsoftware - 11/12/2010

bir veritabanı içerisinde bir formun otomatik kapatıldığı inceledim...
kısacası 10 sn içinde bir form kendiliğinden kapanıyor


sorum şu acaba aynı şekilde veritabanına kapatmak mümkün mü ?




Cvp: veritabanına otomatik kapatmak mümkün mü ? - C*e*l*o*y*c*e - 11/12/2010

Kodda close olarak belirtilen yer vardır o Close'i Quit ile değiştir dene




Cvp: veritabanına otomatik kapatmak mümkün mü ? - hgsoftware - 11/12/2010

kodları göremiyorum ve kendi yaptığım dosyayı ekliyorum....


Cvp: veritabanına otomatik kapatmak mümkün mü ? - schworse - 11/12/2010

Merhaba;

Kodu ekledim fakat biraz karışık uygulama kontrol edebilirmisiniz


Cvp: veritabanına otomatik kapatmak mümkün mü ? - hgsoftware - 11/12/2010

(11/12/2010, 22:36)schworse yazdı: Merhaba;

Kodu ekledim fakat biraz karışık uygulama kontrol edebilirmisiniz



teşekkür ederim fakat bu defa 10 sn de hiç düşme olmuyor ve bu defa formda kapanmaz durumda

kod yazmaktan hiç anlamıyorum küçük bir kasabada resmi bir porgramı kendi işimi kolaylaştırmak amacıyla bu işie girdim...

lutfen biraz daha yardımlarınıza ihtiyacım var....
amacım formdaki eklenti tıklandığında bu köprü vasıtasıyla veritabanı kapansın istiyorum...




Cvp: veritabanına otomatik kapatmak mümkün mü ? - schworse - 11/12/2010

Private Sub Form_Timer()
Dim Y As String
Y = "00:00"
If X <= 10 Then
Me.Label10.Visible = True
X = X + 1

If X = 11 Then: Beep
Me.Label10.Caption = Format(Choose(X, "10", "9", "8", "7", "6", "5", "4", "3", "2", "1", "0"), Y)
Else
''DoCmd.Close acForm, "F00-MAİN" Close yerine Quit yazaksınız
DoCmd.Quit acForm, "F00-MAİN"
End If
End Sub

Kod burada uygulamanız çok karışık ve eksikleri var kod yukarıdaki gibi olacak X=10 dan geriye sayar sıfır olduğunda program kapanır