No puedo escribir luego de eliminar debido a una condicion

Dudas sobre código
PterPmntaM
Nivel 3
Mensajes: 67
Registrado: Dom Mar 12, 2017 4:27 am

No puedo escribir luego de eliminar debido a una condicion

Mensajepor PterPmntaM » Vie Jul 07, 2017 4:46 pm

Hola comunidad, tengo un problema al borrar todo de un cuadro de texto, luego de seleccionar todo lo que hay en el y borrarlo de una sola vez con la tecla retroceder del teclado.

Si por ejemplo borro numero a numero, no pasa nada puedo escribir nuevamente, pero si selecciono múltiples números de caja de texto manteniendo el click sostenido, luego no puedo escribir, tengo que cambiarme de caja de texto, hacer que pierda el foco, y lego si regreso a esta si puede; estoy usando un condicional para evitar que la cantidad de números digitados no sea mayor a 15.

Solo permito la tecla retroceso para borrar, quizás ese sea mi problema, dejo mi código a continuación.

Código: Seleccionar todo

Private Sub txt_imei_compra_KeyPress(KeyAscii As Integer)

    Dim NroCar As Integer
   
    NroCar = 9
   
    If InStr("0123456789", Chr(KeyAscii)) = 0 And KeyAscii <> 8 Then KeyAscii = 0
    If Len(Me.txt_imei_compra) >= NroCar And Me.txt_imei_compra.SelStart = 0 Then Exit Sub
    If Len(Me.txt_imei_compra) >= NroCar And KeyAscii <> 8 Then KeyAscii = 0
   
   
    If Len(Me.txt_imei_compra.Text) = 15 Then
   
         If (KeyAscii <> 8) Then
                KeyAscii = 0
         End If
         
    End If
   
End Sub

Volver a “Código VBA”

¿Quién está conectado?

Usuarios navegando por este Foro: Bing [Bot] y 1 invitado