+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Liste kutusuna değer girmek. (/konu-liste-kutusuna-deger-girmek.html)
Liste kutusuna değer girmek. - direnist - 17/09/2013
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.
Cvp: Liste kutusuna değer girmek. - direnist - 18/09/2013
Merhaba;
Cevabı söyle imiş. Belki bir yerde işinize yarar.
Me.ListekutusuAdı.AddItem Me.Text1 & ";" & Me.Text2 & ";" & Me.Text3İyi akşamlar.
Cvp: Liste kutusuna değer girmek. - mhmtogz - 24/09/2013
2003 olarak ekledim.
Cvp: Liste kutusuna değer girmek. - akdemir1 - 22/02/2014
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.
Cvp: Liste kutusuna değer girmek. - atoz112 - 22/02/2014
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.
Cvp: Liste kutusuna değer girmek. - akdemir1 - 22/02/2014
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ı