Ps Igual y ya esta demas hacer esto pero lo bueno es que hace varias cosas


Escribir solo mayusculas, Escribir solo minusculas, numeros enteros, decimales, negativos, que no se pueda escribir, ademas de poner limite de decimales


Ojala y sirva


Public Const sNumeros = "0123456789"
Public Const sLetras = "abcdefghijklmnopqrstuvwxyz"
Public Const sDecimal = "."
Public Const sNegativo = "-"
Public Const SEspecial = ","


Function Valida_Texto(sTexto As String, KeyAscii As Integer, sValidaCadena As String, Optional May0_Min1_Nor2 As Integer = 2, Optional Editable As Boolean = True, Optional bDecimal As Boolean = False, Optional bNegativo As Boolean = False, Optional NoDecimales = 2) As Integer
Dim x As Integer
Dim s As String
If KeyAscii >= 32 Then
If Editable = True Then
If InStr(1, UCase(sValidaCadena) & LCase(sValidaCadena), Chr(KeyAscii)) <> 0 Then
Select Case May0_Min1_Nor2
Case 0
Valida_Texto = Asc(UCase$(Chr(KeyAscii)))
Case 1
Valida_Texto = Asc(LCase$(Chr(KeyAscii)))
Case 2
Valida_Texto = KeyAscii
End Select
Else
Valida_Texto = 0
End If
Else
Valida_Texto = 0
End If
If bDecimal = True Then
If InStr(1, sTexto, ".") <> 0 Then
If KeyAscii = Asc(".") Then
Valida_Texto = 0
Else
s = sTexto & Chr(KeyAscii)
x = InStr(1, s, ".")
s = Mid(s, x + 1, Len(s) - x)
If Len(s) > NoDecimales Then
Valida_Texto = 0
Else
Valida_Texto = KeyAscii
End If
End If
End If
End If
If bNegativo = True Then
If Len(sTexto) = 0 Then
If KeyAscii = Asc("-") Then
Valida_Texto = Asc("-")
End If
End If
End If
Else
If Editable = True Then
Valida_Texto = KeyAscii
Else
Valida_Texto = 0
End If
End If
End Function

No me sirvio nada.

Hay que saberla usar, por ejemplo


Private Sub txtIdRapido_KeyPress(KeyAscii As Integer)
KeyAscii = Valida_Texto(txtIdRapido, KeyAscii, sNumeros)
End Sub


Asi solo puede escribir numeros enteros positivos


Private Sub txtIdRapido_KeyPress(KeyAscii As Integer)
KeyAscii = Valida_Texto(txtIdRapido, KeyAscii, sNumeros, , , True, , 2)
End Sub


y asi solo numeros decimales positivos con 2 decimales despues del punto


Solo es cestion de probar con las diferentes configuraciones

solo necesito una ayuda.


estoy haciendo un pequeno programa como sigue.


si alguien me ayuda bien, si no pues sigo aprendiendo con ustedes poco` a poco


lo que necesito es lo siguiente es una tabla de tres columnas;


iNGRESOS-GASTOS Y COMPRAS


Y COMO HACER SU ARCHIVO


CON ESO ME CONFORMO, SE QUE LUEGO VOY A NECESITAR COMO TIRAR INFORMES , PERO USTEDES ME DICEN SI SE PUEDE.


GRACIAS. PEDROLUISHDZ@YAHOO.COM

cuando valido un textbox, lo depuro y luego preciono el boton nuevo registro entonces me sale uno de los mensages de error queprogrmae en la validacion

Pon el codigo de como lo hiciste para ver donde esta el error

lo que no entendi es que que momentos validas si son mayusculas o minusculas, es decir, yo quiero que solo me escriba mayusculas

Lo que te recomendaria en ese caso seria esto poner ucase(chr(keyascii)) o o al perder el foco poner text1.text = ucase(text1.text)

hola como haria para validar un textbox para que primero se introduzca una letra y el resto en numeros? gracias es para mi tesis de grado te lo agradeceria mucho

Agrega un text1 y pon este code a ver como te va

Código:

Private Sub Text1_KeyPress(KeyAscii As Integer)
Const sNum = "1234567890"
Const sLet = "abcdefghijklmnopqrstuvwxyz"
If KeyAscii = 13 Then Exit Sub
If KeyAscii = 8 Then Exit Sub
If InStr(1, sNum & sLet, Chr(KeyAscii)) <> 0 Then
 If Text1.SelStart = 0 Then
 If IsNumeric(Chr(KeyAscii)) = True Then
 KeyAscii = 0
 End If
 Else
 If IsNumeric(Chr(KeyAscii)) = False Then
 KeyAscii = 0
 End If
 End If
Else
 KeyAscii = 0
End If
End Sub
Private Sub Text1_Validate(Cancel As Boolean)
'Caja de texto Vacia
If Text1 = "" Then
 MsgBox "No puede ir vacio el campo"
 Cancel = True
 Exit Sub
End If
'Por si el primer caracter es un numero
If IsNumeric(Left(Text1, 1)) = True Then
 MsgBox "El Primer caracter debe ser una letra"
 Cancel = True
 Exit Sub
End If
 
'Por si hay alguna letra en la seccion de numeros
If IsNumeric(Right(Text1, Len(Text1) - 1)) = False Then
 MsgBox "Despues de la letra no pueden ir caracteres"
 Text1.SelStart = 1
 Cancel = True
End If
End Sub

A mi no me da errores, hace lo que me pediste ahora es cuestion de que lo pruebes y me digas que tal, ok?