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.
Private Sub Combo1_Click()
adodc1.Recordset.FindFirst ("musteriadi='" & Combo1.Text & "'")
End Sub
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
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ışı.
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ışı.
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.