SoloCodigo

Hola
Debes utilizar una maskedbox para que le des la forma de entrada que es asi
en la propiedad dela mascara "mask" coloca ##/##/#### y luego coloca el el form elnombre del controlmaskedbox ="__/__/____" entiendes cualquier cosa la comentas lo otro no lo se tambien tengo unas dudas puedes leer el foro y te daras cuenta cualquier cosa te lo comento si tengo algo

Atte.

Cero Kull®

charliekzx@mixmail.com

Holaaaassss......


Bueno amigos este menseje es solo para decearles muchas algria y dicha en este nuevo año que comienza y puras buenas suerte a todos los que hacen posible este foro a los diseñadores, que gracias a ellos podemos. Nosotros los novatos,podemos resolver nuestras dudas....

nada mas que decir solo gracias a aquellos que nos ayudan aqui y a los diseñadores...  salu2 y muchas felicidades....

Atte.
 
   Cero Kull®


Pd. Ojala esten conmigo.. y un salud por nosotros los integrantes....

Elproblema es el siguiente !!

necesito que el usuario cuando llegue al maskedbox y no le ingrese nada arroje mensaje de que tiene que ingresar algo que no acepte la tecla enter, o la tecla Tab, o cambiar con el raton, sin escribir nada en el masked que la unica forma de salir de el sea escribiendo la fecha por ejemplo

se entiende ?? creo que si es igual al tema de lo text...
Chau

Hola !!
Gracias javier!!
El tema de los text esta cerrado pude lograr arreglar todos los incovenientes que tenia GRACIAS A TU AYUDA!! ., ya que aprender solo no se puede.. o deberias dedicarte 100% para aprender..

Bueno gracias....

A los demas cibernautas el codigo funciona bien asi que pueden bajarlo lo que esta aqui en este foro es para todos!!

Saludos!!!

Javier Sabes provando el codigo en el trabajo que estoy realizando
no me resulta y sabes ademas como tu me lo dijiste ya lo habia provado
lo que pasa es que tengo un MDIForm y como programa hijo es en donde
estoy ejecutando es lo del lostfocus sera causa por el mdfiform que no me
resulta, antes que nada lo prove en otro proyecto claroy si funciona claro cambiando
la manera de declarar la variable en el otro trabajo del real que estoy haciendo lo
probe tantas veces que recuerdo que mas de alguna vez lo probe asi como me dices
que lo haga ahora.
Sabes lo prove en el proyecto pequeñito y anda bien pero luego lo prove
en el que sera el programa mas grande el original y no funciona sera a causa
del MDFIform., sabes me gustaria tener tu mail para mandarte todo el codigo
pera que si tienes un poquito de tiempo lo revises que te parece!!!!., de verdad soy novato
en esto y me gustaria que me ayudaras!!!!., y solo te envio el codigo poque me
das confianza con todo lo que me has ayudado!!!

Saludos !!!!!



Atte   Cero Kull®


Pd. Si quieres me envias el tu correo!!!., para mandarte el codigo!!!

Javier gracias por tu ayuda pero me rindo ya no sè estoy
'haciendo mal ....
'me imagino que tienes un form com dos text's
'de esa manera lo estoy probando, ademas teniendo
'el modulo de procesar el losFocus
'asi es que me rindo ya no se que hacer
'de este modo lo estoy provando
'ERROR ENCONTRADO ES EL MISMO DICE QUE LE INGRESE ALGO
'AL TEXT'S,PERO AVECES MOSTRANDO * DOS EL MENSAJE

'ESTOY RENDIDO NO SE QUE HACER
'ES LA ULTIMA VEZ QUE TE MOLESTO....

'***** Este es el codigo del Form**********
Private Sub Command1_GotFocus()
cancelar = True
End Sub
Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
cancelar = True
End Sub
'--> En este nivel estoy declarando la variable (que seria a nivel de Formulario)
Private Sub Form_Load()
Dim cancelar As Boolean ' --> Que pasa si la declaro como_
' private me arroja error asì que la dejo como "Dim"
End Sub
Private Sub Text1_KeyPress(Keyascii As Integer)
ProcesarKeyPressTextSoloTexto Keyascii, Text1
End Sub
Private Sub Text1_LostFocus()
If Not cancelar Then ProcesarLostFocusText Text1
ProcesarLostFocusText Text1
End Sub
Private Sub Text2_KeyPress(Keyascii As Integer)
ProcesarKeyPressTextSoloTexto Keyascii, Text2
End Sub
Private Sub Text2_LostFocus()
ProcesarLostFocusText Text2
End Sub
Private Sub Command1_Click()
MsgBox "hola se termino el programa", vbCritical
End Sub
'*********Fin del Codigo Del FORM*********

'******   Este es el Codigo del modulo ********
Public Sub ProcesarKeyPressTextSoloTexto(Keyascii As Integer, txt As TextBox)
If Asc(UCase(Chr(Keyascii))) < Asc("A") Or Asc(UCase(Chr(Keyascii))) > Asc("Z") Then
If Keyascii <> 8 And Keyascii <> 13 And Keyascii <> 209 And Keyascii <> 241 And Keyascii <> 34 And Keyascii <> 225 And Keyascii <> 233 And Keyascii <> 237 And Keyascii <> 32 And Keyascii <> 243 And Keyascii <> 250 Then
Keyascii = 0
Beep
End If
If Keyascii = 13 Then
SendKeys "{TAB}"
End If
Else
Keyascii = Asc(UCase(Chr(Keyascii)))
End If
End Sub
Public Sub ProcesarLostFocusText(txt As TextBox)
Static Procesando As Boolean

If Procesando Then Exit Sub
Procesando = True
txt.Text = Trim(UCase(txt.Text))
If txt.Text = "" Then
MsgBox " Ingrese datos pedidos ", vbExclamation
txt.SetFocus
DoEvents
End If
Procesando = False
End Sub
'*******  Fin delCodigo Modulo *********


' Saludos Atte Cero Kull®

Problema con el boton

Tengo otra duda saben necesito elminar un formulario pero con un boton "salir " por ejemplo

Algo que produsca el mismo evento que "QueryUnload"
y no un form1.hide

Saludos!!!

Javier....
Pense que preguntaba solo estupideses pero nunca dije  que el error ocurria sin ingresar nada ja je jeja
Voy a probar eso y luego te cuento .

saludos

 Atte Cero Kull®

Javier !!

Parece que yo estoy mal., con esa rutina ya que tambien lo he probado de esa manera y no me resulta..

El problema que detecte es que al llamar el mismo procedimiento para los otros text.
y al presionar la tecla TAB se queda pegado y no lo puedo para tengo que presionar ctrl+alt+sup para poder dejar de ajecutar el programa

Vez entonces no se lo que pasa

claro la rutina funciona bien pero cuando presiono Tab se pega

Atte.
Cero Kull®
Pd.
No se que pasa
Pd2
Cual es la funcion que hace que en forma inmediata se transforme a mayuscula!!

Javier !!!

Sabes he estado revisando la mofificacion que me hiciste pero, no di con el problema, con la
solucion del problema que tiene el codigo., ojala que no lo tenga y que yo lo este utilizando mal

1.- DESCRIPCION DEL PROBLEMA.

*****Ok. deje esto en un modulo **********************

Public Sub ProcesarKeyPressTextSoloTexto(Keyascii As Integer, txt As TextBox)
If Asc(UCase(Chr(Keyascii))) < Asc("A") Or Asc(UCase(Chr(Keyascii))) > Asc("Z") Then
If Keyascii <> 8 And Keyascii <> 13 And Keyascii <> 209 And Keyascii <> 241 And Keyascii <> 34 And Keyascii <> 225 And Keyascii <> 233 And Keyascii <> 237 And Keyascii <> 32 And Keyascii <> 243 And Keyascii <> 250 Then
Keyascii = 0
Beep
End If
If Keyascii = 13 Then
SendKeys "{TAB}"
End If
Else
Keyascii = Asc(UCase(Chr(Keyascii)))
End If
End Sub

Public Sub ProcesarLostFocusText(txt As TextBox)
txt.Text = Trim(UCase(txt.Text))
If txt.Text = "" Then
MsgBox "Ingrese datos pedidos ", vbCritical
txt.SetFocus
End If
End Sub

Todo lo de arriba esta un un modulo., y luego lo llamo desde con esta instrucion

INSTRUCCION***

Private Sub Text1_KeyPress(Keyascii As Integer)
ProcesarKeyPressTextSoloTexto Keyascii, Text1
End Sub

Private Sub Text1_LostFocus()
ProcesarLostFocusText Text1
End Sub
*********************

Hasta esto funciona bien, cual es el problema .??
cuando copio el esta instrucion pero cambiando lo text's osea ASI
*****************************
Private Sub Text2_KeyPress(Keyascii As Integer)
ProcesarKeyPressTextSoloTexto Keyascii, Text2
End Sub

Private Sub Text2_LostFocus()
ProcesarLostFocusText Text2
End Sub
*****************
Sucede el siguiente problema resulta que se queda pegado y no deja dejar de ejecutarse
la instruccion.
Ademas cuando coloco un boton para llamar otro formulario (con un boton Volver por ejemplo)
se queda hay, o me da el mensaje que ingrese algo al text.

Sabes lo intente pero no pude solucionarlo, me podrias ayudar...


Saludos de  Cero Kull®

Gracias a Alberto y Gracias Javier!!

Saben seguire leyendo mas cosas, la verdad es por que pregunto tanto es que estudio solo nadie me a enceñado nada de visual solo lo he aprendido solo, investigando CLARO QUE LA MAYOR PARTE AQUI EN ESTE FORO, Y GRACIAS A MUCHOS QUE ME HAN RESPONDIDO LAS INQUETUDES..
De verdad muchas gracias!!!

Un Saludos

Atte. Cero Kull®

Hola amigos todavia sigo trancado con las bese de datos para acceder a las bases de datos., miren encontre este codigo en el computador de mi instituto pero no se como funciona o para que sirve ojala me lo puedan explicar de mejor forma.. ya que no le tengo la ayuda a visual basic 6.0 pronto la tendre claro.....

___Aqui esta el codigo____

[Se que esta son la declaraciones ]

Option Explicit  ->> pero que es esto ?

Dim WRKJET As Workspace ->> ESto que es. ?

Dim BdAiep As Database --> es el nombre de la base datos pero que es AS DATABASE ?

Dim RsAlumnos As Recordset -->> cREO QUE ESTO REEPLAZARIA A LAS PROPIEDAD DATABASENAME (RsAlumnos ES VARIABLE) aqui me gustaria saber como funciona mas adelante el recordset

Esta es la otra parte del codigo......

Private Sub Form_Load()
Set WRKJET = CreateWorkspace("", "admin", "", dbUseJet)
Set BdAiep = WRKJET.OpenDatabase("c:windowsescrit~1msbdbdaiep.mdb")
Set RsAlumnos = BdAiep.OpenRecordset("Select * from ing_Panas order by val(codigo_alumno)", dbOpenDynaset)
sw_modificar = True
End Sub

Aqui me gustaria que me lo explicaran mas facil linea por linea (disculpen la patudes) pero para no hacer preguntas tontas mas adelante y quizas poder ayudar mas..

Ojala me ayuden