Butondan hücreye harf yazdırma

1 2 3
25/04/2016, 02:45

firtina

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, 03:20

ozanakkaya

(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, 04:02

firtina

(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. 


25/04/2016, 04:53

ozanakkaya

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,
25/04/2016, 12:56

firtina

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
25/04/2016, 22:26

atoz112

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.
1 2 3