Checxk Box Control source

[Middlemarch]

This looked like an answer I need
https://www.access-programmers.co.uk...y-fill.275306/

But my checkbox has no control source property. I tries Me.Check2.controlSource = 0 in Form Load but that had no effect.


Likewise Me.Check2.DefaultValue = ( tried -1, 0, and 1). All did nothing.

The Checkbox is unbound and just for display. How can have a tick showing?
Thanks.

[June7]

Did you place checkbox within an option group control? If it is, it won't have ControlSource property.

Checkbox must be independent to have ControlSource property.

[Middlemarch]

Yes I did June. Does this mean it can't be ticked or unticked with VBA code ?

[June7]

Correct. The OptionGroup control has ControlSource property. Set it.

Why an OptionGroup anyway?

[davegri]

Checkboxes in an option group are a very different animal than standalone checkboxes. Those in an option frame are referred via the option frame's index. The index indicates which control within the option group is selected. In the example, there is only one checkbox so the only values possible for the option frame is 0 (nothing selected) and 1. The code simply toggles the option frame value between 0 and 1. The frame needs a default value of either 1 or 0, depending on which is desirable when form is loaded.


A standalone checkbox does have a value; true or false. The code for chk2 toggles true and false for the click event.

Private Sub chk1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Me.Frame8.Value = 0 Then
        Me.Frame8.Value = 1
    Else
        Me.Frame8.Value = 0
    End If
End Sub


Private Sub Chk2_Click()
    chk2.Value = Not chk2.Value
End Sub

[June7]

Can have multiple checkboxes within Option Group although the usual arrangement is with radio buttons.

Can also have toggle buttons in a Group. The advantage is they are bigger than checkboxes and radio buttons.

[Middlemarch]

I wanted to have a border around a bunch of controls for visual affect. I used an option Group as I couldn't find another frame control.
Could I have used something else?
Dave has put me right and now I have the check button working.
Instead of
Me.Check2.Value = False
its
Me.Frame0.Value = 0
No mouse action is needed as its a on/off type of display.
Vague memories about addressing via a Frame... but the text boxes didn't need it so it never occurred to me.
Thanks !!

[June7]

Can use a rectangle control set transparent. Order it behind other controls.

"its a on/off type of display" - what triggers on/off?

[Middlemarch]

Thanks June, I've changed to the rectangle.
Is that a bit like a Panel in VB ?
The check indicates whether a file exists or not.

[Micron]

If you need the frame caption that a group frame has, add a label over your rectangle in the same position and make its background solid, and perhaps its colour to match the form background.

[June7]

Okay, so how do you know a file exists?

[Middlemarch]

Okay, so how do you know a file exists?

Function fileExists(s_path As String) As Boolean
    Dim obj_fso As Object
    Set obj_fso = CreateObject("Scripting.FileSystemObject")
    fileExists = obj_fso.fileExists(s_path)
    Set obj_fso = Nothing
End Function

[June7]

So expression in checkbox Control Source:

=fileExists(reference textbox that has filename)

Don't even need FSO. Function can use:

fileExists = IIf(Dir(s_path) <> "", True, False)

[CJ_London]

Don’t even need that

fileExists = Dir(s_path) <> ""