¿Como evito la perdida del foco si no pongo una cantidad en un cuadro de texto? He probado asi, pero el foco se mueve al siguiente control por narices. If Nz(Me.MiCampo.Value, 0) = 0# Then 'MsgBox "Debes poner una cantidad primero" DoCmd.GoToControl "MiCampo" End If JOSE NIETO ========== Private Sub Texto7_Exit(Cancel As Integer) If IsNull(Me!Texto7) = True Then MsgBox "tienes q meter un valor" Cancel = True End If End Sub