SoloCodigo

Yo utilizo esa rutina para hacer las copias de seguridad, y puedo asegurarte que hasta que no termina el proceso mi teclado y mi mouse están bloqueados...
Probablemente sea cosa del Windows 2000, porque en XP va bien.

Lamento daros una mala noticia: hace tiempo que hice pruebas con este ocx. Efectivamente su rapidez deslumbra, pero además de generar un fichero .zip que no interpreta WinZip, el propio ActiveZipper lo descomprime MAL!!!
No sé si ocurre sólo en ficheros largos o si existe otro motivo por el que da fallos: he repetido las pruebas, por si se tratase de una versión corregida, pero me ha vuelto a fallar, con un fichero .mdb; una vez descomprimido Access no lo reconoce.
Espero no tomes mi respuesta como una "revancha" o algo parecido. Ojalá me hubiera servido...

Supongo que lo que buscas es bloquear el input de datos MIENTRAS EJECUTAS UN PROCESO, y que cuando éste termine se desbloqueen el teclado y el mouse automáticamente...
Prueba esto (yo lo uso mientras ejecuto las copias de seguridad, con éxito garantizado...)

' ------------
' EN UN MODULO
' ------------

' Para desactivar el teclado mientras se ejecuta un proceso externo
    Public Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessID As Long) As Long
    Public Declare Function GetExitCodeProcess Lib "kernel32" (ByVal hProcess As Long, lpExitCode As Long) As Long
    Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
    Const STILL_ACTIVE = &H103
    Const PROCESS_QUERY_INFORMATION = &H400

    Public Sub ExecCmdNoFocus(ByVal CmdLine As String)
        'Esperar a que un proceso termine,
        'La ventana se mostrará minimizada sin foco
        Dim hProcess As Long
        Dim RetVal As Long
        'The next line launches CmdLine as icon,
        'captures process ID
        hProcess = OpenProcess(PROCESS_QUERY_INFORMATION, False, Shell(CmdLine, vbMinimizedNoFocus))
        Do
        'Get the status of the process
        GetExitCodeProcess hProcess, RetVal
        'Sleep command recommended as well
        'as DoEvents
        DoEvents
        Sleep 100
        'Loop while the process is active
        Loop While RetVal = STILL_ACTIVE
    End Sub



' -------
' LLAMADA
' -------

Private Sub Rutina...
'
'
'
ExecCmdNoFocus (Proceso a ejecutar...)
' ------------------------------------
'
'
End Sub


Saludos y suerte, a ver si he dado con tus necesidades...

Hola, Jose:

Yo también trabajo específicamente con programas médicos, y no me preocupa el que se actualicen automáticamente las consultas.  Porque siempre tendrás una posibilidad de información errónea, o mejor dicho una información incompleta, si realizas la consulta instantes antes de que se introduzca la información... Y eso no podrás evitarlo nunca.

El caso que me preocupa un poco es cuando se confecciona el informe de alta hospitalaria, que toma automáticamente toda la información de antecedentes, de pruebas complementarias realizadas, de datos de procedimientos diagnósticos y quirúrgicos realizados, y del tratamiento instaurado, así como de los consejos para próxima revisión; ese informe se confecciona en Word, a base de cumplimentar automáticamente unas "macros" que toman los datos de los respectivos campos de la database.
Si en ese momento un médico decide realizar una modificación, puede afectarse una "macro" y resultar un informe incorrecto; pero realmente es de su responsabilidad el revisar el informe antes de firmarlo, sobre todo si sabe que él mismo ha hecho modificaciones de última hora.

En todo caso tienes la posibilidad de refrescar el flexgrid cada X segundos, mediante una rutina con Timer1.

Saludos

Perdona, pero no me siento capacitado para darte solución a tu problema: lo que yo te apuntaba se refería al refresco del recordset, que puede dar problemas si no liberas la memoria; pero este tipo de instrucciones respecto a imágenes no las he usado nunca e ignoro por qué no funcionan...

Que se te solucione el tema pronto. Saludos

Ojalá que todos tus problemas sean como éste:

CmdControl.Visible = False

(CmdControl sería el nombre de TU control)

Si pones CmdControl.Enable = False, le dejas visible, pero difuminado e inactivo.

Hasta otra, saludos

Te adjunto un código que te explica perfectamente cómo solucionarlo.
Saludos

Hola, Miguel, de nuevo:

Me he encontrado esta utilidad en Canal #Visual Basic, y me he acordado de tí... Creo que puede ser la solución a tu problema, presentando los dos campos en dos columnas con un separador...

Hasta otra.

Hola Lugh:

El recordset no pide parámetros: tú se los proporcionas...

El parámetro lo pides mediante un textbox, por ejemplo

Label1.caption = "Introduzca el precio límite:"
 y a su lado insertas el textbox para introducir ese valor.

Luego confeccionas la SQL:
Set rs = "Select * From Tabla1 Where precio > '" & Text1.text  & "'"
rs.Requery

Y ya tienes un recordset con los registros en los que el precio sea superior al valor introducido en el textbox.

Saludos

Cuando tú expones el objeto Data Report, en las Herramientas tienes un control con la sigma mayúscula (símbolo de Sumatoria): ése es el RptFunction. Pínchale y expándele como haces con un combobox, y en sus propiedades encontrarás entre otras las de DataField y FunctionType...

Cuando veas las posibilidades que tienes de usar funciones estadísticas, te animarás a utilizar el Data Report para cosas que ni te imaginabas...

Y permíteme que te repita que hagas las ampliaciones de tus temas usando el mismo mensaje, porque si cada vez creas un mensaje nuevo parece que es que el tema anterior ya quedó resuelto... Yo he abierto este nuevo mensaje pensando que tenías otro problema, y resulta que me lo diriges a mí, sin que yo tenga por qué sospecharlo...  Vamos, que te expones a que nadie te conteste.

Un abrazo para que salgas adelante.

Prohibido deprimirse...

Quita ese campo de la SQL, que creo que no es "soportable", y en el diseño del report (Dsr) añades una rptFuncion, la colocas donde te interese (donde ponías el campo problemático), le das el formato que quieras y en sus propiedades defines DataField = minutos_trab (mejor, pinchas en la flecha de la derecha para seleccionar el campo) y en FunctionType seleccionas 0-rptFuncSum.

Si no te funciona así es que tienes otro error en otro campo...

Y ¡¡¡arriba los corazones!!! que a Visual hay que dominarlo sin permitir que él nos coma el coco.

Tienes muchas formas de hacer un reporte, usando por ejemplo la función Shell para emplear programas externos; pero hay dos formas muy ágiles, sencillas y útiles: Word y Excel.

Si no tienes que hacer uso de fórmulas te puede servir Word, pero yo te aconsejo que te metas directamente con Excel, con lo que podrás presentar hojas con todo lujo de detalle y metiéndole cuantas fórmulas precises para que trabaje él...

Bueno, esto siempre que tengas problemas con Crystal, que tampoco veo por qué ha de crearte conflictos.

Y UN CONSEJO, CHINITA: No abras 3 mensajes para un mismo tema, que así es muy difícil seguirte: ve añadiendo "RESPUESTAS" dentro del mismo mensaje.  Un abrazo.