Private Sub misura_LostFocus()
    If misura = 0 Then
       quantità = 0: costoivato = 0: prezzoivato = 0
       Me.misura.SetFocus
    End If
End Sub

Private Sub quantità_LostFocus()
    If quantità <= 0 Then
      MsgBox "La quantità acquistata non può essere inferiore o uguale a 0.", vbCritical, "ATTENZIONE"
      Cancel = True
      Forms!Frm_articoli!Sottomaschera_articoli.SetFocus
    End If
End Sub

Private Sub costoivato_LostFocus()
    If costoivato <= 0 Then
      MsgBox "Il prezzo di acquisto non può essere inferiore o uguale a 0.", vbCritical, "ATTENZIONE"
      Cancel = True
      Me.costoivato.SetFocus
    End If
End Sub

Private Sub prezzoivato_LostFocus()
    If prezzoivato < costoivato Then
      MsgBox "Il prezzo di vendita non può essere inferiore al costo di acquisto.", vbCritical, "ATTENZIONE"
      Cancel = True
      Me.prezzoivato.SetFocus
    End If
End Sub