INSTRUCCIONES DoCmd. VBA ACCES

INSTRUCCIONES DoCmd. VBA ACCES

     

   

           El objeto DoCmd 

           El objeto DoCmd. tiene una serie de  métodos que podemos utilizar como atajos que nos facilita VBA access, para genera código de una forma rápida. A continuación os facilitaré las que suelo utilizar casi a diario para generar formularios que realicen acciones con BBDD. Si alguien lo programo antes, para que vamos a perder el tiempo.
Si tu te encuentras los cimientos de la casa ya realizados y los puedes utilizar te ahorras mucho tiempo.

• Aplicar filtro a una tabla abierta:

• DoCmd.ApplyFilter, "[Nombre Fila]= 'Condición' " 

• Eliminar tabla:

• Docmd.DeleteObject acTable, "Nombre Tabla" 

• Abrir tabla:

• DoCmd.OpenTable "Nombre Tabla"

• Cerrar Tabla:

• DoCmd.Close acTable, "Nombre Tabla"

• Renombrar Tabla:

• DoCmd.Rename "Nuebo nombre", acTable, "Tabla antigua"

• Modificar un tipo de dato:

• DoCmd.RunSQL "Alter table [NombreTabla] Alter Column [NombreColumna]    
• Numeric"                    (pasa a número)
• Text(nº caracteres)"   (pasa a texto)        
• Date"                           (fecha)

• Abrir Consulta:

• DoCmd.OpenQuery, "NombreConsulta"

• Cerrar Consulta:

• DoCmd.Close acQuery, "NombreConsulta"

• Importar archivo de Exceel a una Tabla Access:

• DoCmd.TransferSpeadsheet acImport, acSpreadsheetTypeExceel12xml, "NombreNuevaTabla",  "RutaAcceso\NombreArchivoQueImportamos.XML", True, "RangoCeldasQueDeseamosImportar"

• Exportar Tabla Access a Exceel:

• DoCmd.TransferSpeadsheet acExport, acSpreadsheetTypeExceel12xml, "NombreTablaQueExportamos", "RutaAcceso\NombreArchivoQueExportamos.XML"

• Exportaciones e Importaciones guardadas:

• DoCmd.RunSaveImportExport "ImpotaciónGuardada"
• DoCmd.RunSaveImportExport "ExportaciónGuardada"

• Crear Tabla:

• DoCmd.RunSQL "Create Table [NombreTabla] (Fila1 Text(5). Fila2 Date, Fila3 Numeric, Fila4 Text(10)........)"

• Insertar fila en una tabla existente:

• DoCmd.RunSQL "Alter Table [NombreTabla] ADD Colum Fila5 Text(5)"

• Limpiar Tabla:

• DoCmd.RunSQL "Delete * From [NombreTabla]"

• Anexar datos a una Tabla existente:

• DoCmd.RunSQL "Insert Into [TablaReceptoraDatos] Select [TablaOrigen].* From [TablaOrigen]"

• Anexar datos a una Tabla existente cargándolos desde variables:

• DoCmd.RunSQL "Insrest Into [TablaReceptoraDatos] (fila1,fila2,fila3) values (' " & variable1 &  " ' , ' " & vriable2  &  " ' , ' " & variable3 & " ' ); "

• Desactiva los mensajes de advertencia por consultas anexadas, eliminación, creación tabla....

• DoCmd.SetWarnings False 

• Activar los mensajes de advertencia por consultas anexadas, eliminación, creación tabla....

• DoCmd.SetWarnings True

• Abrir un informe
• Docmd.Openreport "nombre Informe", acViewReport,"","",AcNormalWiew

• Filtrar un informe

• Docmd.Aplyfilter , "[nombre Fila] = ' " & variable & " ' "