AccessTr.neT

Tam Versiyon: Liste kutusuna değer girmek.
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Merhaba arkadaşlar;
Ekli örnekte, form üzerindeki metinkutusuna yazılan değerleri buton ile liste kutusuna eklemek istiyorum.
Yani değer1 metinkutusu içindeki değer listekutusunun 1.satır 1.sutununa
değer2 metinkutusu içindeki değer listekutusunun 1.satır 2.sutununa
değer3 metinkutusu içindeki değer listekutusunun 1.satır 3.sutununa buton ile eklenmesini için uğraştım ama yapamadım. Yeni değerde sıra ile altına gelecek şekilde eklenecek.
Desteğiniz için şimdiden teşekkürler.
Saygılar.
Merhaba;
Cevabı söyle imiş. Belki bir yerde işinize yarar.
 Me.ListekutusuAdı.AddItem Me.Text1 & ";" & Me.Text2 & ";" & Me.Text3
Bilgilerinize.
İyi akşamlar.
2003 olarak ekledim.
Merhaba,

Çok güzel bir örnek, bir çok yerde işe yarayacaktır eminim.
kendi projeme uyarlamak istedim fakat küçük bir sorun var.

metin kutularına hiç değer girmeden "ekle" butonuna tıklayınca tabloya boş kayıt atıyor.
5 kere tıklasan 5 boş kayıt atıyor yani.

bunu nasıl engelleriz acaba.

saygılarımla.
merhaba,

ekle butonunun olay yordamında iken;
Isnull ile boş alan kontrolü yaptırarak boş geçilmemesini sağlayabilirsiniz,tüm metin kutuları için.

örnek:
if Isnull(me.metinkutusu1) then
Msgbox " Değer giriniz"
me.metin1.setfocus
end if
..............gibi.



iyi çalışmalar.
saygılar.
Dim rs As New ADODB.Recordset
Private Sub KMTEKLE_Click()



Dim v As Variant
rs.Open "TabloPersonel", CurrentProject.Connection, adOpenDynamic, adLockOptimistic

rs.AddNew
rs(1) = Me.MTNADSOYAD
rs(2) = Me.MTNUNVAN
rs(3) = Me.MTNADRES

rs.Update

rs.Close
Me.MTNADSOYAD = " "
Me.MTNUNVAN = " "
Me.MTNADRES = " "
Me.LSTPERSONEL.Requery
Me.LSTPERSONEL.SetFocus
End Sub





Verdiğiniz kodları nereye eklersem uygun olur acaba,
bir kaç yerine ekledim denedim malesef yine boş kayıt attı