CREAR UN FORMULARIO PARA CLIENTES EN ACCESS
Автор: Lic. Bolívar Ramírez
Загружено: 2022-11-15
Просмотров: 12485
Описание:
EN ESTE VIDEO APRENDERÁS 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
Повторяем попытку...
Доступные форматы для скачивания:
Скачать видео
-
Информация по загрузке:
![Камеди клаб [НОВЫЙ 2026] [full HD] Сборник избранных смешных и юмористических эпизодов | часть 5](https://image.4k-video.ru/id-video/hFezUJlKMmM)
