Formulario Para Agregar Cliente

Formulario para agregar Cliente

CODIFICACIÓN

En el espacio principal del formulario

Option Explicit
Dim cn As ADODB.Connection
Dim rsClientes As ADODB.Recordset

En el formulario mismo

Private Sub Form_Load()
Set cn = New ADODB.Connection
Set rsClientes = New ADODB.Recordset
With cn
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = "Data Source=d:sisventasdataventas.mdb"
.Open
End With
rsClientes.ActiveConnection = cn
rsClientes.Open "Select * from clientes", cn, adOpenStatic, adLockOptimistic
llenalista
rsClientes.MoveFirst
txtCod_cli.Text = rsClientes.Fields("cod_cli")
txtCliente.Text = rsClientes.Fields("ape_cli") & ", " &
rsClientes.Fields("nom_cli")
txtDni.Text = rsClientes.Fields("DNI")
End Sub

En el txtbusCliente

Private Sub txtBus_Change()
Dim cBus As String
cBus = txtBus.Text
Set rsClientes = New Recordset
rsClientes.Open "select * from clientes where ape_cli like'" + Trim(cBus) &
"%" & "'", cn, adOpenStatic, adLockOptimistic
llenalista
End Sub

En el ListView1

Private Sub ListView1_Click()
Dim cCod_cli As String
cCod_cli = ListView1.SelectedItem.Text
rsClientes.Find "cod_cli='" + Trim(cCod_cli) + "'"
txtCod_cli.Text = rsClientes.Fields("cod_cli")
txtCliente.Text = rsClientes.Fields("ape_cli") & ", " &
txtDni.Text = rsClientes.Fields("DNI")
End Sub

En el botón aceptar

Private Sub cmdAceptar_Click()
Dim cCod_cli As String
cCod_cli = ListView1.SelectedItem.Text
rsClientes.Find "cod_cli='" + Trim(cCod_cli) + "'"
frm_Venta.txtCod_cli = rsClientes.Fields("cod_cli")
frm_Venta.txtCliente = rsClientes.Fields("ape_cli") & ", " &
frm_Venta.txtDireccion = rsClientes.Fields("direccion")
frm_Venta.txtDni = rsClientes.Fields("dni")
frm_Venta.Show
Unload Me
End Sub

En el botón cancelar

Private Sub cmdCancelar_Click()
frm_Venta.Show
Unload Me
End Sub

Otras codificaciones dentro del formulario

Private Sub llenalista()
ListView1.ListItems.Clear
Dim nuevo As ListItem
Dim i As Integer
For i = 1 To rsClientes.RecordCount
Set nuevo = frmVen_cli.ListView1.ListItems.Add(, ,
rsClientes.Fields("cod_cli"))
nuevo.SubItems(1) = rsClientes.Fields("ape_cli") & ", " &
nuevo.SubItems(2) = rsClientes.Fields("DNI")
rsClientes.Move (1)
Next i
End Sub

Formulario Para Agregar Cliente

Más contenido relacionado

Destacado (13)

Similar a Formulario Para Agregar Cliente (20)

Más de jameszx (14)

Último (20)

Formulario Para Agregar Cliente