Na Form_load imam ucitavanje itema u combo
Na Combo1_clicki Combo1_change imam dogadjaj izvlacenje iz baze i prikazivanje u textbox-ove
Sve to lepo radi, medjutim:
Kada se radi Form_load po defaultu mi ne prikaze PRVO pocetno stanje vec moram da rucno kliknem na PRVI item da bi se rezultati prikazali u textboxove
Private Sub Form_Load()
combo1_popunjavanje
End Sub
Sub combo1_popunjavanje()
Dim SQL As String
Dim BrojacArtikala As Long
openconn
SQL = "SELECT * FROM baza_imenika ORDER BY redni_broj DESC;"
Set rs = conn.Execute(SQL)...
Private Sub Combo1_Click()
combo1_klik
End Sub
Private Sub Combo1_Change()
combo1_klik
Combo1.SetFocus
End Sub
Sub combo1_klik()
On Error Resume Next
Dim SQL As String
openconn
SQL = "SELECT * FROM baza_imenika WHERE maticni_broj='" & Combo1.ItemData(Combo1.ListIndex) & "'"
Set rs = conn.Execute(SQL)
If rs.EOF Then
closeconn
Exit Sub
End If
Do Until rs.EOF
Smaticni = rs.Fields.Item(0)
Spib = rs.Fields.Item(4)
Smobilni = rs.Fields.Item(5)
Sposao = rs.Fields.Item(5)
Sfax = rs.Fields.Item(6)
Semail = rs.Fields.Item(7)
Text3.Text = Smaticni
Text4.Text = Spib
Text5.Text = Smobilni
Text6.Text = Sposao
Text7.Text = Sfax
Text8.Text = Semail ...