En este vídeo explico como buscar por la identificación del Cliente en el vídeo anterior Ventana de Ventas Parte 2 explique como buscar el cliente desde el botón Buscar.
Para buscar el cliente por su identificación se debe captar cuando se presione la tecla Enter en el evento KeyUp de control TextBox, el código es el siguiente:
Private Sub txtIdentificacion_Cli_KeyUp(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then Call BuscarClienteIdentificacion End If End Sub
Ahora toca crear el Sub Procedimiento BuscarClienteIdentificacion que se esta llamando desde el evento anterior:
Sub BuscarClienteIdentificacion() Dim RecordSet As New ADODB.RecordSet Dim Sql As String If txtIdentificacion_Cli.Text <> "" Then Sql = "Select IdCliente, NombreApellidos_cli, Identificacion_cli, Telefonos_cli, CupoAutorizado_cli From tblClientes Where Identificacion_cli = '" & txtIdentificacion_Cli.Text & "' " Set RecordSet = ConexionADO.Execute(Sql) If RecordSet.RecordCount > 0 Then With RecordSet Call SeleccionarCliente(!IdCliente, !Identificacion_cli, !NombreApellidos_cli, !Telefonos_cli, !CupoAutorizado_cli) End With Else MsgBox "El Cliente no existe", vbExclamation, "Buscar Cliente" txtIdentificacion_Cli.SetFocus End If End If End Sub
Suscribete a Youtube
Siguenos en Twitter
Siguenos en Facebook
Bienvenido al Curso Básico de Visual Basic 6! Este curso está diseñado para llevarte a…
Introducción a la programación y Visual Basic 6.0 ¿Qué es la programación? La programación es…
📢 ¡Aprovecha al máximo tu aplicación en Visual Basic 6 con la flexibilidad de instancias!…
Si estás buscando iconos para utilizar en tus proyectos de Visual Basic 6, hay una…
Microsoft ha lanzado una versión preliminar de su motor de búsqueda Bing y navegador Edge…
¿Estás buscando aprender a construir un sistema CRUD (Crear, Leer, Actualizar y Eliminar) en Visual…
Este sitio utiliza cookies desea activarlas
Deja un comentario