SoloCodigo

Para que te lo curres un poco (pero que muy poco...)
Te adjunto justamente lo que tú quieres, y mucho más..., sólo que aplicado a un FlexGrid; no te será difícil adaptarlo a tus necesidades.

Hola, Sun_Ice:

Te adjunto un código muy didáctico para que puedas usar en el DataReport campos de diferentes tablas, según las tengas definidas en los DbCommand del DataEnvironnment.  Espero te sea suficiente.

Para que te funcione en tu equipo tendrás que definirle adecuadamente la variable "RutaBiblio" en Form1, dependiendo de dónde tengas ubicado el fichero "Biblio.mdb".

Saludos y suerte

No comprendo el título de tu mensaje: reviso tu historial en el foro y veo que sólo constan consultas sobre DOS temas: el primero parece que te lo resolvió HurryCrack de forma satisfactoria; el segundo (son dos mensajes sobre el mismo tema) se refiere al error "El controlador de evento del cliente llamo un metodo no reentrante en el proveedor" que te aparece, y que posiblemente al resto de miembros del foro les ocurra lo mismo que a mí... que no tenemos NPI porque no lo hemos visto en la vida y no hemos encontrado relación con su origen.  Yo te aseguro que me interesé en investigarlo, sin resultados satisfactorios...

El 50 % de preguntas solucionadas no es, pues, motivo para sentir frustracción, pienso yo.  Y a partir de ahora, con esta ayuda que te ofrece angelescj alcanzas un 66 % de resultados satisfactorios que para sí lo quisieran los más optimistas... porque sería ilusorio esperar que se te resolviera el 100 % de los problemas.  Date una vuelta por otros foros y compara...; si encuentras algo mejor te devolvemos la diferencia...

Saludos y fuera negruras!!!

Si declaras esta API

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
    (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _
    ByVal lpParameters As String, ByVal lpDirectory As String, _
    ByVal nShowCmd As Long) As Long

no tendrás nada más que ejecutar lo siguiente:

Dim sLink As String  
sLink = "direccioncorreo@hotmail.com"
ShellExecute 0, vbNullString, "mailto:" & sLink, vbNullString, vbNullString, vbNormalFocus

Saludos

Yo creo que sólo hay 3 formas de seleccionar una opción de un menú: primera: el click; segunda: cuando el menú está desplegado puede usarse la tecla alternativa si está definida o el carácter inicial del nombre de la opción, y como tercera posibilidad, subir o bajar a través del menú mediante las flechas de cursor y pulsar [Intro] sobre la opción que se desea seleccionar.

EN TODOS LOS CASOS GENERA EL MISMO EVENTO; es decir, que no es clara la necesidad de conocer qué opción se ha seleccionado... (digo yo...)

Efectivamente, yo también tengo problemas con el correo, incluso me cuesta conectarme con Messenger.
Yo tengo la conexión ADSL de Telefónica, a quien voy a presentar el problema...

Intento adjuntar un fichero de 6 Kb

Aleluya... Esta vez ya salió...!!!

Significa que no existe el fichero con el que pretendes alimentar el report. Probablemente no tengas bien definida la ruta de acceso...

Saludos y suerte

No sé si he comprendido bien tu problema. Por si acaso te adjunto este código que he preparado específicamente para tu caso.

Saludos

Voy a darte un consejo práctico:
Abre Excel (directamente, o mediante las órdenes oportunas en VB).
Ejecuta >Herramientas >Macro > Grabar nueva macro
Haz todos los pasos que pretendas programar en VB
Cierra la macro pinchando en Detener la grabación.

Nuevamente ejecuta >Herramientas >Macro >Macros  Marca el nombre de la macro que acabas de crear (Macro1 si tomaste la que te ofrece por defecto) y pulsa Modificar

Ahora selecciona todo el texto que te interese, y lo incorporas en el código de tu programa... Sólo tendrás que hacer alguna pequeña modificación.

Saludos y suerte

Con esto queda demostrado lo bueno que es participar... porque a los que nos gusta dar, también nos gusta recibir... Y hoy Majuhemo me ha dado una solución que ni siquiera se me había ocurrido investigar, porque ya tenía yo mi solución que "yo creía que era buena hasta que vi la tuya..."

Gracias y saludos

Hola Angeles y Jessuss (aunque mi respuesta parece que no le va mucho a éste...)

Yo puede decirse que tengo precisamente la especialidad de hacer informes con Word desde VB, porque la mayoría de mis aplicaciones van dirigidas a la confección de informes personalizados (Alta Hospitalaria, por ejemplo)

Te adjunto una plantilla, que el usuario actualiza y modifica con Word siempre que quiera. Luego toma la plantilla que le convenga y se rellena automáticamente el informe haciendo sustitución de eso que llamo pseudomacros, y que consisten en 6 caracteres precedidos y seguidos de @.  Por ejemplo @PACNOM@ para Nombre del paciente, @PACDOM@ para el Domicilio del paciente....

El usuario tiene una lista de todas las pseudomacros que puede incluir en cada plantilla, y en todo caso al hacer la conversión se preve que pueda haber incluido algún grupo NO RECONOCIBLE...

La conversión la hago así:

    lFallo = False
    MousePointer = vbHourglass
    strText = ""
    nHandle% = FreeFile
    Open wFich For Input As #nHandle%
    Do While Not EOF(nHandle%)
        Line Input #nHandle%, strBuffer
        strText = strText & strBuffer & vbCrLf
    Loop
    Close #nHandle%
 
    If recPac!idsexo = 1 Then
        cSex = "o"
    Else
        cSex = "a"
    End If
   
    Do While True
        n = InStr(strText, "@")
        If n = 0 Then Exit Do
       
        cTit = " "
        If Mid(strText, n, 1) = "@" Then
            cMacro = UCase(Mid(strText, n, 8))
            If cMacro = "@ANTFAM@" Then
                If Trim(frmPaci.txtAf(0).Text) <> "" Then
                    cTit = frmPaci.txtAf(0).Text
                End If
                If Trim(frmPaci.txtAf(1).Text) <> "" Then
                    cTit = cTit & "; " & frmPaci.txtAf(1).Text
                End If
            ElseIf cMacro = "@ANTPER@" Then
                If Trim(frmPaci.txtAp(0).Text) <> "" Then
                    cTit = frmPaci.txtAp(0).Text
                End If
                If Trim(frmPaci.txtAp(1).Text) <> "" Then
                    cTit = cTit & "; " & frmPaci.txtAp(1).Text
                End If
                If Trim(frmPaci.txtAp(2).Text) <> "" Then
                    cTit = cTit & "; " & frmPaci.txtAp(2).Text
                End If


ELSEIF cMacro.........
Reviso a ver si se encuentra cada una de las macros que tengo diseñadas y defino por qué texto ha de ser sustituida...
               
                If cTit = "" Then
                    x = MsgBox("El documento de 'Infor-Altas' estaba en blanco.", vbInformation)
                    cTit = " "
                End If

                recInf.Recordset.Delete
                recInf.Recordset.Update
                recInf.Recordset.Bookmark = recInf.Recordset.LastModified
               
            Else
                x = MsgBox("Revise la Plantilla " & SelFile.FileName & " :" & Chr(10) & _
                         "Ha introducido como ""macro"" la palabra " & cMacro & Chr(10) & _
                         "y no ha diseñado la SQL de conversión para tal ""macro"".", vbCritical)
                lFallo = True
                Exit Do
            End If
        End If

'  AQUÍ SE SUSTITUYE LA PSEUDOMACRO POR LO QUE CADA UNA SIGNIFICA...        
        strPost = Mid(strText, n + 8)
        strPrem = Left(strText, n - 1)
        strText = strPrem & cTit & strPost

    Loop
   
    If lFallo Then
        DeleteAFile (wFich)
        wFich = ""
        MousePointer = vbDefault
        Exit Function
    ElseIf Dir(tFich) <> "" Then
        DeleteAFile (tFich)
    End If
   
    nHandle% = FreeFile
    Open wFich For Output As #nHandle%
    Print #nHandle%, strText
    Close #nHandle%
    MousePointer = vbDefault

Espero que puedas adaptar estos datos a tu programa y que la idea te sirva...

Y en todo caso sabes que estoy a tu disposición, con mi afectuoso saludo

Lo hago frecuentemente. Y uso esta rutina:

1.- Establezco la condición de consulta
2.- Con la SQL adecuada leo de la DB los registros que cumplan esa condición, abriendo un Adodc con el que lleno y presento un DataGrid
3.- Modifico, borro o añado registros en el DataGrid (aunque con una rutina externa al DataGrid).
4.- Cuando activo el boton de [Actualizar] o [Grabar] hago lo siquiente:
4a.- Ejecuto una SQL con DELETE para todos los registros que cumplan la condición de la consulta.
4b.- Paso a la DB todos los registros que tengo en el recordset del Adodc del DataGrid
4c.- "Updateo" la DB

Si activo el botón de [Cancelar], simplemente quito el DataGrid y cierro el Adodc.  Todo queda como estaba.

Lo peor que puede pasar es que, estando en red, intenten actualizar los mismos datos dos clientes al mismo tiempo... ¡¡¡Siempre ocurrirá lo que ocurre siempre!!!: que prevalecerán los datos del último que actualizó, que por otra parte es lo lógico.

Saludos y suerte

Prueba este código en el BeforeColUpdate

If InStr(1, DbGrid.Columna(n).Value, ".") Then DbGrid.Columna(n).Value = Val(DbGrid.Columna(n).Value)

De esta forma tú puedes introducir punto y se convertirá automáticamente en coma, como le gusta a Bill Gates y discípulos..., que ya son ganas de "jorobar la marrana" teniendo el teclado numérico con punto y sin coma...

Saludos y suerte