Run time error 381 - Combobox

1 naročnik

Pozdravljeni,

v VBA se mi preko Comboboxa prikažejo različne stranke, ki se dobijo prek mdb datoteke.

Problem pa nastane, ko želim v comboboxu ročno vpisati stranko, ki ne obstaja. Tako dobim error:
Run-time error '381':
Could not get the column property. invalid property array index.

Koda, ki je povezana s to napako izgleda testno takole:

Private Sub cmbStranke1_Change()

    strankID = cmbStranke1.Column(0)

End Sub

Namreč želel bi preko comboboxa dobiti ime stranke in prek baze pridobil dodatne informacije stranke, ter te podatke prikazati v različnih textboxih.

Celotna koda za spremembo izgleda takole:

Private Sub cmbStranke1_Change()

    strankID = cmbStranke1.Column(0)

    Dim con As String
    Dim cn As ADODB.Connection
    Dim rs As ADODB.Recordset
    Dim sql As String
    con = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Temp\baza.mdb;Persist Security Info=False"
    sql = "SELECT * FROM stranke WHERE ime_podjetja = '" & strankID & "';"

    Set cn = New ADODB.Connection
    Set rs = New ADODB.Recordset
    cn.Open con
    rs.Open sql, cn, 3, 3, 1

    If IsNull(rs.Fields(0).Value) Then
        txtNaziv = ""
        txtNaslov = ""
        txtPostnaSt = ""
        txtKraj = ""
    Else
        txtNaziv = rs.Fields(1).Value
        txtNaslov = rs.Fields(2).Value
        txtKraj = rs.Fields("kraj").Value
        txtPostnaSt = rs.Fields("postna_st").Value
        strankaID = rs.Fields("id").Value
    End If
    rs.Close
    cn.Close
    Set rs = Nothing
    Set cn = Nothing
End Sub

Zna mogoče kdo tukaj priskočiti na pomoč?

Sem že rešil problem. Namesto
strankID = cmbStranke1.Column(0)

sem uporabil:
strankID = cmbStranke1.Value

A se kdo spozna kaj na excel in access?

Namreč želel bi nekako povezati Access z Excelom tako, da lahko nekateri uporabniki lahko vnašajo podatke v Excel, medtem pa se te podatki osvežijo ob shranitvi tudi na Accessovi bazi oziroma obratno.

Kako linkati iz Excela v Access sem pogruntal, ampak potem v Accessu ni mogoče popravljati teh tabel.