ayuda sobre la ruta de abrir archivos y validaciones

rodrigo
27 de Enero del 2004
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

sole
27 de Enero del 2004
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

sdemingo
27 de Enero del 2004
Hola,

no entiendo tu primera pregunta.... Podrías explicarte mejor?

En cuanto a la segunda.....

If Not IsNumeric(Text1.Text) Then
MsgBox "Son Letras y caracteres"
Else
MsgBox "Son números"
End If

Saludos
sdemingo