Skip to main content

AccessTr.neT


Liste kutusuna değer girmek.

Liste kutusuna değer girmek.

Çözüldü #1
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.
.rar Database1 - Copy.rar (Dosya Boyutu: 44,68 KB | İndirme Sayısı: 22)
Cevapla
Çözüldü #2
Merhaba;
Cevabı söyle imiş. Belki bir yerde işinize yarar.
Visual Basic Code
 Me.ListekutusuAdı.AddItem Me.Text1 & ";" & Me.Text2 & ";" & Me.Text3
Bilgilerinize.
İyi akşamlar.
Cevapla
Çözüldü #3
2003 olarak ekledim.
.rar deneme.rar (Dosya Boyutu: 14,43 KB | İndirme Sayısı: 23)
Son Düzenleme: 24/09/2013, 03:38, Düzenleyen: mhmtogz.
Cevapla
Çözüldü #4
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.
HAYAT BİR SINAVSA,,,
ADIMI YAZAR ÇIKARIM..
.
Cevapla
Çözüldü #5
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.
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
Çözüldü #6
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ı
HAYAT BİR SINAVSA,,,
ADIMI YAZAR ÇIKARIM..
.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da