Este código que he creado ayuda a que se pueda guardar y validar un formulario en pocos minutos debido a que ya no hay que escribir código para Guardar en la base de datos ni para validar los campos del formulario.
Este código cuenta con un Clase y dos Módulos que se encargan de hacer todo el trabajo por nosotros, lo único que nos toca es escribir correctamente los nombre de los Label y los TextBox:
Si tenemos por ejemplo un campo en nuestra base de datos que se llama NombreCliente en el formulario el label debe llamarse lblNombreCliente y el TextBox debe llamarse txtNombreCliente, para que el sistema valida el campo en el Label en la propiedad Caption hay que poner al final un asterisco (*) para que el sistema lo tome. ejemplo el caption de nuestro ejemplo seria “Nombre Cliente *”
Si el campo del formulario es el ID o campo primario debe agregar en el Name tanto del Label como del TextoBox los caracteres _ID_ para que lo tome el sistema.
Suponiendo que el id de la tabla cliente se llama “IdCliente” el label y el TextBox deben llamar asi:
lbl_ID_IdCliente y txt_ID_IdCliente
En El evento load se debe llamar a la funcion de iniciar que es la que hace la conexión de la base de datos:
Call Inciar
El Boton guardar suponiendo que la tabla Cliente se llama tblClientes seria de la siguiente manera:
se crea un constante en el modulo md_Variables asi:
Global Const TBL_CLIENTES As String = "tblClientes"
y El botón guardar quedaría de la siguiente Manera:
Private Sub cmdGuardar_Click()
Dim Tabla As String
If ValidarCamposFormulario(Me) = False Then
Exit Sub
End If
Tabla = TBL_CLIENTES
Call GuardoDatos(Me, Tabla, False)
End Sub
Con estas pocas lineas de código nuestro formulario queda listo.
Recuerde poner el TabIndex en orden para que la validación salga en el orden que desee.
El Código lo puede descargar de aquí.
Contraseña: programaresfacil.co