AccessTr.neT
İstenilen Zamanda Bilgisayarı Kapatma. - 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ığı: İstenilen Zamanda Bilgisayarı Kapatma. (/konu-istenilen-zamanda-bilgisayari-kapatma.html)

Sayfalar: 1 2


İstenilen Zamanda Bilgisayarı Kapatma. - barcins - 11/01/2019

arkadaşlar selam.

access'in form açıldığında formdaki ayarlanan saatde bilgisayarı kapatmasını istiyorum. 
bu komutu yüklendiğinde yazdığımda çalışıyor.

Private Sub Form_Load()
Shell ("Shutdown -s -t, 600")
End Sub

sorunum aşağıdaki gibi yapınca dakiyayı formdan alamıyorum.
Private Sub Form_Load()
Shell ("Shutdown -s -t, Forms![GRT_KONT]!Me.Metin37")
End Sub

bu şekildede olmadı
Private Sub Form_Load()
Dim ksaat As String
ksaat = (Forms![GRT_KONT]![Metin36]) * 60
Call Shell("Shutdown -s -t, ksaat", vbNormalFocus)
End Sub


Cvp: İstenilen Zamanda Bilgisayarı Kapatma. - Allback - 11/01/2019

(11/01/2019, 13:18)barcins yazdı: arkadaşlar selam.

access'in form açıldığında formdaki ayarlanan saatde bilgisayarı kapatmasını istiyorum. 
bu komutu yüklendiğinde yazdığımda çalışıyor.

Private Sub Form_Load()
Shell ("Shutdown -s -t, 600")
End Sub

sorunum aşağıdaki gibi yapınca dakiyayı formdan alamıyorum.
Private Sub Form_Load()
Shell ("Shutdown -s -t, Forms![GRT_KONT]!Me.Metin37")
End Sub

bu şekildede olmadı
Private Sub Form_Load()
Dim ksaat As String
ksaat = (Forms![GRT_KONT]![Metin36]) * 60
Call Shell("Shutdown -s -t, ksaat", vbNormalFocus)
End Sub

Sorunuzu "Access Soruları ve Cevapları" bölümüne taşıdım.
Lütfen sorularınızı bu başlık altında açınız...


Cvp: İstenilen Zamanda Bilgisayarı Kapatma. - berduş - 11/01/2019

Private Sub Form_Load()
Shell ("Shutdown -s -t," & Forms![GRT_KONT]!Me.Metin37 & "'")
End Sub

kodunuz yukardaki gibi değiştirip dener misiniz


Cvp: İstenilen Zamanda Bilgisayarı Kapatma. - barcins - 11/01/2019

(11/01/2019, 14:34)haliliyas yazdı: Private Sub Form_Load()
Shell ("Shutdown -s -t," & Forms![GRT_KONT]!Me.Metin37 & "'")
End Sub

kodunuz yukardaki gibi değiştirip dener misiniz

malesef

Run-time error '2465':
ifadenizde başvurulan 'Me' alanı Microsoft Office Access Tarafından bulunamıyor.

aklıma komutu text yapıp call shell ("cmd.exe /k text") gibi birşey geliyor ama  Icon_rolleyes


Cvp: İstenilen Zamanda Bilgisayarı Kapatma. - berduş - 11/01/2019

Private Sub Form_Load()
Shell ("Shutdown -s -t," & cint( Forms![GRT_KONT]!Me.Metin37) )
End Sub
bunu deneyin
metin37 aktif from üzerinde mi başka bir formda mı?
eğer  başka kapalı bir formda ise önce o formu açması gerek


Cvp: İstenilen Zamanda Bilgisayarı Kapatma. - berduş - 11/01/2019

-t, den sonra 1bosluk olacakti

Shell ("Shutdown -s -t, " & cint( Forms![GRT_KONT]!Me.Metin37) )