Hallåjs,

undrar hur man kollar om en checkbox är ikryssad. Här är "skalet" till funktionen:

Private Sub chkDetAnst_Change()
If [kolla om ikryssad] Then
cboFranTjanst.Enabled = False
cboTillTjanst.Enabled = False

ElseIf [kolla om INTE ikryssad] Then
'Visar alla tjanster i cboFranTjanst och cboTillTjanst
databas.listaTjanster cboFranTjanst
databas.listaTjanster cboTillTjanst
cboFranTjanst.ListIndex = 0
cboTillTjanst.ListIndex = cboTillTjanst.ListCount - 1
End If
End Sub

/e:a

CheckBox kontrollen har en egenskap, Value, som kan vara vbChecked, vbUnChecked och vbGrayed. Efter som Value är default egenskapen behövs den ej sktrivs ut.

Checkboxen har inget Change event. Du kan istället använda Click eventet eller Validate Eventet.


Private Sub chkDetAnst_Click()
If chkDetAnst.Value = vbChecked Then
cboFranTjanst.Enabled = False
cboTillTjanst.Enabled = False
ElseIf chkDetAnst.Value = vbUnchecked Then
'Visar alla tjanster i cboFranTjanst och cboTillTjanst
databas.listaTjanster cboFranTjanst
databas.listaTjanster cboTillTjanst
cboFranTjanst.ListIndex = 0
cboTillTjanst.ListIndex = cboTillTjanst.ListCount - 1
End If

End Sub

'Förenklad variant...

If chkDetAnst = vbChecked Then
cboFranTjanst.Enabled = False
cboTillTjanst.Enabled = False
Else
'Visar alla tjanster i cboFranTjanst och cboTillTjanst
databas.listaTjanster cboFranTjanst
databas.listaTjanster cboTillTjanst
cboFranTjanst.ListIndex = 0
cboTillTjanst.ListIndex = cboTillTjanst.ListCount - 1
End If

'Ytterligare ett alternativ

Select Case chkDetAnst.Value
Case vbChecked
cboFranTjanst.Enabled = False
cboTillTjanst.Enabled = False
Case vbUnchecked
'Visar alla tjanster i cboFranTjanst och cboTillTjanst
databas.listaTjanster cboFranTjanst
databas.listaTjanster cboTillTjanst
cboFranTjanst.ListIndex = 0
cboTillTjanst.ListIndex = cboTillTjanst.ListCount - 1
End Select

Hallåjs igen,

hur gör man då för att kolla om en optionbutton är ikryssad?

/e:a

if optionbutton1.Value = True Then
MsgBox "I kryssad"
End if
End Sub