SoloCodigo

Gracias Brroz. No sabes cuánto!

Ahora me tiro más confiado.

En principio, se me viene a la mente la función Isnumeric().
If Isnumeric(text1.text) then
      'Es Numero
else
      'Es Texto
end if

Independientemente, claro está, de que primero valides que haya algo en el cuadro de texto.

Debes considerar, además, la posibilidad de usar un control Maskedbox en lugar de un cuadro de texto. Así te asegurarías de que el usuario sólo pueda ingresar números (entre otras condiciones que le puedes dar)

Espero sirva.

Perdón:
A causa de tu otra consulta, estoy sospechando que le quieres dar formato a las celdas desde Visual. En ese caso sería:

 ExL.Worksheets("Hoja1").Range("B3:B11").NumberFormat = "@"

Este ejemplo deja en formato de texto las celdas desde la B3 a la B11.

(ExL es un objeto Excel, se entiende)

Más abajo en esta misma página:
Tema "Excel y Visual"

Hay un código de ejemplo que me funcionó de maravillas.

Otro Voto para el Inno SetUp.

Cuando uno ya se familiariza un poco, descubre características tales como:
- Puedes modificar las imágenes.
- Traducir el texto para que se presente en Español.
- Agregar una clave a la Instalación.
- Si no sabes bien qué archivos debes Instalar, trae en la ayuda una guía para traducir los archivos de dependencias creados con el empaquetador de Visual. Así como también la información de cuáles archivos pueden crear problemas en otras máquinas y por lo tanto no deberían ser incluídos en el paquete.
- Por último, es muy fácil crear parches para tus aplicaciones. Si lees el tutorial, verás que basta con desactivar las líneas donde están aquellos archivos que no necesitas modificar.

Realmente muy bueno.

ACLARACION:  QUICE DECIR DAO A ADO.

Amigos del Foro:
Primero agradecer, ya que he revisado las discusiones acerca del DataEnvironment y me he alumbrado bastante. Destaco la exposición de Chiaravel al respecto, aunque las imágenes no se me mostraban y eso retarda mi entendimiento. Agradezco de corazón pues las ayudas de Visual 6 no están muy amigables.
Segundo aclarar que me cambié hace poco a VB6, y antes hacía todo con DAO... Ni siquiera ODBC.
Me quedan algunas dudas: (bastantes en realidad)
- Me costó mucho aprender (en DAO) a utilizar los índices, lo que mejoró increíblemente la velocidad de mis aplicaciones (imaginen que antes usaba findfirst). ¿Cómo uso eso en Dataenvironment? ¿Están obsoletos los índices?
- Ya no existe Edit?
- Estuve probando con el .AddNew (al menos una palabra conocida), pero noté que tardaba un poco en actualizarce el registro. Tenía un antiguo control Data conectado a una tabla; luego de agregar un registro a la tabla, utilizaba un botón que hacía un Refresh al control data. Pero esta orden sólo mostraba el nuevo registro si clickaba el botón después de un par de segundos.

En fin. Eso por ahora me ayudaría bastante. Mi idea es seguir investigando y estas pequeñas guías me harán más fácil el camino.

Gracias de nuevo.

Hola amigos del foro.
  Soy un entusiasta aficionado de la programación y hasta ahora nada ma había hecho dejar el fiel VB5.
  He decidido que ha llegado la hora de cambiar a VB6. Me ha entusiasmado la idea del Dataenvironment y la posibilidad de generar reportes en forma más sencilla, además de otras mejoras que me imagino iré descubriendo.
  Temor:
  Después de mucho ensayar, había logrado configurar un empaquetador (InnoSetup) para distribuir mis aplicaciones de VB5 -por algún motivo el que viene con Visual siempre me dio problemas-.
  Quienes tengan experiencia con este tipo de empaquetadores, podrían por favor anexar tips a esta discusión, con aquellos secretillos que no están muy bien documentados y que yo debería saber?
  Por ejemplo:

- Con dolor descubrí (con VB5) que al distribuir la librería COMCAT con la aplicación (cosa que el empaquetador de Visual hacía por defecto), los equipos con Windows 95 quedaban sin la posibilidad de utilizar Acces.

  Sobretodo me interesa las diferencias que deberé asumir ahora que utilizaré VB6, con su ADO, Dataenvironment, Datareport, etc...
  Espero haber sido claro y no estar dando la lata. Gracias de antemano.

Salu2.

Brroz sabe la respuesta a tu pregunta.
La dió un par de mensajes más arriba y me pareció muy interesante.
Salu2.

Hola Sonia:
La verdad es que no tengo tiempo de resumir el código que enviaste, pero te puedo ayudar un poco en lo que me parece es el problema principal. Específicamente, veo que has creado muchos controles text, por lo que debes manejar toneladas de código. Lo ideal es que tengas una matriz.
Esto consiste en una serie de controles con el mismo nombre, pero con una propiedad INDEX distinta para cada uno. La forma más fácil de hacerlo es crear el primero, luego eliges copiar y pegar; automáticamente Visual te preguntará si quieres crear una matriz de controles... le dices que sí, y ya está.
Por ejemplo, si tienes un control text, te creará text(0) (el original), text(1), text(2)... etc.
Luego, debes acostumbrarte a que cambia un poco el código, pues ya no basta dirigir el código al nombre del control, sino que además deberás indicarle el índice. Ejemplo:

Antes:
text.setfocus
Ahora:
text(2).setfocus

La ventaja, te puedes ahorrar toneladas de código. Usando tu ejemplo:

Private Sub text_lostfocus(Index as integer)
    if index>=17 and index <=30 then
       Text(Index).Text = FormatNumber(Val(Text(Index).Text), 2, 0, 0, 0)
    endif
End Sub

Estas lineas de código cambian el formato para todos los cuadros de texto cuyos indices estén entre 17 y 30.

Salu2.

Básicamente es lo que te respondieron en La Web del Programador. Tienes que poner la base en un pc que esté accesible a todos los pc que ocuparán la aplicación (generalmente es un servidor). Luego le indicas a tu aplicación la dirección del archivo mdb.
- En general el funcionamiento es igual a cómo lo haría una aplicación monousuario, pero debes informarte un poco en las ayudas respecto al bloqueo de registros. Por ejemplo, deberás prever los casos en que dos usuarios quieran modificar un registro al mismo tiempo.
- Otro aspecto que no se trata en las ayudas pero que puede dar problemas, es cuando utilizas tablas de paso para preparar un informe o para una selección temporal de registros. Si usas tablas de paso, necesitarás que cada usuario tenga la suya independiente del resto para evitar conflictos. Yo lo hago instalando una base de datos local que maneja todas estas selecciones temporales, de forma que los usuarios no se atropellen.
- Por último, hay procedimientos que requieren que no haya más usuarios conectados (comprimir la base de datos, por ejemplo), y que te darán un error interceptable si intentas ejecutarlos en una base mientras otro usuario la tiene abierta.
Espero te sirvan los consejos. Por lo pronto, comienza por poner la base en un servidor e indicar la dirección a tu aplicación. Lo demás irá saliendo solo.

Salu2.

Debería funcionar algo así:    

    Dim X As Printer
    For Each X In Printers
       combo1.additem X.DeviceName
    Next

Salu2.

Pues lo espero. Gracias!
Y felices Fiestas!