SoloCodigo

Algo de eso puede haber... repasaré la cfg de seguridad de i.e.

Gracias.

Saludos a todos.

Usualmente utilizo las funciones 'GetOpenFileName' y 'GetSaveFileName' de las api para obtener un cuadro de diálogo donde el usuario pueda especificar un nombre de archivo que abrir o guardar.

Lo que no consigo es que aparezca en el cuadro de texto para el nombre del archivo un nombre que yo especifique por defecto.  No es que esto sea un problema, pero es un detalle que me gustaría resolver.
 
Gracias por la atención.

Declara una variable pública de tipo Boolean en 'frmProg'. En el evento 'Click' del botón de cancelar asigna el valor TRUE a la variable:

Public indCancel as Boolean

Private Sub BotonCancelar_Click
indCancel = True
End Sub

Luego en el bucle introduce la siguiente línea:

If frmProg.indCancel Then Exit Do

Ten en cuenta que si al final no estableces frmProg = Nothing y frmProg está declarado a nivel de módulo, si intentas repetir el proceso, indCancel seguirá siendo TRUE, por lo que el bucle se terminará en la primera iteracción. Si es tu caso, haz lo siguiente:

If frmProg.indCancel Then
frmProg.indCancel = False
Exit Do
End If

También podrías incluir 'indCancel = False' en el evento Unload de frmProg.

Espero que te vaya bien...

Añade en tiempo de diseño al formulario un control image. Pon la propiedad Index = 0 para crear una matriz de controles. Luego cuando quieras añadir más controles Image hazlo de la siguiente forma:

Load Image1(n)      

Donde n es el índice del elemento que quieres añadir. Esto es, si solo tienes un control con índice 0, si ejecutas 'Load
Image1(1), añadirás al formulario otro control con índice 1, 'Load Image1(2) , añadirá otro control... Luego sólo tendrás que utilizar su método 'Move' para situarlo donde tú quieras.

Espero que esto te sirva.

Si lo único que necesitas es registrar la dll, puedes hacerlo desde un programa vb mediante la instrucción 'Shell'.

Shell "Regsvr32.exe :BibliotecaCADvbPerfil.dll"

También podrías incluir la llamada a RegSvr32.exe en un archivo de proceso por lotes.

Podrías también hacer lo siguiente:

Pasa la llamada al proceso (o el proceso mismo) al formulario en cuestión, luego muestra el formulario en forma modal.

También podrías usar el api 'SetWindowPos' para hacer que el formulario siempre se mostrara visible sobre todas las ventanas, aunque esto no impediría la ejecución de cualquier otro proceso.

Suerte.

Utiliza el método 'PaintPicture' del objeto Printer.

Printer.PaintPicture Picture1.Picture,0 ,0

A ver si te vale algo así:

Public Function PrtFile(ByVal HtmlF As String) As Boolean
   
    Dim intFileN As String, str1 As String
   
    On Error GoTo Error_PrtHtmlF
   
    intFileN = FreeFile
   
    Open HtmlF For Input As intFileN
   
    Do Until EOF(intFileN)
        Line Input #intFileN, str1
        Printer.CurrentX = 0
        Printer.Print str1
    Loop
   
    Printer.EndDoc
   
    PrtFile = True
   
Salir_PrtHtmlF:
   
    On Error Resume Next
   
    Close #intFileN
   
    Exit Function
   
Error_PrtHtmlF:
   
    MsgBox "(" & Err.Number & ") " & Err.Description, vbCritical, "Imprimir html"
   
    Resume Salir_PrtHtmlF

End Function

Una manera sencilla podría ser con dos controles data, uno para cabecera y otro para detalle, un control datagrid para las líneas del detalle y varios controles textbox para los datos de la cabecera.

Esto así a grandes rasgos... suerte

Sí señor, tienes toda la razón.
Estas cosas está muy bien saberlas...Un saludo.

Que yo sepa, lo que pretendes no es posible con campos autonuméricos. Por mucho que comprimas la BD no vas a lograr reposicionar el contador.

Aunque a veces pueda resultar muy cómodo,yo personalmente evito este tipo de campo por estas cosas, y es que eso de que no se pueda modificar el valor del campo en ocasiones puede ser una gaita. Sin embargo, en algún sitio se tendrá que almacenar el último valor del campo... Tal vez entre alguna de las tablas ocultas (MSysAces,MSysObjects, etc,...) y el registro de windows esté la respuesta, pero realmente no tengo ni idea.

Lamento no poder ayudar más.

El parámetros 'Bloqueos' del método 'OpenRecordset' te permite abrir el recordset con el bloqueo que desees.

Set ObjetoRs = ObjetoDb.OpenRecordset (Origen, Tipo, Opciones, Bloqueos)

Valores para 'Bloqueos':

dbReadOnly: Previene que los usuarios hagan cambios al Recordset (predeterminado en espacios de trabajo ODBCDirect).

dbPessimistic: Utiliza el bloqueo pesimista para determinar cómo se pueden hacer cambios al objeto Recordset en un entorno multiusuario. La página que contiene el registro que está modificando está bloqueada mientras utiliza el método Edit (predeterminado en espacios de trabajo Microsoft Jet).

dbOptimistic: Utiliza el bloqueo optimista para determinar cómo se pueden hacer cambios al objeto Recordset en un entorno multiusuario. La página que contiene el registro que está modificando está bloqueada mientras se ejecuta el método Update.

dbOptimisticValue: Utiliza la concurrencia optimista basándose en valores de fila (sólo espacios de trabajo ODBCDirect).

dbOptimisticBatch: Activa la actualización optimista por lotes (sólo espacios de trabajo ODBCDirect).

Espero que esta info te sea de ayuda.