Pogledaj u frmChapter32 kako funkcionise to sa nizovima option buttona.
Code:
Private Sub optTable_Click(Index As Integer)
m_TableName = optTable(Index).Caption
End Sub
Ovde je vrednost cuvana u Captionu, a mozes da koristis Tag ili sl. Znaci promenljiva na nivou forme, koja se azurira klikom na option button.
Kad se klikne na button Save ili Update, treba updateovati i ostala polja koja na formi nisu predstavljena textboxovima. Vrednosti iz textboxova se preuzimaju u petlji, s tim sto se polje iz baze nalazi u tagu textbox kontrole (meni je tako zgodno da radim, a moze i drugacije).
Po meni, preglednije je da napravis nesto ovako:
optStrucnaSprema (niz)
optBracnoStanje (niz)
chkEngleski (nema potrebe da bude niz)
chkTalijanski (nema potrebe da bude niz)
a u kodu da imas ovako nesto:
Code:
Dim optOption As OptionButton
For Each optOption In optStrucnaSprema
If optOption.Value Then
adoRS.fields(optOption.Tag).Value = optOption.Caption
Exit For
End If
Next
ili ako koristis pricu sa pocetka poruke sa promenljivom na nivou forme
Code:
Private m_StrucnaSprema As String
....
Private Sub optStrucnaSprema_Click(Index As Integer)
m_StrucnaSprema = optStrucnaSprema(Index).Caption
End Sub
...
adoRS.Fields("StrucnaSprema").Value = m_StrucnaSprema
Sto se tice check boxova, tu nema potrebe da koristis nizove kontrola
Code:
adoRS.Fields("Engjezik").Value = (chkEngleski.Value=vbChecked)
VB Check & Option
