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 & " ' "

EMPEZAR A PROGRAMAR

En mi caso La verdad he empezado más tarde que pronto. De joven estudié administrativo, durante mis estudios ya estaba trabajando en un vídeo club. Si, soy de esa generación en la que existía VHS e incluso conocí el BETA. Bueno voy al grano, cuando terminé de estudiar ya estaba acostumbrado a ganar dinero y en aquellos momentos la construcción estaba en pleno auge y la verdad no me arrepiento, estuve 12 años  trabajando como albañil primero y al final como encargado de obra. Gané dinero y los más importante me gustaba mi trabajo.

Pero llegó la crisis, aguanté como pude y resistí, pero al conocer a mi pareja y residir ella en otra ciudad en la otra punta de España decidí, en plena crisis y teniendo trabajo, irme a vivir a su ciudad y empezar de 0. Y la verdad tan bien me ha salido bien, estoy felizmente casado y trabajando, que no es poco.

Al llegar a Sevilla dedique 12h al día hasta encontrar trabajo, en plena crisis en 3 meses estaba trabajando. Desenterré mi titulo de administrativo y me puse las pilas en exceel y ACCES, tanto fue así que  empecé a programar en VBA Acces. 

Tras un año aprendiendo funciones de Excel y posteriormente a programar en VBA Acces me puse con JAVA. Tengo 40 años en este momento y me he propuesto empezar de 0 una vez más, guardo mis apuntes en una web que facilito gratuitamente, porque soy de esos ilusos que creen en la enseñanza gratuita y universal.

Estoy aprendiendo html, java, utilizando  VBA Acces  en mi trabajo diario. Quiero empezar un grado superior de DAW (desarrollo aplicaciones Web), continuar por la universidad y por el camino mantener mis webs. Soy de los que creen firmemente que tan solo se deja de luchar cuando te mueres.  Si me seguís os iré pasando mis apuntes. Muchas gracias a todos/as.

COMPARAR DOS STRING CON UN IF VBA ACCES USANDO LIKE

         ¿COMO COMPARAR DOS STRING EN VBA ACES?

¿PARA QUE COMPARAR DOS STRING?

   En ocasiones nos resulta necesario compara dos cadenas de texto con un if. Sé que parece que esto se puede hacer desde vista diseño en ACCES. Pero en mi caso necesitaba saber cuantas veces se repetía un registro de dirección en una tabla utilizando dos parámetros que se encontraban en el mismo campo.

           Si conocemos parte de la dirección y el código postal, que me diga todos los registros que coincidan. Por lo que en esta tabla deseo saber todas aquellas direcciones que contenga Lopez y pertenezca al 41008. A demás necesito introducir los datos por un msg box.

Id	dirección
1	c/ Lopez Perea del remedo,7 41008
2	c/ Lopez Perea del remedo,8 41008
3	c/ Lopez Perea del remedo,8 41008
4	c/ Lopez Perea del remedo,10 41008
5	c/ lopez, 10 41008
6	c/ de lopez 1, 41008
7	ddddddddd 41009
8	eeeeeeee 41111

¿COMO UTILIZAR EL OPERADOR Like en VBA?

Para esto existe el operador de comparación Like.

•       Declaramos dos variable boleana y dos String donde guardar nuestos inputbox.

Dim Comparador1, Comparador2 As Boolean

Dim calle, cp As String

• .       Ahora Cargamos los datos del InputBox en las variables calle y cp

direccion = InputBox("dime direcciín")

cp = InputBox("dime el CP")

•        Like nos regresara un true o false por lo que es fácil guardar este resultado en un bolean. En mi caso genere un recorset que se llama MIRECORSET (original el nombre. ¿no?).El primer dirección se refiere a la fila

Comparador1 =  MIRECORSET! direccion Like dirección

Comparador2 = MIRECORSET! dirección Like cp

If Comparador1 = true and Comparador2 = true Then

‘aquí escribe tu codigo

End if

TIPOS DATOS EN UNA TABLA ACCESS

TIPOS DATOS EN UNA TABLA  ACCESS

  Tal y como ya sabréis una de las cosas más importantes a la hora de crear una tabla es dar el formato correcto a cada uno de los campos, para ahorrar espacio y permitirnos posterior mente operar correctamente con los datos al realizar consultas. Estos son los tipos de datos que nos carga access:

• Texto: permite almacenar cualquier tipo de texto, tanto caracteres como dígitos y caracteres especiales. Tiene una longitud por defecto de 50 caracteres, siendo su longitud máxima de 255 caracteres. Normalmente se utiliza para almacenar datos como nombres, direcciones o cualquier número que no se utilice en cálculos, como números de teléfono o códigos postales.

• Memo: Se utiliza para el texto con una longitud mayor de 255 caracteres o que utilice formato enriquecido. Las notas, las descripciones largas y los párrafos con formato de texto enriquecido, como negrita o cursiva, son ejemplos de uso de un campo Memo. Hasta 1 gigabyte de caracteres introducidos por el teclado, o 2 gigabytes de almacenamiento (2 bytes por carácter) mediante programación, de los que solo se pueden mostrar 65.535 caracteres en un control. En Access 2010 se puede ordenar o agrupar por un campo Memo, pero Access sóloutiliza los 255 primeros caracteres cuando se ordena o agrupa en un campo Memo.

•  Número: para datos numéricos utilizados en cálculos matemáticos. Dentro del tipo número la propiedad tamaño delcampo nos permite concretar más. En resumen los tipos Byte, Entero y Entero largo permiten almacenar números sin decimales; los tipos Simple, Doble y Decimal permiten decimales; el tipo Id. de réplica se utiliza para claves autonuméricas en bases réplicas.

• Fecha/Hora: para la introducción de fechas y horas desde el año 100 al año 9999. En su propiedad Formato se puede seleccionar su formato.

• Moneda: para valores de dinero y datos numéricos utilizados en cálculos matemáticos en los que estén implicados datos que contengan entre uno y cuatro decimales. La precisión es de hasta 15 dígitos a la izquierda del separador decimal y hasta 4 dígitos a la derecha del mismo. Access recomienda utilizar el tipo Moneda para impedir el redondeo de cifras en los cálculos. Un campo Moneda tiene una precisión de hasta 15 dígitos a la izquierda de la coma decimal y 4 dígitos a la derecha. Un campo Moneda ocupa 8 bytes de espacio en disco.

• Autonumérico: número secuencial (incrementado de uno a uno) único, o número aleatorio que Microsoft Access asigna cada vez que se agrega un nuevo registro a una tabla. Los campos Autonumérico no se pueden actualizar.

• Sí/No: valores Sí y No, y campos que contengan uno de entre dos valores (Sí/No, Verdadero/Falso o Activado/desactivado). Access almacena en el campo el valor -1 para valores Sí, y 0 para valores No.

• Objeto OLE: objeto como por ejemplo una hoja de cálculo de Microsoft Excel,un documento de Microsoft Word, gráficos, imágenes, sonidos u otros datos binarios.

• Hipervínculo: texto o combinación de texto y números almacenada como texto y utilizada como dirección de hipervínculo. Una dirección de hipervínculo puede tener hasta tres partes:
• Texto: el texto que aparece en el campo o control.
• Dirección: ruta de acceso de un archivo o página.
• Subdirección: posición dentro del archivo o página.
•  Sugerencia: el texto que aparece como información sobre herramientas.
•  Datos adjuntos: Fotos, imágenes, archivos binarios, archivos de Office. Es el tipo de datos preferente para almacenar imágenes digitales y cualquier tipo de archivo binario.

• Asistente para búsquedas: que crea un campo que permite elegir un valor de otra tabla o de una lista de valores mediante un cuadro de lista o un cuadro combinado. Al hacer clic en esta opción se inicia el Asistente para búsquedas y al salir del Asistente, Access establece el tipo de datos basándose en los valores seleccionados en él.