This code does not execute when I am choosing no

[Jack]

Hi,
I have an Access tabbed form. There is a checkbox in tab5. Now I have a
business rule that if I move from a textbox of tab5 to tab6(tab6 is a
subform) then a MsgBox should prompt if this will affect tab6. If the answer
is yes the focus will be in tab6 after checking the check box in tab5. If the
answer is no then the focus will also be in tab6
However the checkbox should be unchecked.

I have the following code in lost focus of the textbox of tab5. Now when the
focus moves out fo textbox of tab5 I get the msgbox. However when I click no,
the code is not being executed. I am not sure why. I appreciate any help for
resolution of this issue.
CODE:
response = MsgBox("Can cause effect on other process? If Yes consider in
6d.", vbYesNo, "Confirm Yes")

If response = vbYes Then
'Make sure to make the checkbox checked
Check523.Value = True
Me![qry6DPermAction subform].Form.txt6DPermAct1.SetFocus
Else

Debug.Print ("Right Here")
Check523.Value = False
Me![qry6DPermAction subform].Form.txt6DPermAct1.SetFocus
End If

 

[Michael Gramelspacher]

subform].Form.txt6DPermAct1.SetFocus

try

subform].Form!txt6DPermAct1.SetFocus

 

[tina]

when the

focus moves out fo textbox of tab5 I get the msgbox.

but is the control in the subform getting the focus? it's not clear whether
you're seeing the focus move to the subform control on response = vbYes, but
not on response = vbNo, or if you're not seeing the focus move to the
subform control regardless of the response.

at any rate, several suggestions: first, there's no point putting the
SetFocus command in the If statement, because you want it to run regardless.
that being the case, you can simplify the code considerably, as

response = MsgBox("Can cause effect on other process?" _
& "If Yes consider in 6d.", vbYesNo, "Confirm Yes")

Me!Check523 = (response = vbYes)
Me![qry6DPermAction subform].Form!txt6DPermAct1.SetFocus

second, you may have to set focus to the subform first, before setting focus
to the control in the subform, as

Me![qry6DPermAction subform].SetFocus
Me![qry6DPermAction subform].Form!txt6DPermAct1.SetFocus

third, if that doesn't work, make sure you're using the *name of the subform
container control WITHIN the mainform*, NOT the name of the subform as it
shows in the database window. those two names may be the same or different.
to get the correct subform name, open the mainform in Design view. click
*once* on the subform to select it. in the Properties box, click on the
Other tab and look at the Name property. that's the name of the subform
control that holds, or "contains", the subform form object. that's the name
you need to refer to in code.

and last, if you take care of all the above and still have no joy, try
moving the code from the textbox control's LostFocus event to its' Exit
event.

hth

Hi,
I have an Access tabbed form. There is a checkbox in tab5. Now I have a
business rule that if I move from a textbox of tab5 to tab6(tab6 is a
subform) then a MsgBox should prompt if this will affect tab6. If the answer
is yes the focus will be in tab6 after checking the check box in tab5. If the
answer is no then the focus will also be in tab6
However the checkbox should be unchecked.

I have the following code in lost focus of the textbox of tab5. Now when the
focus moves out fo textbox of tab5 I get the msgbox. However when I click no,
the code is not being executed. I am not sure why. I appreciate any help for
resolution of this issue.
CODE:
response = MsgBox("Can cause effect on other process? If Yes consider in
6d.", vbYesNo, "Confirm Yes")

If response = vbYes Then
'Make sure to make the checkbox checked
Check523.Value = True
Me![qry6DPermAction subform].Form.txt6DPermAct1.SetFocus
Else

Debug.Print ("Right Here")
Check523.Value = False
Me![qry6DPermAction subform].Form.txt6DPermAct1.SetFocus
End If

 

[Jack]

Tina,
You have been a live savior for resolution of this issue. Your code worked
perfect. Thanks for the nice explanation of the concepts and the code change.
Thanks again. Regards.

when the
focus moves out fo textbox of tab5 I get the msgbox.

but is the control in the subform getting the focus? it's not clear whether
you're seeing the focus move to the subform control on response = vbYes, but
not on response = vbNo, or if you're not seeing the focus move to the
subform control regardless of the response.

at any rate, several suggestions: first, there's no point putting the
SetFocus command in the If statement, because you want it to run regardless.
that being the case, you can simplify the code considerably, as

response = MsgBox("Can cause effect on other process?" _
& "If Yes consider in 6d.", vbYesNo, "Confirm Yes")

Me!Check523 = (response = vbYes)
Me![qry6DPermAction subform].Form!txt6DPermAct1.SetFocus

second, you may have to set focus to the subform first, before setting focus
to the control in the subform, as

Me![qry6DPermAction subform].SetFocus
Me![qry6DPermAction subform].Form!txt6DPermAct1.SetFocus

third, if that doesn't work, make sure you're using the *name of the subform
container control WITHIN the mainform*, NOT the name of the subform as it
shows in the database window. those two names may be the same or different.
to get the correct subform name, open the mainform in Design view. click
*once* on the subform to select it. in the Properties box, click on the
Other tab and look at the Name property. that's the name of the subform
control that holds, or "contains", the subform form object. that's the name
you need to refer to in code.

and last, if you take care of all the above and still have no joy, try
moving the code from the textbox control's LostFocus event to its' Exit
event.

hth

Hi,
I have an Access tabbed form. There is a checkbox in tab5. Now I have a
business rule that if I move from a textbox of tab5 to tab6(tab6 is a
subform) then a MsgBox should prompt if this will affect tab6. If the answer
is yes the focus will be in tab6 after checking the check box in tab5. If the
answer is no then the focus will also be in tab6
However the checkbox should be unchecked.

I have the following code in lost focus of the textbox of tab5. Now when the
focus moves out fo textbox of tab5 I get the msgbox. However when I click no,
the code is not being executed. I am not sure why. I appreciate any help for
resolution of this issue.
CODE:
response = MsgBox("Can cause effect on other process? If Yes consider in
6d.", vbYesNo, "Confirm Yes")

If response = vbYes Then
'Make sure to make the checkbox checked
Check523.Value = True
Me![qry6DPermAction subform].Form.txt6DPermAct1.SetFocus
Else

Debug.Print ("Right Here")
Check523.Value = False
Me![qry6DPermAction subform].Form.txt6DPermAct1.SetFocus
End If

 

[tina]

you're welcome

Tina,
You have been a live savior for resolution of this issue. Your code worked
perfect. Thanks for the nice explanation of the concepts and the code change.
Thanks again. Regards.

when the
focus moves out fo textbox of tab5 I get the msgbox.

but is the control in the subform getting the focus? it's not clear whether
you're seeing the focus move to the subform control on response = vbYes, but
not on response = vbNo, or if you're not seeing the focus move to the
subform control regardless of the response.

at any rate, several suggestions: first, there's no point putting the
SetFocus command in the If statement, because you want it to run regardless.
that being the case, you can simplify the code considerably, as

response = MsgBox("Can cause effect on other process?" _
& "If Yes consider in 6d.", vbYesNo, "Confirm Yes")

Me!Check523 = (response = vbYes)
Me![qry6DPermAction subform].Form!txt6DPermAct1.SetFocus

second, you may have to set focus to the subform first, before setting focus
to the control in the subform, as

Me![qry6DPermAction subform].SetFocus
Me![qry6DPermAction subform].Form!txt6DPermAct1.SetFocus

third, if that doesn't work, make sure you're using the *name of the subform
container control WITHIN the mainform*, NOT the name of the subform as it
shows in the database window. those two names may be the same or different.
to get the correct subform name, open the mainform in Design view. click
*once* on the subform to select it. in the Properties box, click on the
Other tab and look at the Name property. that's the name of the subform
control that holds, or "contains", the subform form object. that's the name
you need to refer to in code.

and last, if you take care of all the above and still have no joy, try
moving the code from the textbox control's LostFocus event to its' Exit
event.

hth

Hi,
I have an Access tabbed form. There is a checkbox in tab5. Now I have a
business rule that if I move from a textbox of tab5 to tab6(tab6 is a
subform) then a MsgBox should prompt if this will affect tab6. If the answer
is yes the focus will be in tab6 after checking the check box in tab5.

If
the

answer is no then the focus will also be in tab6
However the checkbox should be unchecked.

I have the following code in lost focus of the textbox of tab5. Now

when
the

focus moves out fo textbox of tab5 I get the msgbox. However when I

click
no,

the code is not being executed. I am not sure why. I appreciate any

help
for

resolution of this issue.
CODE:
response = MsgBox("Can cause effect on other process? If Yes consider in
6d.", vbYesNo, "Confirm Yes")

If response = vbYes Then
'Make sure to make the checkbox checked
Check523.Value = True
Me![qry6DPermAction subform].Form.txt6DPermAct1.SetFocus
Else

Debug.Print ("Right Here")
Check523.Value = False
Me![qry6DPermAction subform].Form.txt6DPermAct1.SetFocus
End If