Skip to main content

AccessTr.neT


Combobox taki veriyi seçince textbox ları otomatik doldurma

Combobox taki veriyi seçince textbox ları otomatik doldurma

Çözüldü #1
Merhaba;

Combo1 'e Access databasedeki müşteri listesini ekledim combo1 den hangi firmayı seçersem textboxlardaki adres ,vergi no,vdairesi,il,ilce,tel,faks gibi alanların otomatik doldurmasını istiyorum bunula ilgili yardımcı olabilirmisiniz.

Örnek ektedir.
İyi çalışmalar.
.rar irsaliye.rar (Dosya Boyutu: 151,09 KB | İndirme Sayısı: 23)
Cevapla
Çözüldü #2
Private Sub Combo1_Click()
adodc1.Recordset.FindFirst ("musteriadi='" & Combo1.Text & "'")
End Sub
<<< 10-HAGİ-10 >>>
Cevapla
Çözüldü #3
Bu kodla olmadı Img-grin
hata veriyor "compile error

(04/01/2014 21:45)mcmaho Adlı Kullanıcıdan Alıntı: Private Sub Combo1_Click()
adodc1.Recordset.FindFirst ("musteriadi='" & Combo1.Text & "'")
End Sub
Cevapla
Çözüldü #4
kusura bakmayın yanlışlık olmuş. findfirst teki first bölümünü sileceksiniz.daha önce adodc nesnesi kullanmadıgım için zorluk oluyor. bana data nesnesi daha rahat geliyo kullanışı.
<<< 10-HAGİ-10 >>>
Cevapla
Çözüldü #5
Vermiş olduğunuz kod eksik gibi çünkü ben combo1 de müşteri adını seçince
txtadres.text = "adres"
txtil = "il"
txtilce= "ilce"
txtVno = "vno"
txtVdairesi = "vdairesi"

alanlarının otomatik doldurulmasını istiyorum.


(04/01/2014 22:07)mcmaho Adlı Kullanıcıdan Alıntı: kusura bakmayın yanlışlık olmuş. findfirst teki first bölümünü sileceksiniz.daha önce adodc nesnesi kullanmadıgım için zorluk oluyor. bana data nesnesi daha rahat geliyo kullanışı.
Cevapla
Çözüldü #6
Private Sub Combo1_Click()
If Combo1.ListIndex = 0 Then
Adodc1.Recordset.MoveFirst
Else
Adodc1.Recordset.Find "madi = '" & Combo1.Text & "'", 1, adSearchForward, 1
End If
End Sub

bu şekilde kullanırsanız combo daki liseteye tıklanınca kayda ait bilgiler gelir.
<<< 10-HAGİ-10 >>>
Son Düzenleme: 05/01/2014, 14:39, Düzenleyen: mcmaho.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da