Problem with checkboxes[RESOLVED]

[trinic]

Ok here's my problem,

I have a checkbox, on formload it checks a database to see if it's checked. The problem is if it is checked it's asked the user to re-fill out the inputforms because the form will put a check in it on load triggering the events. The hard part is the checkbox also contains the uncheck code which zero's everything out. How can i make it check on load and still have the uncheck capabilities. I've tried several different things to no avail... I've tried...

With mytable
If !mycheckbox = true Then
Exit Sub
end with

the problem with that is it kills the functionality of the uncheck because when the box is clicked it checks the table, see's it's checked and then exits.

[iPrank]

Add a Static flag.

Option Explicit
 
Private Sub Check1_Click()
Static IsAlreadyLoaded As Boolean
 
' Do stuff
If IsAlreadyLoaded Then
    MsgBox "Put your uncheck code here"
Else
    IsAlreadyLoaded = True
End If
End Sub
 
Private Sub Form_Load()
    Check1.Value = vbChecked
End Sub

[trinic]

not quite... this is what i'm talking about, see if you can make the input box only popup when you check the box

Option Explicit
 
Private Sub Check1_Click()
Static IsAlreadyLoaded As Boolean
Dim nick As String
 
 nick = InputBox("what")
If IsAlreadyLoaded Then
    MsgBox "Put your uncheck code here"
Else
    IsAlreadyLoaded = True
   
End If
End Sub
 
Private Sub Form_Load()
    Check1.Value = vbChecked
End Sub

not when the form loads

[iPrank]

Option Explicit
 
Private Sub Check1_Click()
    Static IsAlreadyLoaded As Boolean
    Dim nick As String
    
    ' Common codes
    If IsAlreadyLoaded Then
        'codes you want to run when form is already LOADED
        If Check1.Value = vbChecked Then
            nick = InputBox("what")
        End If
    Else
        'codes you want to run when form is LOADING
        IsAlreadyLoaded = True
    End If
    ' Common codes
End Sub
 
Private Sub Form_Load()
    Check1.Value = vbChecked
End Sub

Edit:
In this code, you must change the value of the checkbox from Form_Load. Otherwise the Static value will not change.
If you want the checkbox to be unchecked when the form loads for first-time, set it to Checked during designtime and in form load write,

Private Sub Form_Load()
    Check1.Value = vbUnchecked
End Sub

[Andrew G]

Possibly using the mouseup event instead of the click?

Private Sub Check1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim nick As String
 
nick = InputBox("what")
End Sub

[trinic]

ty, exp points added