Skip to main content

AccessTr.neT


Butondan hücreye harf yazdırma

Butondan hücreye harf yazdırma

#1
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,
firtina, 28-05-2009 tarihinden beri AccessTr.neT üyesidir. Hoba
Cevapla
#2
(25/04/2016 02:45)firtina Adlı Kullanıcıdan Alıntı: text boxları buton'a tanıtmadan

Üstteki mevzuyu anlayamadım. Örnek uygulama ekleyip ayrıntılı bilgi verebilir misin?

Visual Basic Code
me.herhangibirtextbox = "Ayhan"


bu şekilde istemiyor musun?

"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 
Cevapla
#3
(25/04/2016 03:20)ozanakkaya Adlı Kullanıcıdan Alıntı:
(25/04/2016 02:45)firtina Adlı Kullanıcıdan Alıntı: text boxları buton'a tanıtmadan

Üstteki mevzuyu anlayamadım. Örnek uygulama ekleyip ayrıntılı bilgi verebilir misin?

Visual Basic Code
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. 

[Resim: do.php?img=6121]
firtina, 28-05-2009 tarihinden beri AccessTr.neT üyesidir. Hoba
Son Düzenleme: 25/04/2016, 04:07, Düzenleyen: firtina.
Cevapla
#4
1-) Aşağıdaki kodu Vba sayfasında en alta ekle

Visual Basic Code
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,

Visual Basic Code
option compare database
option explicit


kodunun hemen altına

Visual Basic Code
Dim MetinKutusuAdi As String


kodu ekle

3-)butonun tıklandığında olayına aşağıdaki kodu ekle

Visual Basic Code
Controls(MetinKutusuAdi) = "Ayhan"


4-) Vba sayfasını kaydet ve kapat,

5-) Metin Kutularının tıklandığında olayına

Visual Basic Code
=KontrolAdiBul()


kodu ekle,

"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 
Cevapla
#5
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
.rar Buton.rar (Dosya Boyutu: 8,27 KB | İndirme Sayısı: 12)
firtina, 28-05-2009 tarihinden beri AccessTr.neT üyesidir. Hoba
Cevapla
#6
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.

Herkes,kendisinin AR-GE'cisidir...


Konulara eklenen Uygulama içeriğine yönelik Tavsiyeler
Alt Form Denetim Değerlerine ulaşma ve Alt Form Güncelleme
Kapatırken Düzenle (Compact On Close) Seçeneğinin İşaretlenmesi Hakkında
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da