AccessTr.neT
Combobox taki veriyi seçince textbox ları otomatik doldurma - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Visual Basic 6 (https://accesstr.net/forum-visual-basic-6.html)
+--- Forum: Visual Basic 6 Cevaplanmış Soruları (https://accesstr.net/forum-visual-basic-6-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Combobox taki veriyi seçince textbox ları otomatik doldurma (/konu-combobox-taki-veriyi-secince-textbox-lari-otomatik-doldurma.html)

Sayfalar: 1 2


Combobox taki veriyi seçince textbox ları otomatik doldurma - hyavuz - 04/01/2014

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.


Cvp: Combobox taki veriyi seçince textbox ları otomatik doldurma - mcmaho - 04/01/2014

Private Sub Combo1_Click()
adodc1.Recordset.FindFirst ("musteriadi='" & Combo1.Text & "'")
End Sub


Cvp: Combobox taki veriyi seçince textbox ları otomatik doldurma - hyavuz - 04/01/2014

Bu kodla olmadı Img-grin
hata veriyor "compile error

(04/01/2014, 21:45)mcmaho yazdı: Private Sub Combo1_Click()
adodc1.Recordset.FindFirst ("musteriadi='" & Combo1.Text & "'")
End Sub



Cvp: Combobox taki veriyi seçince textbox ları otomatik doldurma - mcmaho - 04/01/2014

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ışı.


Cvp: Combobox taki veriyi seçince textbox ları otomatik doldurma - hyavuz - 04/01/2014

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 yazdı: 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ışı.



Cvp: Combobox taki veriyi seçince textbox ları otomatik doldurma - mcmaho - 05/01/2014

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.