SoloCodigo

No me gustaba que las fechas tuvieran que salir en formato americano para cumplir las exigencias del ordenamiento...

Dándole vueltas se me ocurrió la solución: ¡Que el ListBox no lo ordene... dáselas ya ordenadas...!

Espero que también a tí te guste más esta segunda versión

Saludos

Estaba deseando probar tu MSC, pero no he conseguido ejecutarlo. Me da error porque no encuentra XPOCX.ocx, y no sé cómo registrarlo. He ejecutado previamente Proyecto1, porque veo que es necesario su .XpBs, pero ni por ésas...

Echame una mano, que ahora te necesito yo a tí.

Saludos nuevamente

Este proyecto contiene unas utilidades de configuración que te gustarán, a juzgar por lo que tú buscas.

Saludos

Es que aquí en España se dice (a lo mejor también por ahí usáis esta jerga...)
"Nunca te acostarás sin saber una cosa más..."

Un saludo

Vamos a ver si este programita que acabo de hacer específicamente para tí te produce tanta satisfacción como la que me ha dado a mí al conseguirlo...

Insisto en algo que aclaro en el fichero: tienes que cuidar de definir adecuadamente el "separador" que en tu fichero se utilice.

Saludos y suerte

Vamos a ver si consigo darte una solución a tu problema (si me deja Internet, porque ayer en dos ocasiones tuve esta respuesta escrita y me quedé con dos palmos de narices ante el letrero de "Página no responde"...)

' ---------------------------------------------

En tu documento de Word pones

....  el nombre es :  @TBOX01@ para efectos....

Esto te va a permitir luego sustituir esa "macro" @TBOX01@ por el contenido de un textbox o de un campo de tu base de datos...

Igualmente podrás poner otras "macros" (@TBOX02@, @TBOX03@, etc.) y hacer automáticamente las "macrosustituciones" correspondientes.

LUEGO GRABAS ESE DOCUMENTO EN FORMATO .RTF   A partir de ahora tu documento se llamará "Documento.rtf", que lo va a tratar Word de forma más ágil que un .doc

' ---------------------------------------------


En tu aplicación insertas este código, para ejecutarlo por ejemplo cuando pulses un CommandButton que se llame CmdImprimirWord


Dim w As New Word.Application
Dim cFich As String, wFich As String


Private Sub CmdImprimirWord()
   
    cFich = "NOMBRE DE TU PLANTILLA DE WORD.rtf"
    wFich = "Temporal.rtf"

    ' Copiamos tu plantilla en otro Fichero para el Informe y no machacar la plantilla
    FileCopy cFich, wFich

    CambiaMacros

    if Dir( cFich) <> "" then
        ' No hubo error al hacer las "macrosustituciones"
        w.Documents.Open (wFich)
        w.Caption = "MS-Word - Creando informe"
        w.Visible = True
        w.WindowState = wdWindowStateMaximize
        Set w = Nothing
        ' Borro el fichero temporal de informe
        Kill(wFich)
    End If
End Sub


Private Function CambiaMacros()
    Dim nHandle%
    Dim strBuffer As String
    Dim n As Long
    Dim strText As String
    Dim strPrem As String
    Dim strPost As String
    Dim cMacro As String
    Dim cStrB As String
    Dim cTit As String
    Dim lFallo As Boolean
     
    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%
   
    cStrB = "@"
    n = InStr(1, strText, cStrB)

    do while n <> 0
        If Mid(strText, n + 7, 1) = cStrB Then
            cTit = ""
            cMacro = UCase(Mid(strText, n, 8))
           
            If cMacro = "@TBOX01@" Then           ' Para sustituir por el primer textbox
                cTit = text1.text
                ' Aunque también podrías sustituirlo por un campo de una tabla: cTit = Db.Tab!NombreCliente...
            ElseIf cMacro = "@TBOX02@" Then       ' Para sustituir por el segundo textbox
                cTit = text2.text
'
'  Cuantos casos precises incustar en la plantilla
'

            Else
                ' Por si se ha incluido una "macro" mal redactada
                MsgBox("Revise la Plantilla :" & 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
        Else
            n = InStr(n + 1, strText, cStrB)
        End If

        strPost = Mid(strText, n + 8)
        strPrem = Left(strText, n - 1)
        If cTit <> "" Then
            strText = strPrem & cTit & strPost
            ' Busca si la plantilla tiene más "macros"
            n = InStr(n + 9, strText, cStrB)
        Else
            strText = strPrem & strPost
            n = InStr(n + 1, strText, cStrB)
        End If

        If Len(strPost) < 8 Then Exit Do
       
    Loop
   
    If lFallo Then
        ' Hubo error en una "macro"
        Kill(wFich)
        wFich = ""
        exit Function
    End If
   
    nHandle% = FreeFile
    Open wFich For Output As #nHandle%
    Print #nHandle%, strText
    Close #nHandle%
    CmdSust.Visible = False
   
End Function

' --------------------------------------

Espero te vaya bonito...

Saludos y suerte

Cada vez que generes un datareport termina con su datareport.close y con set datareport = nothing, porque en otro caso te quedan los temporales en disco duro y en memoria...

Saludos y suerte

No creas que con clone te vas a haces un recordset "Dolly" en otro formulario... (Acepta el mal chiste...)

Para manejar un ADO que ya tienes definido en Form1, desde cualquier otro formulario puedes aceder a él exactamente igual que si estuvieras en Form1, pero iniciando la línea con el formulario donde fue creado; es decir, pones

Form1.ADODB.....  con tal de que no lo hayas cerrado todavía, claro está.

También puedes crear un nuevo recordset, "clonado" mediante

Dim ADODB_Rec2 As Recordset
Set ADODB_Rec2  = Form1.ADODB.Recordset

y luego tratarlo como
Variable = ADODB_Rec2.Fields(1)

Saludos y suerte

Mira, Becker24:

El problema que tienes es que Visual a la variable de entorno App.Path la nombra como "C:Directorio de trabajo..."

Cuando tú llamas a la aplicación desde un equipo de cliente en red, va a buscar la base de datos en el disco C:, y claro está, no lo encuentra.

SOLUCION:
Crea un fichero (por ejemplo "Setup.mdb") con un campo de Texto de 50 caracteres, al que llamas "Ruta".  Este fichero lo copias en el servidor y en todos los clientes, en un directorio que se llame igual que el directorio del servidor en el que tengas el programa.

En el Servidor ese campo contendrá "C:Directorio de trabajo" (es decir, App.Path) y en el resto de equipos, el nombre del servidor y la ruta del programa (por ejemplo, "ServidorDirectorio de trabajo", o "F:Directorio de trabajo", según tengas definido el nombre del servidor).

Al iniciar el programa lees el fichero "C:Directorio del programaSetup.mdb" y defines una variable a la que llamas por ejemplo cMiPath = contenido del campo Ruta del Setup...  Ahora, donde ponías App.Path pon cMiPath, y santas pascuas...

Si generas un formulario al que sólo acceda el Administrador, en el cual pueda definir esa variable en cada uno de los clientes, miel sobre hojuelas.

Saludos y suerte

Supongo que hay mil maneras de solucionar esa cuestión; yo te digo cómo lo hago yo, garantizándote que va bien:

Cada usuario tiene un número y una clave de acceso; pues bien, con esa clave yo encripto una cifra, que se corresponde con el nivel de permiso que se le confiere. (Al desencriptar la clave desencriptamos también esa cifra, que la asignamos a una variable pública de nombre "NivelPermiso", pongamos por caso)

Cuando confecciones un formulario puedes poner, por ejemplo, el siguiente código:

if NivelPermiso < 3 then
CmdAñadir.Enable = False
CmdBorrar.Enable = False
etc.....
End If

o bien
if NivelPermiso = 1 then
txtSueldo.Locked = True
txtNIF.Locked = True
End If
si prefieres bloquear algunos campos para ciertos usuarios...

Esto te dará muchas posibilidades de "jugar" con cuantas combinaciones desees.

Incluso puedes bloquear el acceso a tal o cual formulario o subprograma:

If NivelPermiso < 6 Then
msgbox("Usted no tiene permiso para realizar esta opción")
Else
frmXXX.Show vbModal
End If

Si eres más ambicioso, desarrolla una tabla en la que indiques esas combinaciones para cada input del programa y cada tipo de Nivel... Pero ten la precaución de encriptar esa tabla, para que no te la pueda alterar un usuario listo...

Saludos y suerte

Prueba a poner:

..... in #" & desde & "# to #" & hasta & "#"

Si las fechas las tomas de un textBox, posiblemente precises poner esta otra definición:

..... in " & DateValue(""" & desde & """) & " to " & DateValue(""" & hasta & """)

Saludos y suerte