SoloCodigo

Hola javirues.

¿Has visto las últimas respuestas al tema?

A ver si el lunes te digo algo, que para mi acaba de comenzar el finde...

Chao.

Una cosa que se me quedaba atrás:

Para hacer lo que te comentaba de guardar el documento con un nombre (o para abrirlo) podrías seguir uno de estos dos caminos:

1- Tener un documento en blanco y abrirlo con 'ShellExecute' (puedes tener un modelo en algún sitio y cuando llega el momento lo copias con el nombre que tu quieras).

2- Usar la automatización de word.

Suerte.

Private Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long

Private Sub XXXX( )
.
.
.

    Dim str1 As String
    str1 = String(255, Chr(0))
    Dim lngRc As Long
    lngRc = GetSystemDirectory(str1, 255)
    If lngRc > 0 Then str1= Left(str1, lngRc) & ""

If BuscarCopiar("MiFile.aaa", str1 & "FileCopiado.xxx", "C:") Then
        MsgBox "OK"
    Else
        MsgBox "KO"
    End If

.
.
.

End Sub

Public Function BuscarCopiar(ByVal FileName As String, ByVal Destino As String, Optional ByVal Root As String)
'FileName = nombre de archivo pc (sin ruta) a buscar
'Destino = nombre de archivo pc (con ruta) destino
'Root = opcional, carpeta desde la que comenzar a buscar
'Esta función puede tomarse su tiempo, así que paciencia

    Dim sngMouseP As Single
    sngMouseP = Screen.MousePointer
    Screen.MousePointer = 11
   
    On Error GoTo Err_Buscar
   
    Dim strDires() As String, strDir As String
    Dim lng1 As Long, lng2 As Long, lng3 As Long
    Dim lngCta As Long, str1 As String, IND1 As Boolean
   
    If Root = "" Then Root = App.Path
    If Right(Root, 1) <> "" Then Root = Root & ""
   
    ReDim strDires(1)
    strDires(0) = Root
   
BucleDir:
    For lng1 = lng2 To lng3
        Root = strDires(lng1)
        strDir = Dir(Root, vbDirectory)
        Do While strDir <> ""
            If strDir <> "." And strDir <> ".." _
            And (GetAttr(Root & strDir) And vbDirectory) = vbDirectory Then
                lngCta = lngCta + 1
                str1 = Root & strDir & ""
                ReDim Preserve strDires(lngCta)
                strDires(lngCta) = str1
                IND1 = True
           End If
           strDir = Dir
        Loop
    Next lng1
    lng3 = UBound(strDires)
    lng2 = lng1
    If lng2 <= lng3 And IND1 Then GoTo BucleDir
   
    IND1 = False
   
    For lngCta = 0 To UBound(strDires)
        strDir = Dir(strDires(lngCta) & FileName)
        If strDir <> "" Then
            FileName = strDires(lngCta) & FileName
            IND1 = True
            Exit For
        End If
    Next lngCta
   
    If IND1 Then
        FileCopy FileName, Destino
        BuscarCopiar = True
    End If
   
Exit_Buscar:
    Screen.MousePointer = sngMouseP
    Exit Function
   
Err_Buscar:
    MsgBox "(" & Err.Number & ") " & Err.Description _
    , vbCritical, "Error buscar y copiar"
    Resume Exit_Buscar

End Function

Mira, ahí tienes el trabajo hecho.
No es que hayas pedido que alguien lo hiciera por ti, pero es como si lo hubieses hecho...
Intenta ser más concreto en tus consultas y nunca pretendas obtener de un foro el código que te resuelva tu aplicación. Claro que para mi es mucho más sencillo escribir un ejemplo que intentar explicar el funcionamiento de una instrucción, pero una cosa es escribir un ejemplo y otra resolverte el problema (por eso la gente suele cobrar).  Sobre estos temas se ha hablado mucho en otros posts y prefiero no volver sobre el tema.

En fin... una y no más.

Suerte.

Hola abm.

Mira lo pretendes a grandes rasgos se puede hacer así:

- Utiliza la función Dir especificando el directorio raíz para el caso y como atributos vbDirectory[/] para obtener en una matríz el conjunto de subdirectorios del directorio que especifiques (en tu caso C:).

- Realiza bucles hasta obtener el total de los subdirectorios.

- Recorre la matriz en la que almacenaste los directorios y  vuelve a utilizar 'Dir', esta vez especificando el archivo que buscas.

- Si lo encuentras, sal de bucle y ya sólo te queda copiarlo a donde quieras con
<b>FileCopy.

- Si quieres copiarlo al directorio del sistema y no sabes cúal es, utiliza la api
GetSystemDirectory.

Suerte.

Hola RUBEN2004.

No he examinado a fondo el código que envías ni la lógica de tu aplicación, pero así a simple vista, el problema puede ser que siempre estás utilizando la misma variable recordset  (rsBD)  para obtener tus registros de la bd, con lo cual, lógicamente sólo vas a tener un recordset y no dos como tu pretendes. Si quieres manejar a la vez dos recordsets, utiliza dos variables.

De todas formas, y repito que así a simple vista, debe haber otras formas más sencillas de hacer lo que quieres. Por ejemplo, las uniones de las tablas que utilizas, entre otras cosas provocan una consulta muy pesada. Te compensa utilizar varios recordsets...

Suerte.

Hola javirues.

Para ejecutar un proceso de forma síncrona, utiliza algo asín:

Private Const STILL_ACTIVE = &H103
Private Const PROCESS_QUERY_INFORMATION = &H400
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessID As Long) As Long
Private Declare Function GetExitCodeProcess Lib "kernel32" (ByVal hProcess As Long, lpExitCode As Long) As Long
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Public Sub SincMiProceso(ByVal ExeFile As String)

    On Error GoTo Err_Sinc
   
    Dim lngPid As Long, lngRc As Long
    lngPid = OpenProcess(PROCESS_QUERY_INFORMATION, False, Shell(ExeFile, vbNormalFocus))
    Do
        GetExitCodeProcess lngPid, lngRc
        Sleep 100
        DoEvents
    Loop While lngRc = STILL_ACTIVE
   
    Exit Sub
   
Err_Sinc:
    MsgBox "Fallo sincronizando pgm '" & ExeFile & "'." & String(2, vbCrLf) _
    & "(" & Err.Number & ") " & Err.Description, vbCritical, "Sincronizar"

End Sub

También podrías hacer un 'Open' del archivo y supervisar el error que se producirá si el fichero está abierto.

Espero que te sirva.
Abur.

Ok mutanab.

Aunque no es relativamente importante, ojo con el control de años bisiesto que haces, pues no es del todo correcto, no todos los años múltiplos de 4 son bisiestos... los años múltiplos de 100 no son bisiestos, excepto si son también multiplos de 400.

Cosas de los ajustes de calendario...

Chao.

Hola mutanab.

Ahora mismo no sé si existe tal función en vb, pero puedes crear tú una de este estilo:

Public Function CvtDiasAFecha(Byval Dias as Integer) As String
Dim intMes As Integer, intDia As Integer
Dim varDiasMes() As Variant
varDiasMes = Array(31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31)
If DateDiff("d", "1/2/" & Year(Now), "1/3/" & Year(Now)) = 29 Then
varDiasMes(1) = 29
intDia = 366
Else
intDia = 365
End If
If Dias > intDia Then Exit Function
Dim int1 As Integer
For int1 = 0 To 11
If Dias <= varDiasMes(int1) Then
intMes = int1 + 1
intDia = Dias
Exit For
Else
Dias = Dias - varDiasMes(int1)
End If
Next int1
CvtDiasAFecha = intDia & "/" & intMes & "/" & Year(Now)
End Function

Simple, ¿no? Puedes observar que la función funciona sólo para el año actual sin aceptar más de 365 ó 366 días segun el año sea o no bisiesto. Si quieres que pueda calcular fechas de otros años, ya sabes... te tendrás que currar algo más la función, que no se puede pedir todo hecho.

De todas formas, si te enterás de si ya existe alguna función para hacer esto, no dudes en hacerlo saber al foro.

Suerte.

Otra cosa que se me olvidaba comentar por si acaso...

Obten las coordenadas X e Y desde el método 'MouseDown' del control ListView y almacénalas en variables para usarlas luego con HitTest.

Hola Ce5aR.

Realmente no comprendo muy bien que es lo que pretendes hacer.

Supongo que lo que quieres es almacenar en una matriz una serie de valores... fíjate en este ejemplo:

Dim var1() as Variant  'Para este caso es importante lo de definir como variant la matriz
var1 = Array(1,2,3,4,5,6,7,8)
'Ya está, con esto tienes en la dimensión 0 de la matriz el 1, en la 1 el 2, etc.

Suerte.

Hola Cesar.

No conozco el presto863 del que hablas... Si permite algun tipo de automatización entonces hacer lo que dices, no debe ser difícil. También podría ser que la aplicación incluyera alguna api, ocx o dll activeX, pero no lo sé, consulta los manuales que tengas.

Como mucho, así sin más, podrías abrir la aplicación presto desde vb (shell o shellexecute), o incluso controlar si está abierta... pero interactuar con ella, no sé.

Te reitero que consultes los manuales que tenga la aplicación y compruebes si cuenta con alguna interface para el progrmador.

Suerte.

Kaixo FRIJU.

Supongo que el datagrid está enlazado con un control data... Prueba con algo así:

Adodc1.Recordset.AddNew

Esto prepara el recordset para dar un alta y añade una fila en blanco al final del datagrid.

El código yo lo colocaría en el evento RecordChangeComplete del control ado. Este evento se desencadena una vez que el contenido de uno o varios registros del recordset del control cambian.

Espero que esto sea lo que necesitas.

Por cierto,¿has mirado los u2u?

Agur.