Setting SetFocus after After_Update() event

[jambai]

After the validation the focus was not set to the particular control.
It moves to the next control.

Please let me know who to set focus after AfterUpdate event.

Private Sub txtName_AfterUpdate()
If Not IsNull(Me.txtName.Value) Then
MsgBox ("Not Null")
Else
MsgBox "Enter Name!", vbInformation
Me.txtName.SetFocus
End If
End Sub

Thanks
Jambai

 

[Remou]

It would be best to use the Before Update event with Cancel, if the control does not validate.

 

[PHV]

Private Sub txtName_[!]Before[/!]Update([!]Cancel As Integer[/!])
If Trim(Me!txtName.Value & "") = "" Then
MsgBox "Enter Name!", vbInformation
Cancel = True
End If
End Sub

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[TheAceMan1]

or to check for null and an empty string:

[blue]   If IsNull(Me![purple][b][i]txtName[/i][/b][/purple],"") = "" Then
      MsgBox "Enter Name!", vbInformation
      Cancel = True
   End If[/blue]

See Ya! . . . . . .

 

[jambai]

I can't do the requery in this event.

Actually my original good looks like

If Not IsNull(Me.txtDefNameSearch.Value) Then
Dim strChkDef As String
Dim rsChkDef As DAO.Recordset
strChkDef = "SELECT * FROM dbo_DEFEND WHERE NAME='" & txtDefNameSearch & "';"
Set rsChkDef = CurrentDb.OpenRecordset(strChkDef, dbOpenDynaset, dbSeeChanges)

If rsChkDef.RecordCount > 0 Then
Me.cmdAddDef.Visible = False
Me.cmdSaveDef.Visible = True
Forms!frmDefendant.Requery
Else
MsgBox "DEFENDANT NOT FOUND!", vbInformation
Me.txtDefNameSearch.SetFocus
Me.cmdAddDef.Visible = True
Me.cmdSaveDef.Visible = False
End If
End If

Thanks
Jambai