How To set the focus of a text field after updating the field

[Malavika1990]

our project we have a date field which should be validate, Like
departure date should not be less than arrival date.
i have written the code and it is working fine, but the problem is when i click on tabout the cursor should be in the same field,until the departure date changes,it should not go to any other field.
could any one please suggest me any solution to this problem.

If Me.Arrival_Date > Me.Departure_Date Then
  MsgBox ("Departure date should be later than Arrival Date")
  Me.Departure_Date.Undo
  Me.Dirty = False
  End If

[twinnyfo]

Between Lines 4 and 5 add:

Me.Departure_Date.SetFocus

That should keep the cursor on that field.

This assumes that Me.Departure_Date is the name of the Text Box, not just the name of the field. The Text Box should have a name unique from the field, such as txtDeparture_Date. This is a good practice with all your controls.

Hope this hepps!

[PhilOfWalton]

You need to check both dates. You are making the assumption that the Arrival Date is correct, and that there has been an error in entering the departure date. It could be the other way round.

This bit of code checks both dates and works for me. The cursor remains in the textbox

Private Sub FromDate_BeforeUpdate(Cancel As Integer)
 
    If FromDate > ToDate Then
        MsgBox "'From Date' must be before 'To Date'"
        Cancel = True
    End If
 
End Sub
 
Private Sub ToDate_BeforeUpdate(Cancel As Integer)
 
    If ToDate < FromDate Then
        MsgBox "'To Date' must be after 'From Date'"
        Cancel = True
    End If
 
End Sub
 

Phil

[NeoPa]

Also, don't include your original line #4. That is a way of saying "Save the changes to this record". I suspect that's not what you were after.

Look at how Phil has posted his response and notice he's included all the relevant information - much that you missed out of your post.

From that you can see that the call to .Undo is not necessary. Setting Cancel = True is what ensures that he entered value is not accepted. Whether you revert it to what it was beforehand with .Undo is up to you.

NB. Technically you should at least compare the dates for <= & >=. Just < & > does not test for what you need.

[PhilOfWalton]

@Neopa

The ToDate (ArrivalDate) and FromDate (DepartureDate) could well be the same.
On most or my car trips I arrive the day I leave, so, yet again I beg to differ on your suggestion about using the <= and >= comparisons.

As ever, your disagreeable friend,

Phil

[NeoPa]

You're absolutely correct (on this occasion) Phil.

I'd misremembered the explanation from the first post and assumed the values being stored were DateTimes. Now I've reread it, it seems likely that we're dealing with simple dates after all and their being equal can be perfectly valid.

[Malavika1990]

The code which is posted in the question is working fine, but my problem is when i intentionally pressed tabout the courser is going to another field.It should no goto another field without updateing the departure date with correct value

[PhilOfWalton]

Are you sure the value is not updated?

Phil

[NeoPa]

Malavika:
The code which is posted in the question is working fine, but my problem is ...

Why are we talking about your original code at this stage? We should be talking about what happens when you use the code that's been suggested.

Otherwise it's all a bit pointless asking the question no?

[Malavika1990]

thanks for your response now it is working fine.

[NeoPa]

Excellent. And well done also for selecting the Best Answer.