Hej

Jag använder en del checkboxar i mitt program som man klickar i och i visa fall visas ett meddelande i form av msgbox.

Nu visar sig det att om man tex, öppnar form2 som innhåller checkboxarna som laddas med värden från databasen, då kommer ett meddelande upp innan form2 har visats om någon checkbox är checked detta är väldigt irreterande tycker jag efter som jag bara vill visa meddelandet när man klickar i checkboxen inte bara för att checkboxen har värdet true (checked).

Verkar som checkboxar tolkar click lika som change.

min kod:
Private Sub Check15_Click()
If Check15.Value = Checked Then
Check15.ForeColor = &HFF&
MsgBox "Hej"

ElseIf Check15.Value = Unchecked Then
Check15.ForeColor = &H0&
MsgBox "Hej då "
End If
End Sub

Går detta att göra på annat sätt!!!


Hälsningar
Tobbe

Kan ju använda en variable som flagga:
<code>
Private mDoNothing As Boolean

Private Sub Form_Load()
mDoNothing = True

Check15.Value = vbChecked
Check15.Value = vbUnChecked

mDoNothing = False
End Sub

Private Sub Check15_Click()
If mDoNothing Then
Else
Select Case Check15.Value
Case vbChecked Then
Check15.ForeColor = &HFF&
MsgBox "Hej"
Case vbUnChecked
Check15.ForeColor = &H0&
MsgBox "Hej då "
End Select
End If
End Sub
</code>