domingo, 3 de mayo de 2009

viernes, 3 de abril de 2009

Blog de Juan Cots



Hola atodos quiero invitarlos a ver el Blog de mi buen amigo Juan Cots un Experto en access, En su blog podran encontrar ejemplos bastante buenos de acess.

Felicidades Juan

enlace al blog

jueves, 2 de abril de 2009

mensaje despues de actualizar un boton de opcion


Hola este ejemplo lo hago por una duda en el foro de access y vba, en el que preguntaban como hacer para poner un texto despues de actualizar un boton de opcion, aqui les pongo un ejemplo con la solucion a mi parecer.


saludos.


miércoles, 1 de abril de 2009

Animar etiquetas tipo BANNER


Hola
Muchas veces queremos darle un estilo muy profesional a nuestros sistemas, una de las formas que yo utilizo es colocando etiquetas animadas tipo BANNER y creanme se ven bastante bien.

Este codigo lo copie de un ejemplo de la web del buho, pido disculpas al autor por ahora no recuerdo el nombre.

Bueno colocan una Etiqueta en el formulario y le ponen un nombre "x"
despues en el evento al cronometro del formulario colocan el siguiente codigo.


Dim ORIGINAL, QUITAUNO, PRIMERA
ORIGINAL = Me.x.Caption
QUITAUNO = Right(ORIGINAL, Len(ORIGINAL) - 1)
PRIMERA = Left(ORIGINAL, 1)
Me.x.Caption = QUITAUNO & PRIMERA

y en el intervalo de cronometro ponen 100 o lo que ustedes gusten

espero les sea de utilidad.

EJEMPLO

lunes, 30 de marzo de 2009

Ingresar un nuevo registro en un cuadro combinado

Una pregunta que hacemos con frecuencia es como hacer para ingresar un nuevo registro a un combo: la respuesta es sencilla en el evento al no estar en la lista del cuadro combinado colocas el siguiente codigo.

Dim strsql
MsgBox "Aqui va el mensaje que enviaras al usuario."
strsql = "Insert Into Aqui va el nombre de Formulario ([Aqui va el nombre del Campo a ingresar]) values ('" & NewData & "')"
'MsgBox strsql
CurrentDb.Execute strsql, dbFailOnError
Response = acDataErrAdded

Espero que haya sido de gran utilidad