Vba İle Butona Basmak

Enigmatic · 04-07-2011, 10:15

Bir vba kodu ile formun üstündeki bir butona tıklama benzeri bir işlem yaptırmak istiyorum. Butonun vba kodu baya uzun onu her yere kopyala yapıştır yapmak istemiyorum.

Birde süre gecikmesi ayarlanabiliyorsa iyi olur.

1 saniye sonra mesela. Böyle birşey mümkün müdür?

Taruz · 04-07-2011, 11:02

Merhaba..

Düğmedeki kodu bir prosedüre atayıp istediğiniz kadar kullanabilirsiniz..:

Visual Basic
sub enigma
kodlar
end sub

Bahsettiğiniz şekilde ise böyle olur..:

Visual Basic
private sub düğme2_click()
call düğme1_click
end sub

Ya da, yazmış olduğunuz proseduru ya da fonksiyonu tüm düğme olaylarında çağırabilirsiniz. Dikkat etmeniz gereken başka formlarda kullanacaksanız kodları public olarak tanımlamanız gerekir.

Visual Basic
private sub düğme2_click()
enigma
end sub

Visual Basic
private sub düğme3_click()
enigma
end sub

gibi...

Bekle işini de bu fonksiyonla yapabilirsiniz..:

Visual Basic
Public Function Bekle(Sure As Single)
Dim Basla As Single
On Error GoTo trz
Basla = Timer
Do
DoEvents
Loop Until Basla + Sure < Timer
Trz_Exit:
Exit Function
trz:
MsgBox Err.Description
Resume trz
End Function

Kullanımı..:

Visual Basic
Bekle 2 ' saniye olrak değer veriniz..

Enigmatic · 04-07-2011, 11:32

Çok hoş

Çok teşekkürler.
Henüz uygulamadım. Başka bir işlemle uğraşıyorum. Tamamlayınca ayrı teşekkür ederim.

Enigmatic · 13-01-2012, 18:45

Böyle Function kodlarının hastasıyım. Copy Paste. sonra coş.

Teşekkür ederim. Güzel oldu.

Benzer Konular...
Konu:		Yazar	Cevaplar:	Gösterim:	Son Mesaj
	Butona Tıklayınca Hücredeki Veri Görünsün	ankaram	2	362	30-11-2023, 15:00 Son Mesaj: ankaram
	Butona Gif Ekleme	cozum@msn.com	1	304	04-10-2022, 12:18 Son Mesaj: dsezgin
	[VBA] Butona Basılı Tutma	hedefkaya	5	742	14-11-2021, 14:33 Son Mesaj: onur_can
	Konu Dışı. Kod Ile Exe çalıştırıp Butona Bastırma?	kesoka	2	612	11-03-2021, 15:09 Son Mesaj: kesoka
	Butona Her Basımda Alandaki Say Değerini Bir Artırma	ruzgar78	8	1.004	27-08-2020, 15:32 Son Mesaj: ruzgar78
	[FONKSiYON] Butona Tıklandığında Klasör Oluşturma(masaüstüne)	Ahmet51	14	1.704	22-02-2020, 04:04 Son Mesaj: feraz
	[VBA] Butona basarak açılan kutudaki verileri sıra ile çağırmak	fatihsipahi	6	1.918	27-09-2018, 12:35 Son Mesaj: onur_can
	[VBA] Butona sol tıklayınca sağ cilik menüsü çalışsın	mengene	3	1.444	20-02-2018, 14:12 Son Mesaj: EminA

Oturum Aç




Beni Hatırla Şifremi Unuttum?

Access SQL