ayuda sobre la ruta de abrir archivos y validaciones
holas amigos pido ayuda para saber como dar un valor a una ruta elegida por el mismo usuario para poder despues guardar algo en ese archivo (de word), y lo otro es para crear una validacion para escribir solo letras , la verdad es que hago una , pero se encierra y no se como arreglarla
para validar podés hacer esto:
en el evento keypress del textbox
Private Sub text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
'sigue lo que hace cuando se valida como
'que terminó de ingresar la cadena
Else
KeyAscii = ValidarAscii(KeyAscii, "N")
End If
End Sub
Public Function ValidarAscii(intTecla As Integer, strQueValida As String) As Integer
Select Case strQueValida
Case "T" 'valida nros., (-) ,(.),(_), letras
Select Case intTecla
Case 48 To 57, 45, 95, 8, 46
ValidarAscii = intTecla
Case 97 To 122, 65 To 90
ValidarAscii = Asc(UCase(Chr(intTecla)))
Case Else
ValidarAscii = 0
End Select
End Select
End Function
en la función tenés que poner los valores de ascii que dejes que el usuario ponga, y si es otro caracter, devuelve cero, que es lo mismo que si el usuario no lo hubiese presionado...
Cualquier cosa que no esté muy claro, avisame...
Espero que te sirva
en el evento keypress del textbox
Private Sub text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
'sigue lo que hace cuando se valida como
'que terminó de ingresar la cadena
Else
KeyAscii = ValidarAscii(KeyAscii, "N")
End If
End Sub
Public Function ValidarAscii(intTecla As Integer, strQueValida As String) As Integer
Select Case strQueValida
Case "T" 'valida nros., (-) ,(.),(_), letras
Select Case intTecla
Case 48 To 57, 45, 95, 8, 46
ValidarAscii = intTecla
Case 97 To 122, 65 To 90
ValidarAscii = Asc(UCase(Chr(intTecla)))
Case Else
ValidarAscii = 0
End Select
End Select
End Function
en la función tenés que poner los valores de ascii que dejes que el usuario ponga, y si es otro caracter, devuelve cero, que es lo mismo que si el usuario no lo hubiese presionado...
Cualquier cosa que no esté muy claro, avisame...
Espero que te sirva