FORMULARIO PARA SISTEMA DE CLIENTES EN ACCESS
CON ESTE VIDEO APRENDERAS A CREAR UN FORMULARIO PARA CLIENTES EN ACCESS
1- Código para el formulario
Private Sub Form_Open(Cancel As Integer)
Me.LstClientes = Me.Id
End Sub
2- Código para seleccionar el dato en el cuadro de lista
Private Sub lstClientes_Click()
Me.Filter = "Id = " & Me.LstClientes
Me.FilterOn = True
End Sub
3- Código para el cuadro de texto
Private Sub txtBusqueda_Change()
Dim SQL As String
SQL = "SELECT Id,Nombres FROM Tbl_Clientes WHERE Nombres LIKE '*" & Me.TxtBusqueda.Text & "*'"
Me.LstClientes.RowSource = SQL
End Sub
4- Código del botón Nuevo
Private Sub btnNuevo_Click()
DoCmd.GoToRecord , , acNewRec
Me.LstClientes = Null
Me.LstClientes.Requery
End Sub
5- Código del boton gardar
Private Sub btnGardar_Click()
DoCmd.RunCommand acCmdSave
Me.LstClientes = Me.Id
Me.LstClientes.Requery
End Sub
6- Codigo del boton cancelar
Private Sub btnCancelar_Click()
DoCmd.RunCommand acCmdUndo
Me.LstClientes.Requery
End Sub
7- Código del boton eliminar
Private Sub btnEliminar_Click()
DoCmd.RunCommand acCmdDeleteRecord
Me.LstClientes.Requery
End Sub