RE:validacion de entradas
Hola.
Otra cosa que puedes hacer es crearte una función que compruebe todas las cajas y hacerlo en el momento de pulsar para grabar en caso de error te llevará a esa caja.
Ej.
Dim ErrorEntrada as Integer 'en declaraciones generales
Function ComprobarCajas ( )
If Trim(Text1.Text) = "" Then
ErrorEntrada = 1
msgbox "Introduzca valor",VBExclamation,"Campo vacío"
Text1.SetFocus
GoTo Error
End If
If IsNumeric (Text2.Text) = False Then
ErrorEntrada = 1
msgbox "Introduzca valor numérico",VBExclamation,"Error"
Text2.SetFocus
GoTo Error
End If
Error :
End Function
En el boton Grabar pones
Private Sub Command1_Click()
ComprbarCajas
If ErrrorEntrada = 0 Then
´Pones el código que tengas para grabar los datos
Else
ErrorEntrada = 0
End If
End Sub
De esta manera si añades cajas basta que pongas las condiciones que quieres que tengan sus datos en la Funcion ComprobarCajas.
Espero que te sirva
Saludos