25/03/2010, 19:04
Merhabalar,
Access üzerindeki MüsteriListesi adlı tablodan, Excel üzerindeki Combobox'a aşağıdaki kodlarla firma adını aldırdım. Exceldeki Comboboxtan firma ismini seçtiğimde Access üzerindeki MusteriListesi adlı tabloya bakıp bilgileri textboxlara getirecek kodlar konusunda yardımcı olmanız mümkünmüdür?
Private Sub UserForm_Initialize()
Dim rs As ADODB.Recordset
Dim yol As String
yol = ThisWorkbook.Path
Set conn = New ADODB.Connection
conn.Open "Provider=microsoft.jet.oledb.4.0;Data source=" & yol & "\ALSDATA.mdb;"
Set rs = New ADODB.Recordset
Set rs = conn.Execute("select Distinct CariAdi from MusteriListesi")
On Error Resume Next
cbmbccariad.Column = rs.GetRows(rs.RecordCount)
If cbmbccariad.ListCount > 0 Then cbmbccariad.ListIndex = 0
Set rs = Nothing
End Sub
Saygılar
Access üzerindeki MüsteriListesi adlı tablodan, Excel üzerindeki Combobox'a aşağıdaki kodlarla firma adını aldırdım. Exceldeki Comboboxtan firma ismini seçtiğimde Access üzerindeki MusteriListesi adlı tabloya bakıp bilgileri textboxlara getirecek kodlar konusunda yardımcı olmanız mümkünmüdür?
Private Sub UserForm_Initialize()
Dim rs As ADODB.Recordset
Dim yol As String
yol = ThisWorkbook.Path
Set conn = New ADODB.Connection
conn.Open "Provider=microsoft.jet.oledb.4.0;Data source=" & yol & "\ALSDATA.mdb;"
Set rs = New ADODB.Recordset
Set rs = conn.Execute("select Distinct CariAdi from MusteriListesi")
On Error Resume Next
cbmbccariad.Column = rs.GetRows(rs.RecordCount)
If cbmbccariad.ListCount > 0 Then cbmbccariad.ListIndex = 0
Set rs = Nothing
End Sub
Saygılar