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č?