(18/12/2010, 14:59)mehmetdemiral yazdı: Ayrıca yine bir event komutu kullanım örneği olarak https://accesstr.net/konu-access-gizleme...tml?page=2 konusunu da inceleyiniz.
sn. mehmetdemiral ;
gösterdiklerinize baktım ancak çok karışık geldi, ayrıca benim yapmak istediğim çok daha basit bir şey yani ;
Private Sub Report_Timer()
BİR SANİYE GEÇİNCE aşağıdakini yap ;
SendKeys "{enter}"
End Sub
bunu kodlarla nasıl derim ?
zamanı saydırmayı bilmiyorum yani.
bir bakarmısınız, teşekkürler...
Formunuzun general declerations kısmına en alta
Private Declare Sub Sleep Lib "kernel32" (ByVal milliseconds As Long)
yazın. Böylece Api kullanabileceğiz. Şimdi artık programın herhangibir yerinde
Sleep 400
şeklinde milisaniye cinsinden süreyi belirterek verdiğiniz süre kadar beklenmesini sağlarsınız.
Diğer bahsettiğim yöntem de aslında Api kullanmadan fonksiyon ile yapılan daha basit bir çözümdür. Onda da bir fonksiyon hazırlarsınız.
Public Sub Bekle(süre As Double)
Dim baslama
baslama = Timer
Do While Timer < baslama + süre
DoEvents
Loop
End Sub
Artık istediğiniz yerden
bekle(5)
şeklinde süre vererek kullanabilirsiniz.
(18/12/2010, 17:30)mehmetdemiral yazdı: Formunuzun general declerations kısmına en alta
Private Declare Sub Sleep Lib "kernel32" (ByVal milliseconds As Long)
yazın. Böylece Api kullanabileceğiz. Şimdi artık programın herhangibir yerinde
Sleep 400
şeklinde milisaniye cinsinden süreyi belirterek verdiğiniz süre kadar beklenmesini sağlarsınız.
Sn. mehmetdemiral ;
sonunda başardım , sayenizde
kodlarla önce ctrl a yapıyorum 1 salise sonrada kodlarla yukarı yön tuşuna basıyorum ve ekran sorunsuz açılıyor. tekrar teşekkürler. iyi çalışmalar..
O halde konuyu cevaplanmışlara taşıyorum.