aja72

Te pongo un ejemplo de código que lee una tabla de la bbdd y escribe los resultado en un documento excel. Dim Cn As New ADODB.Connection Dim Rs As New ADODB.Recordset Dim xl As New Excel.Application Dim w As Worksheet Dim f As Long, c As Long...

Antes de nada quiero hacerte ver que el código que te pasé sirve para abrir la bbdd Access pero como aplicación independiente, es decir, una vez abierto el fichero mdb, la aplicación VB no tiene ningún control sobre el mismo puesto que se trata de...

Pon la condición que desees para seleccionar registros en la propiedad Report. RecordSelectionFormula antes de imprimir/visualizar el informe, sería algo así: Report.RecordSelectionFormula = "{TABLA.CAMPOTEXTO}='Condición' And...

Necesito más pistas, pásame el código con el que intentas establecer la conexión, ¿Tiene contraseña la bbdd?

Prueba a añadir el siguiente código en tu formulario: ' Esto al principio del formulario, en las declaraciones. Private Declare Function ShellExecute Lib "shell32" _ Alias "ShellExecuteA" _ (ByVal hwnd As Long, _ ByVal lpOperation As String, _ ByVal...

Te pongo una pequeña función que te devuelve las letras de los CD-ROM: Const DRIVE_CDROM = 5 Private Declare Function GetLogicalDriveStrings Lib "kernel32" Alias "GetLogicalDriveStringsA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As...

Es sencillo, utiliza la función Shell, sería algo así: Shell "c:\miarchivo.exe", vbNormalFocus No olvides valorar la respuesta.

Haz lo siguiente para establecer la conexión: * Pestaña proveedor: Microsoft Jet 4.0 OLE DB Provider. * Pestaña Conexión: Aquí debes poner ruta y nombre de tu base de datos Access protegida, usuario Admin y marcar 'Contraseña en Blanco'. * Pestaña...

Si no entiendo mal lo que quieres es escribir dos líneas en un TextBox multilínea. En tu caso sería algo así: Text77 = "" If Check1.Value = 1 Then Text77 = Text19 + " " + Text1 + " = " + Text37 If Check2.Value = 1 Then Text77 = Text77 + vbCrLf +...

No existe una instrucción expresa para hacer lo que pides, pero existe la colección Forms que recoge todos los formularios cargados en la aplicación. El siguiente código descarga todos los formularios (excepto el principal) abiertos por tu...