Private Sub lstItems_DblClick(Cancel As Integer)
On Error Resume Next
Dim ok As String
ok = MsgBox("¿Desea Modificar el Proveedor?", vbYesNo)
If ok = vbYes Then
Me.txtrut = Me.lstItems.Column(0)
Me.txtNombre = Me.lstItems.Column(1)
Me.txtGiro = Me.lstItems.Column(2)
Me.txtDireccion = Me.lstItems.Column(3)
Me.txtCiudad = Me.lstItems.Column(4)
Me.txtcomuna = Me.lstItems.Column(5)
Me.txtTelefono = Me.lstItems.Column(6)
Me.txtCorreo = Me.lstItems.Column(7)
Me.txtCnta_Corriente = Me.lstItems.Column(8)
Me.txtBanco = Me.lstItems.Column(9)
Me.txtTipo_Cuenta = Me.lstItems.Column(10)
End If
End Sub
Private Sub cmdeditar_Click()
'On Error Resume Next
Dim mensaje As String
With rs
.Edit
.Fields(1) = txtNombre
.Fields(2) = txtGiro
.Fields(3) = txtDireccion
.Fields(4) = txtCiudad
.Fields(5) = txtcomuna
.Fields(6) = txtTelefono
.Fields(7) = txtCorreo
.Fields(8) = txtCnta_Corriente
.Fields(9) = txtBanco
.Fields(10) = txtTipo_Cuenta
.Update
End With
mensaje = MsgBox("Proveedor Editado correctamente", vbInformation)
lstItems.Requery
Call DesabilitarTexto
cmdNuevo.Enabled = True
cmdeditar.Enabled = False
cmdCancelar.Enabled = False
End Sub