aktiver CommandButton med checkBox

if check1.value=1 then
command1.enabled=true
end if

Hej.

Måske også den anden halvdel:

If Check1.Value = 1 Then
    Command1.Enabled = True
  Else
    Command1.Enabled = False
End If

I stedet for Enabled kan du bruge Visible, så kan knappen ikke ses, når den ikke skal kunne bruges.

M.v.h.  Jørn

NB: Den kode joern/blueeye97 giver skal fx. placeres i din checkbox's _Click-event:

Private Sub Check1_Click()
  If Check1.Value = 1 Then
    Command1.Enabled = True
  Else
    Command1.Enabled = False
  End If
End Sub

Så skal du også huske at sørge for, at det hele passer når du starter programmet, hvor der jo endnu ikke er blevet trykket på checkboxen:
Dvs. at knappen fra start er enabled hvis checkboxen fra start ikke er afkrydset eller omvendt. Det kan du gøre i designtime vha. dit properties-vindue, eller runtime således:

Private Sub Form_Load()
  Check1.Value = 0
  Command1.Enabled = False
End Sub

Eller blot ved at simulerer et tryk på checkboxen under programstart:

Private Sub Form_Load()
  Check1_Click  '< Simulerer klik på check-boxen
End Sub

Håber du blev klogere af ovenstående :o)

Den kan også laves sådan:

Private Sub Check1_Click()
  Command1.Enabled = Check1.Value
End Sub

Private Sub Command1_Click()
  MsgBox "Hej"
End Sub

Private Sub Form_Load()
  Check1_Click
End Sub

Endnu mere elegant med Command1.Enabled = Check1.Value i stedet for If-sætningen :o)

Tak for hjælpen