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