Ayuda USERFORM

[luisflores0289]

Hola , alguien porfavor me puede ayudar con esto?

Tengo un USERFORM Listado que me muestra registros, al seleccionar uno de ellos quiero modificar en otro USERFORM através de un botón modificar, lo que necesito es que ese USERFORM me traiga los datos que había seleccionado para poder modificarlos 

Listado

 

Modificar

 

Proyecto-ISR-2607.xlsm

[Enigma25]

Hola

Como adelanto te recomiendo que coloques esta linea en tu evento Initialize de tu Form "frmmodificar". Asi se coloca la fecha de manera automática sin necesidad de escribirlo.

Private Sub UserForm_Initialize()
Dim I As Integer

For I = 1 To 12
    cmbperiodo.AddItem UCase(Left(MonthName(I), 1)) & LCase(Mid(MonthName(I), 2, 12))
Next I
End Sub

 

Coloca esto en tu boton "Modificar" de tu formulario "frmlistado":

If Me.ListBox1.ListIndex = -1 Then
    MsgBox "No se ha elegido ningún registro", vbExclamation, "Listado"
Else

    With frmmodificar
        .txtnombre.Text = frmlistado.ListBox1.List(frmlistado.ListBox1.ListIndex, 1) 'Nombre
        .txtnocliente.Text = frmlistado.ListBox1.List(frmlistado.ListBox1.ListIndex, 0) 'Nº Cliente
        .cmbperiodo.Text = frmlistado.ListBox1.List(frmlistado.ListBox1.ListIndex, 2)
        .txtingreso.Text = frmlistado.ListBox1.List(frmlistado.ListBox1.ListIndex, 3)
        .txtintereses = frmlistado.ListBox1.List(frmlistado.ListBox1.ListIndex, 4)
        .txtperdidas = frmlistado.ListBox1.List(frmlistado.ListBox1.ListIndex, 5)
        .Show
    
    End With

End If

Así, mostrarás los datos seleccionados de dicho formulario.

Comenta tus impresiones.

Saludos.

[luisflores0289]

Hace 53 minutos , Enigma25 dijo:

Hola

Como adelanto te recomiendo que coloques esta linea en tu evento Initialize de tu Form "frmmodificar". Asi se coloca la fecha de manera automática sin necesidad de escribirlo.

Private Sub UserForm_Initialize()
Dim I As Integer

For I = 1 To 12
    cmbperiodo.AddItem UCase(Left(MonthName(I), 1)) & LCase(Mid(MonthName(I), 2, 12))
Next I
End Sub

 

Coloca esto en tu boton "Modificar" de tu formulario "frmlistado":

If Me.ListBox1.ListIndex = -1 Then
    MsgBox "No se ha elegido ningún registro", vbExclamation, "Listado"
Else

    With frmmodificar
        .txtnombre.Text = frmlistado.ListBox1.List(frmlistado.ListBox1.ListIndex, 1) 'Nombre
        .txtnocliente.Text = frmlistado.ListBox1.List(frmlistado.ListBox1.ListIndex, 0) 'Nº Cliente
        .cmbperiodo.Text = frmlistado.ListBox1.List(frmlistado.ListBox1.ListIndex, 2)
        .txtingreso.Text = frmlistado.ListBox1.List(frmlistado.ListBox1.ListIndex, 3)
        .txtintereses = frmlistado.ListBox1.List(frmlistado.ListBox1.ListIndex, 4)
        .txtperdidas = frmlistado.ListBox1.List(frmlistado.ListBox1.ListIndex, 5)
        .Show
    
    End With

End If

Así, mostrarás los datos seleccionados de dicho formulario.

Comenta tus impresiones.

Saludos.

Muchisimas Gracias . Funciona correctamente, solo una cosa más, necesito que esos datos se puedan guardar y me marca que hay error en este fragmento de código 

 

 

[Enigma25]

Si te soy sincero, de verdad no se porque te sucede el error. De hecho puse el código en un nuevo formulario e hice las pruebas y lo que especulo es que se debe a la cantidad de textbox que tengas en el formulario respecto a la cantidad de recorrido que haga el bucle.

Ejemplo; si colocamos un formulario de de cinco TexBox y el bucle lo pones asi:

    For I = 1 To 6
        ActiveCell.Offset(0, I - 1).Value = Me.Controls("TextBox" & I).Value
    Next I

Te daría un error porque falta un objecto pero si colocas 5 en vez de 6, no te presenta el error.

Esto lo probé en un formulario aparte.

Prueba cambiando la cantidad del bucle.

 

[luisflores0289]

Hola

habrá alguna forma de que el bucle pueda encontrar además de los textbox el ComboBox ?? 

Saludos

[Enigma25]

Antes funcionaba?

 

...porque hay algo que no me queda claro a la hora de consultar. Ejemplo; Consulto el numero 2122 y el resultado me arroja dos coincidencias, selecciono una pero al querer hacer algún cambio, lo hace en otra parte. Es decir, hago el cambio en el primero y el cambio lo hace en el segundo.

 

Otra cosa... crear una consulta en una base de datos que esté con datos repetidos, puede ser difícil a menos que se haga por selección y según lo seleccionado se haga la modificación.

[luisflores0289]

Hola

No ,solo tenía funcionando hasta la búsqueda, esto de modificar es reciente , y lo que debo hacer es por ejemplo: el 2122 se dió de alta en el Periodo de Enero , luego mas tarde quiero ingresarle datos en el mes de febrero y asi sucesivamente se van ir agregando los registros del mismo cliente por cada periodo. Al darle buscar está bien que me traiga todos los registros que tenga 2122 , y lo que si necesito es que solo el registro que yo seleccione ese pueda ser modificado.