• Viernes 8 de Noviembre de 2024, 04:35

Mostrar Mensajes

Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.


Mensajes - feivelfabiola

Páginas: [1]
1
Visual Basic 6.0 e inferiores / Ya di con la respuesta aqui se las dejo:
« en: Viernes 15 de Enero de 2010, 01:16 »
Asi quedo la fecha doy un mes y un año tecleando: 02/2009 y se cambia por Feb-2009 y si pongo una fecha erronea me pone el mensaje de error y se devuelve a capturar la fecha otra vez:

Private Sub MaskEdBox1_GotFocus()

'MaskEdBox1.BackColor = vbRed, vbGreen, vbBlue, vbYellow
MaskEdBox1.Format = ""
MaskEdBox1.Mask = ""
MaskEdBox1.SelStart = 0
MaskEdBox1.SelLength = Len(MaskEdBox1.Text)

'MaskEdBox1.SelLength = 8 'Len(MaskEdBox1.Text)
With MaskEdBox1
.Format = "mmm-yyyy"
.Mask = "##/####"
End With
'''Date
Cadena = Format(Now, "m yyyy") ' Devuelve el día del sistema en este formato: "02/08/2004"
mesNow = Month(Now) ' intMonth = 1
yearNow = Year(Now)

'''Date


End Sub

Private Sub MaskEdBox1_LostFocus()
lafecha = MaskEdBox1.Text
mess = Left(lafecha, 2)
yearr = Right(lafecha, 4)
nummess = Val(mess)
numyearr = Val(yearr)


If (yearNow < numyearr) Or (mesNow < mess And yearNow <= yearr) Then
MsgBox "Fecha errónea", vbCritical, "Validación de Fecha"
MaskEdBox1.SetFocus
End If

End Sub

 :)

2
Visual Basic 6.0 e inferiores / Validar fecha en MaskEdBox en VB6?
« en: Jueves 14 de Enero de 2010, 01:48 »
Hola:

Tengo lo siguiente en mi codigo:

Private Sub MaskEdBox1_GotFocus()

Cadena = Format(Now, "m yyyy")   'Devuelve fecha de Hoy que hay en el PC
mesNow = Month(Now) ' integer mesNow = 1
yearNow = Year(Now)    'integer yearNow = 2010
MsgBox "mes = " & mesNow & " año = " & yearNow   '1   2010 ---> fecha PC

MaskEdBox1.Format = ""
MaskEdBox1.Mask = ""
MaskEdBox1.SelStart = 0
MaskEdBox1.SelLength = 8   'Len(MaskEdBox1.Text)
With MaskEdBox1
.Format = "mmm-yyyy"  
.Mask = "##/####"
End With
End Sub

Private Sub MaskEdBox1_LostFocus()
  If Not (IsDate(MaskEdBox1.Text)) Then
 MaskEdBox1.SetFocus
 End If

'Guardar el valor de MaskEdBox1 sin los separadores en valor numerico en una variable String
MaskEdBox1.ClipMode = mskExcludeLiterals
MaskEdBox1.SelStart = 0: MaskEdBox1.SelLength = 8


lafecha = MaskEdBox1.Text
mess = Left(lafecha, 2)
yearr = Right(lafecha, 4)
MsgBox "mes = " & mess & " año = " & yearr   'mes = 9 año = 2008 -> tecleados
End Sub
''''''''''''''''''''''''''''''''''''''''''''''
Lo que quiero hacer es comparar estos valores enteros mesNow y mess, y yearNow contra yearr para que si alguien teclea por ejemplo 12/2345
la fecha no la tome en cuenta, quiero corregir ese error porque el mes Dic del año 2345 todavia no ocurre.

Habia hecho lo siguiente:

If (nummess > mesNow) & (numyearr > yearNow) Then
   MaskEdBox1.SetFocus
End If

pero no funciona, alguien que me oriente por favor.

Fabiola. :)

3
Visual Basic 6.0 e inferiores / Programa que agregue dependencias en vb6?
« en: Jueves 17 de Diciembre de 2009, 20:29 »
Necesito un programa mejor que fusion, tengo el fusion pero no me agrega los skins a mi programa ejecutable en visual basic 6.  :)

4
Visual Basic 6.0 e inferiores / Re: Programa en .exe de visual basic 6?
« en: Miércoles 2 de Diciembre de 2009, 17:16 »
Todavia no se que es, porque todas las pcs estan igual y tienen el mismo antivirus symantec solo en esa pc no funciona, asi que seguire revisando.

5
Visual Basic 6.0 e inferiores / Programa en .exe de visual basic 6?
« en: Lunes 30 de Noviembre de 2009, 17:34 »
Tengo un programa en .exe de visual basic 6 que corre en varias pcs del grupo de trabajo menos en una y el error que marca es "Controlador no válido" que podrá ser????  :mellow:

6
Visual Basic 6.0 e inferiores / Mandar 2 consultas recordset a un combobox
« en: Viernes 20 de Noviembre de 2009, 01:52 »
Quisiera saber como poner 2 consultas de ADO recordset en un solo combobox, la base de datos es access 2007, seria algo asi:

numero_localidad   nombre_localidad
112                            el yunque
134                            el simbad
142                            las palmas
             etc.

Espero que me puedan orientar algo, darme ideas, igual yo cuando pueda contestare preguntas aqui o en otro foro, gracias de antemano por la ayuda.  :)

7
Visual Basic 6.0 e inferiores / Como ordenar un datacombo?
« en: Viernes 13 de Noviembre de 2009, 07:43 »
Espero que me puedan orientar, es que se que se puede extraer toda una columna de una tabla access con este control pero no se si se pueden ordenar estos valores, gracias de antemano por su ayuda.

8
Visual Basic 6.0 e inferiores / Alguien sabe de alguna web de codigo...
« en: Viernes 30 de Octubre de 2009, 20:06 »
Por favor diganme si saben de paginas de internet donde se explique como hacer con codigo para dar un mejor aspecto a como lucen los formularios en los programas hechos con vb6.

Quiero saber de codigo porque no puedo insertarle skins (archivos .skn) a mis programas porque luego no se miran en otras computadoras mas que en la mia.

9
Visual Basic 6.0 e inferiores / Error '76' no encontro ruta de acceso.
« en: Jueves 29 de Octubre de 2009, 17:57 »
Tengo un programa en visual basic 6 ".exe" y al ejecutarlo desde la carpeta donde lo tengo guardado no marca error, pero cuando lo puse en el escritorio lo ejecute y me marco el error '76' que no encontro la ruta de acceso.

Lo que hice luego fue convertirlo usando vb6 en un programa setup pero sale el mismo error, y lo que quiero es poder ejecutar este programa en otras computadoras.

Tiene skins (.skn) y archivos ocx (.ocx), asi que utilice el programa fusion para hacer un .exe que tuviera estos archivos (.skn y .ocx) y tampoco funciona.

Si alguien sabe como hacer portable mi programa espero que me pueda ayudar por favor, gracias de antemano por leer esto.

Páginas: [1]