set focus after data validation

[ned610]

I have a simple sub-form based on a table in datasheet view and validate data in an afterupdate event procedure. When the data fails validation I display a message box and ask if the user wants to continue or go back and fix the data. I can't seem to set the focus back to the field that had the validation failure; it always just moves to the next field (InvQtyF)

This is what I have:

If Nz(DLookup("[Manufactures_ID]", "Item Master Local", "[Manufactures_ID]='" & Me.ManufItem & "'")) Then
Exit Sub
Else
If MsgBox("Non-Existant Product Code, Re-enter?", vbYesNo, "Error!") = vbYes Then
Me.ManufItemF.SetFocus
Else
Me.InvQtyF.SetFocus
End If
End If
End Sub

The field name on the form is ManufItemF whereas the field in the underlying table is ManufItem. I also tried Me.ActiveControl.SetFocus with same results.

Sorry for the lack of indentation,

Thanks for any help/pointers.....

[ADezii]

I have a simple sub-form based on a table in datasheet view and validate data in an afterupdate event procedure. When the data fails validation I display a message box and ask if the user wants to continue or go back and fix the data. I can't seem to set the focus back to the field that had the validation failure; it always just moves to the next field (InvQtyF)

This is what I have:

If Nz(DLookup("[Manufactures_ID]", "Item Master Local", "[Manufactures_ID]='" & Me.ManufItem & "'")) Then
Exit Sub
Else
If MsgBox("Non-Existant Product Code, Re-enter?", vbYesNo, "Error!") = vbYes Then
Me.ManufItemF.SetFocus
Else
Me.InvQtyF.SetFocus
End If
End If
End Sub

The field name on the form is ManufItemF whereas the field in the underlying table is ManufItem. I also tried Me.ActiveControl.SetFocus with same results.

Sorry for the lack of indentation,

Thanks for any help/pointers.....

I have a simple sub-form based on a table in datasheet view and validate data in an afterupdate event procedure.

Data Validation should occur in the BeforeUpdate() not AfterUpdate() Event.

1. Do you want to perform Data Validation at the Field or Form level?
2. What is the Name of the Main Form?
3. What is the Name of the Sub-Form?
4. What is the Name of the Sub-Form Control?
5. Is the [ManufItem] Field on the Main Form or Sub-Form?
6. Is the [InvQtyF] Field on the Main Form or Sub-Form?

[ned610]

Data Validation should occur in the BeforeUpdate() not AfterUpdate() Event.

1. Do you want to perform Data Validation at the Field or Form level?
2. What is the Name of the Main Form?
3. What is the Name of the Sub-Form?
4. What is the Name of the Sub-Form Control?
5. Is the [ManufItem] Field on the Main Form or Sub-Form?
6. Is the [InvQtyF] Field on the Main Form or Sub-Form?

First thanks for looking at this:

I tried moving my code to the BeforeUpdate() Event and it whined about not saving the field first and said it should be in the AfterUpdate() event so I guess it's not as easy as just moving the code....

1-I am validating that the data entered in the ManufItemF form field exists in the Item Master table; that part works OK.
It's just that after getting a response to the MsgBox I can't get the focus back to the ManufItemF field for the user to correct their input.
I have to allow them to make an entry that doesn't exist in the Item Master table but want to warn them in case it was just a typo.

2-The main form name is: InventoryItemsMasterForm

3-The Sub-Form is: InvItemsForm (which is in datasheet view) whose record source is InvItemsTbl (not that that matters)

4-The field ManufItem (Control Source) is in the underlying table, the field name on the form is ManufItemF
(I added the "F" at the end of the form field name in case it was a problem having the data field in the underlying table and form field name the same;
that didn't help me with the focus problem though)

5-The InvQtyF field is on the sub-form.

[missinglinq]

There are events whose names, such as AfterUpdate, would lead you to believe that their control has lost focus, when it really hasn't! One would think, for instance, that by the time the event MyTextBox_AfterUpdate was reached, that the control MyTextBox had lost focus, and thus focus could once again be set to it. Not true! It still has (well, sort of) focus! What you need to do, in these circumstances, is to set the focus to any other control on your form, then set it back to the target control!

ADezii is correct in saying that Validation needs to be done in the BeforeUpdate events of either a given control or the form. AfterUpdate events are generally used not for vaidation but rather for formatting data that has already entered. The BeforeUpdate whining, I believe, was caused by your Exit Sub line, which was basically causing the sub to abort before the save was complete.

Welcome to TheScripts!

Linq ;0)>

[ADezii]

First thanks for looking at this:

I tried moving my code to the BeforeUpdate() Event and it whined about not saving the field first and said it should be in the AfterUpdate() event so I guess it's not as easy as just moving the code....

1-I am validating that the data entered in the ManufItemF form field exists in the Item Master table; that part works OK.
It's just that after getting a response to the MsgBox I can't get the focus back to the ManufItemF field for the user to correct their input.
I have to allow them to make an entry that doesn't exist in the Item Master table but want to warn them in case it was just a typo.

2-The main form name is: InventoryItemsMasterForm

3-The Sub-Form is: InvItemsForm (which is in datasheet view) whose record source is InvItemsTbl (not that that matters)

4-The field ManufItem (Control Source) is in the underlying table, the field name on the form is ManufItemF
(I added the "F" at the end of the form field name in case it was a problem having the data field in the underlying table and form field name the same;
that didn't help me with the focus problem though)

5-The InvQtyF field is on the sub-form.

Try the following code in the BeforeUpdate() Event of the [ManufItem] Field:

Private Sub ManufItem_BeforeUpdate(Cancel As Integer)
If Nz(DLookup("[Manufactures_ID]", "Item Master Local", "[Manufactures_ID]='" & Me.ManufItem & "'")) = "" Then
  If MsgBox("Non-Existant Product Code, Re-enter?", vbYesNo, "Error!") = vbYes Then
    Cancel = True        'will not be able to leave the Field
  Else
    'You cannot SetFocus to a Field in this Event, since data in this Field must
    'first be saved. To get aroud this, simply set the Tab Index of the [InvQtyF]
    'Field to 1 greater than the [ManufItem] Field.
  End If
End If
End Sub
 

[ned610]

Try the following code in the BeforeUpdate() Event of the [ManufItem] Field:

Private Sub ManufItem_BeforeUpdate(Cancel As Integer)
If Nz(DLookup("[Manufactures_ID]", "Item Master Local", "[Manufactures_ID]='" & Me.ManufItem & "'")) = "" Then
  If MsgBox("Non-Existant Product Code, Re-enter?", vbYesNo, "Error!") = vbYes Then
    Cancel = True        'will not be able to leave the Field
  Else
    'You cannot SetFocus to a Field in this Event, since data in this Field must
    'first be saved. To get aroud this, simply set the Tab Index of the [InvQtyF]
    'Field to 1 greater than the [ManufItem] Field.
  End If
End If
End Sub
 

Thank you very much.... That solved the issue, that was way too easy!!!

[ADezii]

Thank you very much.... That solved the issue, that was way too easy!!!

I'm glad it worked out for you.