Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Visual Basic » Userform carga, busqueda, modificación y eliminar datos

Visual Basic - Userform carga, busqueda, modificación y eliminar datos

Life is soft - evento anual de software empresarial
Volver
Nuevo Tema
<<>>
 
Vista:
sin imagen de perfil
Val: 6
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Userform carga, busqueda, modificación y eliminar datos

Publicado por Jefte (1 intervención) el 18/08/2018 15:09:28
Estoy trabajando en una base de datos excel programando un userform para cargar buscar y modificar datos pero no funciona correctamente ¿podrían ayudarme a ver cual es el error que estoy cometiendo? anexo dos archivos uno que funciona bien (el modelo que estoy siguiendo) y el que estoy haciendo.

Saludos
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Antoni Masana
Val: 1.259
Plata
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Userform carga, busqueda, modificación y eliminar datos

Publicado por Antoni Masana (558 intervenciones) el 20/08/2018 07:42:48
Un par de fallos

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
' </> --------------------------------------------------------------------- </>

' </> ----&---  Ver el Mapa                                         ---&--- </>

' </> --------------------------------------------------------------------- </>

 
Private Sub LB_Selec_Click()
    Dim Texto As String, Mapa As String, a As Integer
 
    On Error Resume Next: Graf.Visible = False:
    On Error GoTo 0
    Texto = ""
    Mapa = LB_Selec.List(LB_Selec.ListIndex)
 
    For a = 1 To Len(Mapa)
        If Mid$(Mapa, a, 1) = " " Then
           Texto = Texto + "_"
        Else
           Texto = Texto + Mid$(Mapa, a, 1)
        End If
    Next
 
    For Each Graf In Me.Controls
        If Graf.Name = Texto Then
           Graf.Visible = True
           Graf.Top = 30
           Graf.Left = 440
           Graf.Height = 270
           Graf.Width = 270
           Me.Width = 780: DoEvents: Exit For
        End If
    Next
End Sub



Hay que ocultar el mapa anterior antes de ver el siguiente porque de lo contrario no se ve. y hay que salir del FOR cuando encuentras el mapa para saber cual es el ultimo mostrado.



Saludos.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar