Herkese iyi geceler,
Arkadaşlar excel'de yapması çok basit olan AktiveCell FormulaR1C1= "Ayhan" code ile istediğim her hücreye buton'u
tıkladığımda "Ayhan" yazdıra biliyorum.
Access form sayfasında buton'un tıklandığı olayına yazdıra bileceğim böyle bir code varmıdır? Buton'a tıkladığımda
istediğim açılmış olan (örneğin 20 adet) herhangi bir text box'a "Ayhan" yazdırabileceğim bir code. (text boxları buton'a tanıtmadan)
Yardımlarınız için şimdiden teşekkür ederim. İyi geceler herkese,
(25/04/2016, 02:45)firtina yazdı: text boxları buton'a tanıtmadan
Üstteki mevzuyu anlayamadım. Örnek uygulama ekleyip ayrıntılı bilgi verebilir misin?
me.herhangibirtextbox = "Ayhan"
bu şekilde istemiyor musun?
(25/04/2016, 03:20)ozanakkaya yazdı: (25/04/2016, 02:45)firtina yazdı: text boxları buton'a tanıtmadan
Üstteki mevzuyu anlayamadım. Örnek uygulama ekleyip ayrıntılı bilgi verebilir misin?
me.herhangibirtextbox = "Ayhan"
bu şekilde istemiyor musun?
Hocam bu saatte ilgilendiğiniz için teşekkür ederim.
Text1 'i mouse ile tıklayıp butona basınca "Ayhan" yazsın
Text7 'i mouse ile tıklayıp butona basınca "Ayhan" yazsın
Text9' u mouse ile tıklayıp butona basınca "Ayhan" yazsın
yada sadece
Text3'ü mouse ile tıklayıp butona basınca "Ayhan" yazsın
ama bu olay sadece 4 text box için değilde 30 tane text box içinde olabilir. Yani ben butona textbox ismi tanıtmıyacağım mouse neredeyse
"Ayhan"'ı oraya yazsın istiyorum.
1-) Aşağıdaki kodu
Vba sayfasında en alta ekle
Public Function KontrolAdiBul() As String
Dim SecilenMetinKutusu As Control
Set SecilenMetinKutusu = Screen.ActiveControl
KontrolAdiBul = SecilenMetinKutusu.Name
MetinKutusuAdi = KontrolAdiBul
End Function
2-)
Vba sayfasında en üstte bulunan,
option compare database
option explicit
kodunun hemen altına
Dim MetinKutusuAdi As String
kodu ekle
3-)butonun tıklandığında olayına aşağıdaki kodu ekle
Controls(MetinKutusuAdi) = "Ayhan"
4-)
Vba sayfasını kaydet ve kapat,
5-) Metin Kutularının tıklandığında olayına
=KontrolAdiBul()
kodu ekle,
Hocam ilgilendiğiniz için teşekkürler,
Verdiğiniz kodları uygulayacağım. Neticeyi sizlere bildireceğim.
Bendeki
Access ingilizce. Bu kodlar ile bir sorun olmaz herhalde.
Son olarak ekte gönderdiğim
Excel gibi olacak sanırım. Yapmak istediğim çalışma bu
sayın firtina,
Alıntı:Text1 'i mouse ile tıklayıp butona basınca "Ayhan" yazsın
Text7 'i mouse ile tıklayıp butona basınca "Ayhan" yazsın
Text9' u mouse ile tıklayıp butona basınca "Ayhan" yazsın
ifadenize yönelik SADECE bir öneri olması adına,naçizane bir düşüncemi paylaşmak istiyorum.
neden her bir textbox denetimini tıkladıktan sonra buton tıklamasını da uygulamak istiyorsunuz?
bu hem harici gereksiz bir eylem olur hem de mouse tıklama ömrünü azaltmış oluyorsunuz.(30 kez textboxlara tıklama ve 30 kez de butonu tıklama)...
bunun yerine sadece direkt her bir textbox üzerine tıklandığında akabinde bu yazmayı istediğiniz ifadeyi yazsa daha iyi olmaz mı...
bunun için sayın ozan bey tarafından paylaşılan kodlarda küçük bir düzeltme yapmanız yeterli olacaktır.
KontrolAdiBul adlı fonksiyonun içeriğini
Kod:
Public Function KontrolAdiBul() As String
Dim SecilenMetinKutusu As Control
Set SecilenMetinKutusu = Screen.ActiveControl
KontrolAdiBul = SecilenMetinKutusu.Name
MetinKutusuAdi = KontrolAdiBul
Controls(MetinKutusuAdi) = "Ayhan"
End Function
şeklinde değiştirip,butonun olay yordamını ya da kendisini etkisiz bırakabilirsiniz.
böylece,direkt textboxları tıklamak sureti ile ifadeyi yazdırabilirsiniz,içeriklerine.
bilginize...iyi çalışmalar,saygılar.