Repopulating Userform from database Checkbox issue

[dellehurley]

Hi,
I'm sure this is simple but I cannot find the answer.
I have a userform which sends data to a database. If the checkbox is checked then it makes the cell bold. This is working well. My issue is with the edit function, this repopulated the userform so changes can be made. I cannot get the checkbox to check if the cell is bold, this is what I have

If shDB.Range("A2").Font.Bold = True Then
        Me.cboxPriority1.Font.Bold = True
        Else

debug results are
Line 1= false (when it should be true).
Line 2, 1st section =Null and Line 2, 2nd part =True

what am I doing wrong?
Dannielle

 

[Zot]

I don't see nothing wrong with
If shDB.Range("A2").Font.Bold = True

If the A2 is Bold then the condition should be true, but I thought you want to make cboxPriority1 value to true, not change its caption to Bold? I'm confused.

 

[dellehurley]

I don't see nothing wrong with
If shDB.Range("A2").Font.Bold = True

If the A2 is Bold then the condition should be true, but I thought you want to make cboxPriority1 value to true, not change its caption to Bold? I'm confused.

sorry to be confusing.

If text in A2 is Bold, I want the checkbox in the userform to be checked OR if A2 is not bold the checkbox should remain unchecked.
My debug example is referring to an example when the text is bold.
Does that make sense?

 

[Zot]

sorry to be confusing.

If text in A2 is Bold, I want the checkbox in the userform to be checked OR if A2 is not bold the checkbox should remain unchecked.
My debug example is referring to an example when the text is bold.
Does that make sense?

If the font in a cell is bold, then to make the checkbox ticked, the syntax should be CheckBox.value=True and False for unchecked

 

[dellehurley]

If the font in a cell is bold, then to make the checkbox ticked, the syntax should be CheckBox.value=True and False for unchecked

 

[dellehurley]

I presume this is what you mean? It didn't work either

        shDB.Activate
        If shDB.Range("A2").Font.Bold Then
        Me.cboxPriority1.Value = True
        Else
        End If

FYI - shDB is the worksheet. (The code above which I have not included as it is working fine, is working on a different worksheet so I thought that might have been the issue.)
cboxPriority1 is the checkbox

 

[Zot]

I presume this is what you mean? It didn't work either

        shDB.Activate
        If shDB.Range("A2").Font.Bold Then
        Me.cboxPriority1.Value = True
        Else
        End If

FYI - shDB is the worksheet. (The code above which I have not included as it is working fine, is working on a different worksheet so I thought that might have been the issue.)
cboxPriority1 is the checkbox

From your debug, it is not detecting range A2 as bold. You need to find out why, but the code line seems correct to me.

 

[dellehurley]

From your debug, it is not detecting range A2 as bold. You need to find out why, but the code line seems correct to me.

Thanks for helping. At least I know I am basically on track. I will keep digging.
Have a good weekend.

 

[dellehurley]

Thanks for helping. At least I know I am basically on track. I will keep digging.
Have a good weekend.

I fixed an issue with the save function and now the edit function is working! Weird. But it now works. Thanks again for your help.