SoloCodigo

Hola:

Una forma (menos milagrosa) es usar un CheckBox, colocarle la propiedad Style a graphical y cambiarle el ForeColor a lo que quieras.

Saludos,
Javier

Hola:

Prueba con Csng en lugar de Val

Saludos,
Javier

Hola:

    Dim s As String
    Dim a
    Dim s2 As String
    Dim c As Long
   
    s = "falta     de  imaginacion      en este          momento"
    a = Split(s, " ")
   
    For c = 0 To UBound(a)
        If a(c) <> "" Then
            s2 = s2 & " " & a(c)
        End If
    Next
    MsgBox s2


Saludos,
Javier

Lo del campo nulo, tal vez entonces el atributo no sea adColNullable, yo lo buscaría por ahí. Fijate de investigar bien todos los valores que trae Atributes.

Lo otro, los doc los podrías abrir con Word, con un objeto Application, pero no recuerdo en este momento exactamente con se hace, busca en los sitios de VB sobre como abrir archivos de Word desde VB, y hacerlo en forma oculta.
Los pdf he visto que vienen unos Activex de Acrobat, deben ser para eso, no sé si son gratis, busca con Google.
Lamento no poderte orientar mejor en esto.

Saludos,
Javier

Hola Rober:

En cuanto a la pregunta de los campos que pueden contener Null, en las Bases Access creo que son los de texto, y supongo que los memo también.

Hace un par de días alguien me dijo que los numéricos también, pero él usaba otro tipo de base de datos, yo con Access y VB (hasta ahora usé DAO) veo que los numéricos se inicializan con cero.

En cuanto a la segunda pregunta, coloca una instrucción DoEvents luego del Form.Show

Saludos,
Javier

El segundo problema

Hola:

Puedes usar variables declaradas con Public en un módulo estándar y esas las ves en todo el proyecto.

Sino puedes declarar variables Public en la sección de declaraciones del formulario y luego accederlas desde otros:

NombreForm.NombreVarible

Saludos,
Javier

Si los archivos que van adentro de esas carpetas los colocas luego usando el programa, es decir, si no tienen que ir al instalarse, a las carpetas las puedes crear con el programa la primera vez que se ejecuta.

Usas la función Dir al arrancar el programa para ver si existen y si no las creas con MkDir.

Si tienes que mandar todo en la instalación y ahí adentro van varios archivos tal vez el asistente de instalación de VB no sea el más adecuado.
Hay muchos otros pero no los he utilizado, puedes buscar instaladores en download.com o sitios de VB en general.
InstallShield, Setup Factory, para mencionar algunos que he visto.

Saludos,
Javier

Hola:

Bueno, una opción es utilizar el Asistente de empaquetado y distribución que viene con Visual Basic.
Si vas a Inicio, Programas; en la carpeta del Visual está.

Saludos,
Javier

Hola Cero Kull:

Acá abajo puedes agregar un archivo adjunto con el mensaje, te recomiendo que primero lo comprimas en .zip
Mi email es javierbalk@hotmail.com
De todas maneras ahora estoy de viaje y voy a estar de vuelta recién dentro de unos días así que no te aseguro que lo voy a poder ver acá.

Saludos,
Javier

Hola Cero Kull:

Bueno, por mi parte te digo de nada y me alegra que sirva de algo las veces que me tomo unos minutos para responder algo cuando sé.
Saludos y que pasen todos de la mejor manera estas fiestas.

Javier

Hola Cero Kull:

Lo que pasa que estás haciendo algo mal: la variable Cancelar la tenes que declarar a nivel del formulario y no a nivel de un procedimiento.

Si vos declaras una variable en el evento Load la ve solo en ese evento, es decir hasta que llega al End Sub.

Para declararla a nivel del formulario la tenés que poner arriba de todo (en la sección de declaraciones), ahí te la va a aceptar con Dim y con Private.

Te paso el código que tenés que copiar en el form, solo modifiqué eso y le agregué el Unload Me para salir en el botón de comando:

'*********************************
Private cancelar As Boolean

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

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

Private Sub Text1_LostFocus()
If Not cancelar Then ProcesarLostFocusText Text1
End Sub

Private Sub Text2_KeyPress(Keyascii As Integer)
ProcesarKeyPressTextSoloTexto Keyascii, Text2
End Sub

Private Sub Text2_LostFocus()
If Not cancelar Then ProcesarLostFocusText Text2
End Sub

Private Sub Command1_Click()
MsgBox "hola se termino el programa", vbCritical
Unload Me
End Sub
'*********************************

Saludos,
Javier

Hola Cero Kull:

No estoy en mi PC en este momento porque estoy de viaje, pero hice la prueba en esta PC donde estoy en el Visual 5 que tiene instalado, y si pongo Cancelar = True tanto en el evento GotFocus como en el MouseDown del command y poniendo If Not Cancelar en el evento LostFocus del TextBox, con la variable Cancelar definida como Private a nivel del formulario no me procesa lo del evento LostFocus de TextBox.
Además recuero también que lo usé así en un programa mío en el pasado y anda bien.
Probalo bien de nuevo.

Saludos,
Javier