[VBA] İlmeç Konumlandırma
#7
Arkadaşlar ekte bir vt var. program üzerindeki butonlarla veri ekleme yapılıyor. modül aracılığı ile. yalnız veri eklediğimde eklenen texbox üzerine tıklamadan ikinci bir butona basıp ver eklemesini istiyorum. yalnız .setfocus denedim sürekli imleci ilk tıkladığımdaki yere alıyor.

Örnek.

K25222 Mustafa Karadeniz

bunu ekleyebilmek için önce sicil butonuna sonra adına basıp eklemesini istiyorum. mevcut şartta basınca ekliyor yalnız son eklediğim veriyi ilk verinin önüne yani imlecin aktif olduğu yere ekleme yapıyor. Mesela yazdığım bir yazı içine bir yere tıklıyorum sonra istediğim butona basıyorum ve veriyi ekliyorum. başka bir butona basmadan önce tekrardan imleci bir yere konumlandırmam gerekiyor. kısacası eklemiş olduğum verinin sonuna imleci taşımasını istiyorum.



  Alıntı
Bu mesajı beğenenler:
#8
Merhaba..

Eğer yanlış anlamadıysam bu amaç için uzun bir yol seçmişsiniz gibi geldi bana.. Veri atamadan önce eski veriyi eklenmesini sağlayarak istediğiniz olur aslında.. Ad düğmesinden örneklersek..:

Visual Basic
  1. strAdres = Me.PersonelSec.Column(1)
  2. Me.Yazı = Yazı & " " & strAdres



Bu durumda Yazı da ne yazıyorsa peşine personelin adını ekleyecektir.. Diğer düğmeleri de ilgili yapıda düzenlerseniz istediğiniz olur..



  Alıntı
Bu mesajı beğenenler:
#9
(05-01-2014, 02:22)Taruz demiş ki: Merhaba..

Eğer yanlış anlamadıysam bu amaç için uzun bir yol seçmişsiniz gibi geldi bana.. Veri atamadan önce eski veriyi eklenmesini sağlayarak istediğiniz olur aslında.. Ad düğmesinden örneklersek..:

Kod:
strAdres = Me.PersonelSec.Column(1)
Me.Yazı = Yazı & " " & strAdres

Bu durumda Yazı da ne yazıyorsa peşine personelin adını ekleyecektir.. Diğer düğmeleri de ilgili yapıda düzenlerseniz istediğiniz olur..

Kardeş bunu biliyorum denemiştim önceden. Bunda şöyle bir sorun var mesela sabit bir yazı var ben yazının herhangi bir yerine tıklayıp ekle dediğim zaman yazının sonuna ekliyor imlecimin olduğu yere değil. onun için bunu kullanmadım.



  Alıntı
Bu mesajı beğenenler:
#10
sayın aleralper;
gerekli yeri değiştirin...
eklenen yazının sonuna gitmesi olayı
Visual Basic
  1. Private Sub Yazı_Enter()
  2. Me.Yazı.SelStart = ss + Len(strAdres) + 1
  3. Call sira
  4. End Sub


imza; jon206
www.access-sql.com



  Alıntı
Bu mesajı beğenenler:
#11
ÇOK TEŞEKKÜR EDERİM. AYNEN BÖYLE....



  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  Form Konumlandırma adnnfrm 1 289 21-11-2023, 15:04
Son Mesaj: dsezgin

Foruma Git:


Bu konuyu görüntüleyen kullanıcı(lar):