Visual Basic - Pasar de textbox a textbox con enter y evitar que se el textbox se quede vacío.

Life is soft - evento anual de software empresarial
 
Vista:
sin imagen de perfil

Pasar de textbox a textbox con enter y evitar que se el textbox se quede vacío.

Publicado por ALEJANDRO (4 intervenciones) el 05/09/2017 23:59:18
Buenas tardes, estoy tratando de realizar un programa el cual al dar enter, si no se cumple una función del textbox me ponga el cursor en el mismo textbox (en este caso que busque en el libro "Base de Datos" en la celda A), borre la información que hay en el mismo y diga un mensaje de error o que, al coincidir con el dato que busco en el libro "Base de Datos" deshabilite el textbox 2 y coloque el cursor en ese textbox.

Ya funciona si encuentra el Numero de Parte, pero si no lo encuentra solo envía el mensaje y coloca el cursor en el textbox2 y también si solo oprimo enter se mueve hacia el textbox2. sin enviarme mensaje.

Adjunto código:

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
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
 
  If KeyCode = 13 Then
  Dim npc, npc_buscar As String
    Dim fila As Integer
    Sheets("Base de Datos").Select
    fila = 2
    npc = TextBox1
        Do While npc_buscar <> npc
         fila = fila + 1
         npc_buscar = Range("A" & fila).Value
         CommandButton6.Enabled = True
            If npc_buscar = Empty Then
                CommandButton6.Enabled = False
                MsgBox "Número de Parte No Existe"
        Exit Do
            End If
    Loop
 
'Enviar a textbox valor de tabla excel
 
    TextBox15 = Range("i" & fila).Value
    TextBox16 = Range("j" & fila).Value
    TextBox17 = Range("c" & fila).Value
    TextBox18 = Range("h" & fila).Value
    TextBox20 = Range("d" & fila).Value
    TextBox21 = Range("g" & fila).Value
    TextBox22 = Range("b" & fila).Value
    TextBox25 = Range("e" & fila).Value
    TextBox26 = Range("f" & fila).Value
 
    TextBox2.Enabled = True
    Call TextBox2.SetFocus
    End If
 
End Sub
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 Andres Leonardo
Val: 3.924
Oro
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Pasar de textbox a textbox con enter y evitar que se el textbox se quede vacío.

Publicado por Andres Leonardo (1739 intervenciones) el 06/09/2017 15:30:24
Hola ALejandro ... me alegro que hayas avanzado algo ... lo que veo es que no cambias los nombres o name de los controles ahi es dificil llevar un control .. con 20 textboxes supongo ha de ser un dolor de cabeza

para avanzar ...veo que tienes un IF...que es el del ENTER pero dentro no hay otra validacion

al al dar enter -- este se cumple

si no se cumple una función del textbox -- cual es la funcion donde esta esa validacion?

croe que pudiera ser por eso...

Saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil

Pasar de textbox a textbox con enter y evitar que se el textbox se quede vacío.

Publicado por ALEJANDRO (4 intervenciones) el 06/09/2017 17:30:59
Voy a echarle un ojo y te aviso, gracias por el dato.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar