Hi Catalina,
It doesn't work. I found another suggestion that added Cancel = True before Set.Focus and that gives the control the focus, but I cannot enter data into the field for some reason.
Private Sub SupplierBatch_Exit(Cancel As Integer)
Dim strNewBatch As String
If Nz([SupplierBatch])...