SoloCodigo

Hola Amigos:comp:

Como han estado junto con saludarlos pido disculpas por no entrar muy seguido saben tengo una pregunta he bajado algunas rutinas de visual basic 6.0 y me faltan algunos componentes me gustaria saber si saben de algunas paginas donde los pueda obtener...
atte.
CeroKull®

<<<SIGO PROBANDO Y NO ME RESULTA>>>

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...


Estoy utilizando el mismo codigo de validacion de los text pero con algunos cambios que creo deben ser asi como pienso.. , para poder validar los maskedbox

Bueno lo pongo a disposicion para que me puedan ayudar a ver que esta malo...

Codigo del modulo.bas

Public Sub fe_ing_KeyPress(Keyascii As Integer, mask As MaskEdBox)
If Keyascii = 13 Then
SendKeys "{TAB}"
End If
Else
If fe_ing = "__/__/____" Then
MsgBox "Ingrese Fecha Usuario", vbCritical
fe_ing.SetFocus
Else
If IsDate(fe_ing) Then
Text4.SetFocus
Else
MsgBox "Fecha No Valida", vbCritical
fe_ing = "__/__/____"
fe_ing.SetFocus
End If
End If
End If
End Sub
'*****************************************************
' SOLO PARA PROVAR VALIDAR EL MASKEDBOX
Public Sub ProcesarLostFocusfecha(mask As MaskEdBox)

Static Procesando As Boolean

If Procesando Then Exit Sub
Procesando = True
fe_ing.mask = Trim(UCase(fe_ing.mask))
If fe_ing.mask = "" Then
MsgBox " Ingrese mascara pedida ", vbExclamation
fe_ing.SetFocus
DoEvents
End If
Procesando = False
End Sub

'******************************************************
fin modulo

Codigo de llamada al control en el form...

Private Sub fe_ing_GotFocus()
fe_ing.BackColor = &HFFFF00
End Sub
Private Sub fe_ing_KeyPress(Keyascii As Integer)
'ProcesarKeyPressTextSoloTexto Keyascii, Text1
ProcesarLostFocusfecha Keyascii, fe_ing
End Sub
Private Sub fe_ing_LostFocus()
fe_ing.BackColor = &H80000000
ProcesarLostFocusfecha fe_ing
End Sub

Fin del codifo del form

Pd. fe_ing = a la fecha de ingreso es un variable....


Saludos ajala me puedan ayudar.., lo importante es probar y probar hasta que resulte...

Saludos y felices fiestas., y tomen o beban con moderacion ahi que cuidarse..

Atte.
Cero Kull®

Hola el tema esta cerrado el de los text.
Pero me gustaria que me ayudaran a resolver este que es el del control maskedbox..

Estoy utilizando el mismo codigo de validacion de los text pero con algunos cambios que creo deben ser asi como pienso..

Bueno lo pongo a disposicion para que me puedan ayudar a ver que esta malo...

Codigo del modulo.bas

Public Sub fe_ing_KeyPress(Keyascii As Integer, mask As MaskEdBox)
  If Keyascii = 13 Then
    SendKeys "{TAB}"
    End If
    Else
    If fe_ing = "__/__/____" Then
    MsgBox "Ingrese Fecha Usuario", vbCritical
    fe_ing.SetFocus
    Else
    If IsDate(fe_ing) Then
    Text4.SetFocus
    Else
    MsgBox "Fecha No Valida", vbCritical
    fe_ing = "__/__/____"
    fe_ing.SetFocus
   End If
   End If
   End If
 End Sub
'*****************************************************
' SOLO PARA PROVAR VALIDAR EL MASKEDBOX
Public Sub ProcesarLostFocusfecha(mask As MaskEdBox)

Static Procesando As Boolean

If Procesando Then Exit Sub
Procesando = True
fe_ing.mask = Trim(UCase(fe_ing.mask))
If fe_ing.mask = "" Then
MsgBox " Ingrese mascara  pedida ", vbExclamation
fe_ing.SetFocus
DoEvents
End If
Procesando = False
End Sub

'******************************************************
fin modulo

Codigo de llamada al control en el form...

Private Sub fe_ing_GotFocus()
fe_ing.BackColor = &HFFFF00
End Sub
Private Sub fe_ing_KeyPress(Keyascii As Integer)
'ProcesarKeyPressTextSoloTexto Keyascii, Text1
ProcesarLostFocusfecha Keyascii, fe_ing
End Sub
Private Sub fe_ing_LostFocus()
fe_ing.BackColor = &H80000000
ProcesarLostFocusfecha fe_ing
End Sub

Fin del codifo del form

Pd. fe_ing = a la fecha de ingreso es un variable....


Saludos ajala me puedan ayudar.., lo importante es probar y probar hasta que resulte...

Saludos y felices fiestas., y tomen o beban con moderacion ahi que cuidarse..

Atte.
Cero Kull®

Quiero dar las gracias a Javier!!!!

Muchas gracias con sus aportes, me han ayudado bastante casi todo lo he aprendido en este foro, gracias a la gran ayuda de los colaboradores de este foro en especial a los que han tenido bastante paciencia conmigo!!!., y en fin a todos los que reponden inquietudes!!!
de verdad muchas gracias ojala le sirva a los demas estas cosas!!!


Atte
Cero Kull®    

Salu2 a todos!!!!!!!!

Hola!!

No quiero mentir he leeido algunos parrafos pero todo esta en algo que no entiendo dice que me conecta a una base dao pero como cre.. se conecta lo que mas entiendo es access. pero igual necesito que me ayuden siempre que uso base datos me conecto con un data y con la propiedad databasename pero si cambio la bd tengo que direccionar todo denuevo y eso es lo que no quiero solo algo mas simple como generar una constante donde cambie solo una vez la direccion y no todas las tablas entienden lo que quiero!!!

Ayudende por favorrrr..
Necesito que alguien me pueda decir cual es la forma correcta de usar visual basic con base de datos access., EJEMPLO.

1.- Como es la manera mas secilla y correcta de abrir una base de datos en access sin utilizar la propiedad DATABASENAME DEL MODO DE DISEÑO
2.- Como llego a buscar registros en esta base de datos ""access" con sus tablas pero solo utilizando codigo y mostrando en los text
3.- como cerrar un base de datos access despues de haberla consultado--

en esto me gustaria que me ayudaran si tienen alguna rutina simple que me puedan ayudar y explicarmela ya que no saco nada con solo copiarla si no la se utilizar entienden ??., creo que si!

Ojala me ayuden y gracias de antemano..

Saludos de Cero Kull®

Hola..

Tengo unos text"" para ingresar datos a una tabla pero solo necesito letras solo letras, hasta el momento no esta fallando esa parte resulta que estoy utilizando un MDIForm y con otro formulario Hijo y resulta que no puedo validar que en los text's estos pasen sin tener nada escrito

por ejemplo utilizo esta instruccion!!!

Private Sub Text1_KeyPress(KeyAscii As Integer)
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
If text1 = "" Then
MsgBox " INGRESE ALGO ",vbCritical
Text1.SetFocus
Else
Text1 = Trim(UCase(Text1))
Text2.SetFocus
End If
End If
End If
End Sub

Eso es para validar pero resulta que los text siguientes es donde esta el problema con el primero me da el mensaje que "ingrese algo" pero para los demas pasa solo con enter y eso no debiera pasar como lo hago

Alguien me puede ayudar... con otra RUTINa mas SIMPLE

Saludos Cero Kull®

Amigos...

Necesito otra vez de su ayuda!!!!

Cuales son las instrucciones comunes para abrir o cerrar las bases de datos en access.. LAS MAS BASICAS.....

Y COMO ACCEDER A LAS TABLAS DE ESA BASE DE DATOS...

ME PUEDEN AYUDAR POR FAVOR.....

PD. SI TIENEN UNA RUTINA PARA REVISAR O PASOS A SEGUIR... LO AGRADECERIA......


DE ANTE MANO GRACIAS.....


CHAU CHAU..

 SALUDOS DE CERO KULL

Porque siempre me gusta hacer cosas y ademas que aprender sin tener idea es dificil.

1. como hago una arreglo en visual.,
2. como tengo que empesar hacerlo..
3. como lo defino.. (variables)

Problema 4.

Tengo instalada la version 6.0 de visual pero tambien tengo instalada la version del XP., al hacer una Bd. en visual no me la reconoce, que ocurre con eso.


Saludos de < Cero Kull >