Solved How do I set the focus to a component on the main from an Error Event of a subform (1 Viewer)

[bmaccess]

Hi there. I would like to set the focus on a component cmdBookNoTitle in my main form from an Error Event handler of a subform.
The name of my subform is frmStudentBooksSubform.
The parent form is frmLearnerBaseDetails
The component on the main form is cmdBookNoTitle.
Thanks

Error Event code:
If DataErr = 3022 Then
MsgBox "Duplicate unique number.", vbInformation, "Message"
Response = 0
Me.StudentBookIssue_ID = ""
SendKeys "{esc}", True
SendKeys "{esc}", True
Exit Sub
End If

 

[Pat Hartman]

To set focus to the parent form, use:

Me.Parent!cmdBookNoTitle.SetFocus

But, this doesn't seem logical. Why would the book title be entered on the main form but the error thrown by the subform?

 

[bmaccess]

To set focus to the parent form, use:

Me.Parent!cmdBookNoTitle.SetFocus

But, this doesn't seem logical. Why would the book title be entered on the main form but the error thrown by the subform?

The data from the combobox is stored as a new record on the subform. If there is already that name a duplicate error message appear and I must add a new different book. So I want the setfocus to go back to the combobox to add a different book.
Okay I added code:

If DataErr = 3022 Then
MsgBox "Duplicate unique number.", vbInformation, "Message"
Me.Parent!cmdBookNoTitle.SetFocus
Response = 0
Me.StudentBookIssue_ID = ""

'MsgBox "Please press escape", vbInformation, "Message"
SendKeys "{esc}", True
SendKeys "{esc}", True
Exit Sub
End If

 

[Pat Hartman]

You gave me the wrong control name. Now try the correct one.

 

[bmaccess]

You gave me the wrong control name. Now try the correct one.

You gave me the wrong control name. Now try the correct one.

You gave me the wrong control name. Now try the correct one.

Okay the combobox name is cmbBookNoTitle.

If DataErr = 3022 Then
MsgBox "Duplicate unique number.", vbInformation, "Message"
Me.Parent!cmbBookNoTitle.SetFocus
Response = 0
Me.StudentBookIssue_ID = ""

'MsgBox "Please press escape", vbInformation, "Message"
SendKeys "{esc}", True
SendKeys "{esc}", True
Exit Sub
End If

Is there any reason why it cannot be moved there?
I appreciate all your help . Thanks

 

[Pat Hartman]

You didn't include the entire procedure so I'm assuming that the code is in the Error event.

But "" is a ZeroLengthString and should NEVER be used for numbers or dates. Change to:

Me.StudentBookIssue_ID = Null

Also get rid of the send keys. If you want to clear the all of the subform record, USE:
Me.Undo and do it BEFORE you move focus to the main form or you'll keep getting the error. Using Me.Undo means you don't need to clear individual controls and it doesn't matter what data type they are.

This is probably the issue. You are trying to set focus to the main form without clearing the error in the subform.

 

[bmaccess]

You didn't include the entire procedure so I'm assuming that the code is in the Error event.

But "" is a ZeroLengthString and should NEVER be used for numbers or dates. Change to:

Me.StudentBookIssue_ID = Null

Also get rid of the send keys. If you want to clear the all of the subform record, USE:
Me.Undo and do it BEFORE you move focus to the main form or you'll keep getting the error. Using Me.Undo means you don't need to clear individual controls and it doesn't matter what data type they are.

This is probably the issue. You are trying to set focus to the main form without clearing the error in the subform.

Hi there. Thanks you very much I will try the suggestions.

 

[bmaccess]

Hi Pat. Thank you very much. After the changes you suggested the following code WORKS PERFECTLY.

Me.Parent!cmbBookNoTitle.SetFocus

Thanks once again. I appreciate your help. You are Brilliant.

 

[Pat Hartman]

You're welcome