Formulario para agregar Cliente

CODIFICACIÓN

En el espacio principal del formulario

Option ExplicitDim cn As ADODB.ConnectionDim 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:\sisventas\data\ventas.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 llenalistaEnd Sub

En el ListView1

Private Sub ListView1_Click() Dim cCod_cli As String cCod_cli = ListView1.SelectedItem.Text rsClientes.MoveFirst rsClientes.Find "cod_cli='" + Trim(cCod_cli) + "'" 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 botón aceptar

Private Sub cmdAceptar_Click() Dim cCod_cli As String cCod_cli = ListView1.SelectedItem.Text rsClientes.MoveFirst rsClientes.Find "cod_cli='" + Trim(cCod_cli) + "'" frm_Venta.txtCod_cli = rsClientes.Fields("cod_cli") frm_Venta.txtCliente = rsClientes.Fields("ape_cli") & ", " &

rsClientes.Fields("nom_cli") frm_Venta.txtDireccion = rsClientes.Fields("direccion") frm_Venta.txtDni = rsClientes.Fields("dni") frm_Venta.Show Unload MeEnd Sub

En el botón cancelar

Private Sub cmdCancelar_Click() frm_Venta.Show Unload MeEnd 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") & ", " &

rsClientes.Fields("nom_cli") nuevo.SubItems(2) = rsClientes.Fields("DNI") rsClientes.Move (1) Next iEnd Sub