Lost Focus Got Focus I cannot Focus

[jamesnkk]

I am trying to validate a QTY entry in a form , if user did not enter anything or 0 , I will prompt for a message and the cursor return to the QTY entry column.

I have tried Lost Focus in the Qty -

If qty <=0 then
msgbox("Please Enter Qty")
me.qty.SetFocus
end if

But the cursor alway jump to the next entry box, I even replace with Cancel=true, it still doesnt work, Any Idea ?

[MMcCarthy]

I am trying to validate a QTY entry in a form , if user did not enter anything or 0 , I will prompt for a message and the cursor return to the QTY entry column.

I have tried Lost Focus in the Qty -

If qty <=0 then
msgbox("Please Enter Qty")
me.qty.SetFocus
end if

But the cursor alway jump to the next entry box, I even replace with Cancel=true, it still doesnt work, Any Idea ?

Change to After Update event.

Private Sub qty_AfterUpdate()
 
   If IsNull(Me.qty) Or Me.qty <=0 Then
      Msgbox "Please Enter Qty", vbOKOnly
      Me.qty = Null
      Me.qty.SetFocus
   End If
 
End Sub
 

Mary

[jamesnkk]

But what if user press the Tab key or move the mouse away from this text box, then I don't think After Update could detect it, Am I Right ?

[MMcCarthy]

But what if user press the Tab key or move the mouse away from this text box, then I don't think After Update could detect it, Am I Right ?

Once the control has been entered it should trigger the after update event. However, to be sure, you just have to call the event in the forms OnClose event.

Private Sub Form_OnClose()
   qty_AfterUpdate
End Sub
 

Mary

[jamesnkk]

The Qty entry column is default display at 0, if you press enter or tab or move your mouse away, the After Update cannot detect, I can only detect using Lost Focus, but it doesn't stay focus, even I issue setfocus, will just skip to next entry column,

Why should I use On Form Close, I want interactive repsonse to the user, don;t you think it right ?

[MMcCarthy]

The Qty entry column is default display at 0, if you press enter or tab or move your mouse away, the After Update cannot detect, I can only detect using Lost Focus, but it doesn't stay focus, even I issue setfocus, will just skip to next entry column,

Why should I use On Form Close, I want interactive repsonse to the user, don;t you think it right ?

Try the Before Update event.

Form On Close is just a catch all.

Mary

[NeoPa]

James,

Try it out as Mary suggests.
If you find it doesn't really work as you want it, then come back and explain why the answer isn't right.
I suspect that using the focus to trigger would actually cause you more problems than you expect.

[vatsgauravchauhan]

Hi there,

I have seen ur code why don't you try validate method of text box it works really nice in these cases.

gaurav

[jamesnkk]

Hi there,

I have seen ur code why don't you try validate method of text box it works really nice in these cases.

gaurav

Are you Saying creating a text box such as txtQtyOrder instead of using the actual field name =QtyOrder

[MMcCarthy]

Are you Saying creating a text box such as txtQtyOrder instead of using the actual field name =QtyOrder

I'm terrible at validation using the property as I do all mine in code but what the previous poster is talking about is using the validation property which you will find under the data tab I think.

At a guess I would say if you put the following in the validation property if should work.

QtyOrder>0

Mary

[NeoPa]

Are you Saying creating a text box such as txtQtyOrder instead of using the actual field name =QtyOrder

Yup - that's about the size of it.
Consider Guarav's response though, that may be even easier for you.

[jamesnkk]

I'm terrible at validation using the property as I do all mine in code but what the previous poster is talking about is using the validation property which you will find under the data tab I think.

At a guess I would say if you put the following in the validation property if should work.

QtyOrder>0

Mary

Let forget about using Before and After event, Is there a way the cursor can return to that fieldname-Qty in the Lost Focus validation ? I know using sendkey vbtab can be done, but that not the right way.

[NeoPa]

Let forget about using Before and After event, Is there a way the cursor can return to that fieldname-Qty in the Lost Focus validation ? I know using sendkey vbtab can be done, but that not the right way.

Lost Focus is not a 'validation' attribute.
LostFocus is an event procedure but Validation properties (Validation Rule & Validation Text) are attributes of the field itself.
Entering values in these can cause Access to insist on any changes to the field being valid according to your specified rules.

[hyperpau]

Let forget about using Before and After event, Is there a way the cursor can return to that fieldname-Qty in the Lost Focus validation ? I know using sendkey vbtab can be done, but that not the right way.

This may be long overdue but for sake of others looking for the solution:

Use instead the BeforeUpdate event as suggested above already.

Private Sub qty_BeforeUpdate (Cancel as Integer)
If qty <=0 Then
MsgBox("Please Enter Qty")
Cancel = True
End if

This will not set focus back but would actually prevent losing focus
whether by pressing TAB or by using mouse to move focus to other controls.

[NeoPa]

This should work of course, but why would you suggest adding code to produce the same results as the standard method (of using Validation Rule & Validation Text) for such a simple example?

[GeoffJohns]

This may be long overdue but for sake of others looking for the solution:

Use instead the BeforeUpdate event as suggested above already.

Private Sub qty_BeforeUpdate (Cancel as Integer)
If qty <=0 Then
MsgBox("Please Enter Qty")
Cancel = True
End if

This will not set focus back but would actually prevent losing focus
whether by pressing TAB or by using mouse to move focus to other controls.

I have found a solution to the problem, it is definitely a workaround, but I think this is what is being asked for:

Private Sub TextBox1_LostFocus()
 
    If Len(Nz(Me.TextBox1, "")) = 0 Then
        Me.TextBox2.SetFocus
        Me.TextBox1.SetFocus
    End If
 
End Sub
 

Notes:
1. This is a test for a non-Null and non Zero length string
2. It uses another textbox as an interim target - this could be a textbox with its Visible property set to False.

If you want to control the onward direction from say Textbox1 to Textbox2, then simply adding the 'Else' construct does this fairly elegantly (although highly bespoked)

Private Sub TextBox1_LostFocus()
 
    If Len(Nz(Me.TextBox1, "")) = 0 Then
        Me.TextBox2.SetFocus
        Me.TextBox1.SetFocus
    Else
        Me.TextBox2.SetFocus
    End If
 
End Sub
 

Kind regards
Geoff

[NeoPa]

...

Private Sub TextBox1_LostFocus()
 
    If Len(Nz(Me.TextBox1, "")) = 0 Then
        Me.TextBox2.SetFocus
        Me.TextBox1.SetFocus
    Else
        Me.TextBox2.SetFocus
    End If
 
End Sub

...

This code is logically equivalent to :

Private Sub TextBox1_LostFocus()
 
    Me.TextBox2.SetFocus
    If Len(Nz(Me.TextBox1, "")) = 0 Then Me.TextBox1.SetFocus
 
End Sub

Can you explain why this would help the situation. I'm a bit confused as to what this is saying :S