SoloCodigo

Amigo Mellileo:

Tú mismo dices que tienes solucionada la conexión en ODBC. Sabiendo que DAO es una versión "opuesta" a ADO, no le des más vueltas... Olvídate de DAO para este caso, porque Oracle no entra en su lista de conexiones... Cambia los controles DAO por ADO.

Saludos y suerte

Probablemente te sobre el 90 % del código que te adjunto, pero más vale que sobre que no que falte...

Saludos

¿Te sirve este código?

Saludos y suerte

Cuando generes el EXE deberás realizar otro proceso, que es generar la instalación...

Si tú copias el EXE y las bases de datos podrás ejecutarlo en otro equipo que tenga instalado VB, pero para ejecutarlo en cualquier otro equipo no vale con copiar el programa... HAY QUE INSTALARLO... Y ese proceso de instalación ya se encarga de compilar todas las librerías que la aplicación precise.

Si no tienes un programa externo de instalación, utiliza el "Asistente para empaquetado y distribución" que viene con el propio Visual.

Saludos y suerte

Prueba este código:

Declare Function ShellExecute Lib "shell32.dll" (ByVal hwnd As Integer, _
        ByVal lpOperation As String, _
        ByVal lpFile As String, _
        ByVal lpParameters As String, _
        ByVal lpDirectory As String, _
        ByVal nShowCmd As Lonf) As Long

Const SW_HIDE As Long = 0
Const SW_SHOWNORMAL As Long = 1
Const SW_SHOWMINIMIZED As Long = 2
Const SW_SHOWMAXIMIZED As Long = 3
Const SW_SHOWNOACTIVATE As Long = 4
Const SW_SHOW As Long = 5
Const SW_MINIMIZE As Long = 6
Const SW_SHOWMINNOACTIVE As Long = 7
Const SW_SHOWNA As Long = 8
Const SW_RESTORE As Long = 9
Const SW_SHOWDEFAULT As Long = 10

Dim X As Long

' Para ejecutar el fichero "C:Mi_pathMi_fichero.exe"
X = ShellExecute(Me.hwnd, "Open", "C:Mi_pathMi_fichero.exe", "", "c:", SW_SHOWNORMAL)

' Si quieres que te lo ejecute minimizado, sustituyes SW_SHOWNORMAL, por SW_SHOWMINIMIZED, etc...

' En realidad la definición de las CONSTantes no es necesaria: sin definirlas podías haber escrito directamente
'X = ShellExecute(Me.hwnd, "Open", "C:Mi_pathMi_fichero.exe", "", "c:", 1)
'pero en este caso no sabrías qué significa ese uno...

Saludos y suerte

Lo siento. Desconozco el sistema de impresión en el entorno de DataEnvironment sin utilizar el Printer...
Que encuentres pronto la respuesta.  Saludos

No Friju, por favor... No es que incluyas todos los formularios en el proncipal, sino todas las imágenes que quieras presentar cuando selecciones cada formulario... Tú diseñas tus 10 ó 15 cuadros, cada cual con su imagen correspondiente... y a visualizar cada vez el que te interese... Más o menos como se hace en un TabStrip, que diseñas las páginas unas debajo de otras, ocupando el mismo espacio... y visualizando la que corresponda con la pestaña seleccionada...

Saludos

En principio lo único que puede darte un error en la línea de Err.Raise es la cadena "CProducto", que no se corresponda con el objeto que ha provocado el error... los demás parámetros están perfectos.

Porque No creo que se te haya olvidado poner una línea de "Exit Sub" delante de la etiqueta "TrataError:"...

Saludos

A ver qué te parece esta solución:  en lugar de nominar a cada textbox con nombres diferentes, llámalos a todos igual modificando únicamente su índice (array de textboxes) y el evento _KeyDown le pones así:

Private Sub txt_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)
    If KeyCode = 13 Or KeyCode = 40 Then
        If Index < 40 Then             ' Suponiendo que tengas 40 campos...
            txt(Index + 1).SetFocus
        Else
            CmdAceptar.SetFocus    ' Envías el foco al botón de Aceptar los cambios, por ejemplo...
        End If
    ElseIf KeyCode = 38 Then
        If Index > 0 Then
            txt(Index - 1).SetFocus
        End If
    End If
End Sub

De esta forma no tienes que controlar el evento nada más que en una sola subrutina.

Saludos

A ver si este ejemplo resuelve tus problemas.
Saludos

Hace poco tiempo se hizo esta cuestión en el foro, y la respondió satisfactoriamente Jaume en http://foros.solocodigo.com/viewthread.php?tid=1717

Saludos

Bueno, únicamente quiero aportar (por si alguno no lo hiciera) que ese mismo método se agiliza y simplifica enormemente haciendo una matriz de tantos controles Texbox como columnas tenga el Datagrid.  Así para leerlos y para grabarlos es muy cómodo hacer un bucle
For n = 0 to 4
    Text1(n).Text = DataGrid1.Columns(n).Text
(o bien, DataGrid.Columns(n).Text = Text1(n).Text, en la actualización)
Next

Saludos