Ticking Check Boxes

[azizrasul]

I have an MS Access database where I am trying to place a tick in a check box if the Yes\No value in a recordset value is True. Here's a snippet of the code: -

    With objExcelApp
            If rst!sessioncompleted = True Then
                .Range("H9").Select
                .ActiveSheet("Check Box 1").Value = True
            End If
    End With

I get the run time error 438 i.e. Object doesn't support this property or method on the .ActiveSheet line. Any ideas anyone?

 

[smozgur]

I have to assume that it is an Excel workbook you are trying to tick a checkmark on the active worksheet according to Access recordset field value from the Access module. Again, I have to assume that it is "check box form control", not Visual Basic Checkbox Control (I guess from the checkbox name). Please ignore the comment below if I am wrong.

It should be like following I guess:

.Activesheet.Shapes("Check Box 1").OLEFormat.Object.Value = True

 

[azizrasul]

I'm writing the code from Access. I tried

If rst!sessioncompleted = True Then
.Range("H" & x).Select
.Range("H" & x).Value = True
End If

and it worked. I hadn't realised that I had linked the cell to the check boxes.