Editar registro al seleccionar de un cuadro de lista acess
Publicado por Jose (10 intervenciones) el 30/06/2018 07:14:04
A ver si me explico bien, quiero editar registros, los busco en un cuadro de lista, luego con el evento click paso ese registro a unas cajas de texto, todo bien hasta hay, el problema radica cuando modifico cualquier dato de ese registro, de alguna manera access siempre interpreta que estoy en el primer registro del cuadro de lista se cual sea el registro elegido , lo modifico y guardo y es como si me creara un nuevo registro idéntico al primer registro de cuadro de lista, pero con el dato modificado. Favor su ayuda, adjunto la tabla y formulario.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
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
- colegio-21062018-17-07-copia.rar(717,0 KB)
Valora esta pregunta


0