Crear un formulario de Edicion de clientes

3 envíos / 0 nuevos
Último envío
Nolvia Pineda
Imagen de Nolvia Pineda
Offline
última acción: Hace 1 año 6 meses
alta: 31/05/2023 - 15:28
Puntos: 35
Crear un formulario de Edicion de clientes

Estoy creando un programa de punto de ventas y tengo problemas con esta formula me da siempre un error 381 ahora bien es lo mismo cuando programo el boton de editar productos sigue diciendome que hay un error 381

Private Sub Boton_Editar_Click()

Dim var As Integer

var = Me.Lista_Clientes.ListIndex

If valor = -1 Then

MsgBox "Se debe seleccionar un producto para editar", vbxclamation, "ADVERTENCIA"

Exit Sub

End If

 

Dim codigo As Integer

 

codigo = Me.Lista_Clientes.List(Me.Lista_Clientes.ListIndex, 0)

Load Edita_Clientes

Edita_Clientes.ID.Value = Application.Worksheetsfunction.VLookup(codigo, Workbooks("punto_venta").workseets("CLIENTES").Range("A:E"), 1, 0)

Edita_Clientes.Nombre.Value = Application.Worksheetsfunction.VLookup(codigo, Workbooks("punto_venta").workseets("CLIENTES").Range("A:E"), 2, 0)

Edita_Clientes.Telefono.Value = Application.Worksheetsfunction.VLookup(codigo, Workbooks("punto_venta").workseets("CLIENTES").Range("A:E"), 3, 0)

Edita_Clientes.Domicilio.Value = Application.Worksheetsfunction.VLookup(codigo, Workbooks("punto_venta").workseets("CLIENTES").Range("A:E"), 4, 0)

Edita_Clientes.email.Value = Application.Worksheetsfunction.VLookup(codigo, Workbooks("punto_venta").workseets("CLIENTES").Range("A:E"), 5, 0)

Me.Lista_Clientes.RowSource = Clear

Me.Hide

Unload Me

Edita_Clientes.Show

Etiquetas: 

pacomegia
Imagen de pacomegia
Offline
última acción: Hace 3 semanas 4 días
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntosNivel 5 - 4000 puntosadministrador
alta: 27/12/2006 - 23:26
Puntos: 11175
Ese error 381 está

Ese error 381 está relacionado con el índice de la matriz que contiene tu lista

comprueba si la matriz comienza en 0 o en 1

los elementos irían de 0 hasta númeroelementos - 1

pero si comienza en 1 irían desde 1 hasta númerodelementos

 

Sin un archivo de ejemplo y sin saber en qué línea aparece el error que comentas poco más te puedo decir.

 

------
Ya sé Excel, pero necesito más.

Nolvia Pineda
Imagen de Nolvia Pineda
Offline
última acción: Hace 1 año 6 meses
alta: 31/05/2023 - 15:28
Puntos: 35
Revisare la matriz y la lista

Revisare la matriz y la lista detalladamente agradezco su ayuda 

Beso