Per fer-ho només cal conèixer quines són les funcions a utilitzar.

En primer lloc, cal tenir present que per calcular l’edat s’haurà de conèixer la diferència entre la data de naixement i la data actual (dia en que s’executa el càlcul). La funció que retorna la data actual és:

=Fecha()

Per tant, la diferència s’escriurà: Fecha()-[Data_Naixement).

El resultat d’aquesta diferència ha de ser un any en número sencers, per aquest motiu caldrà afegir la següent part del càlcul:

=Int((Fecha()-[Data_Naixement])/365)

Per una banda, s’inclou la divisió entre 365 (per aconseguir el valor de l’any) i per una altra es sol·licita el valor sencer (Funció Int), ja que no interessa saber si una persona té 35,2 anys.

Amb aquesta operació, en el moment que s’executi la consulta, es retornarà l’edat en la data actual.

Aquí teniu un codi VBA que executat a qualsevol acció (normalment sobre un botó) enviarà un correu electrònic de manera automàtica a totes les persones d’una taula en concret que en el moment d’execució sigui el seu aniversari:

    Set rs2 = CurrentDb().OpenRecordset(“persones”) ‘es declara el recodset de la taula persones
    Dim assumpte As String ‘es declara un nou camp
    Dim cos As String ‘es declara un nou camp
    assumpte = “Felicitats” ‘assignació de valor al nou camp
    rs2.MoveFirst ‘ens situem al primer registre
    While Not rs2.EOF ‘mentre no arribem a l’últim registre
        If Day(rs2!DataNaixement) = Day(Now()) And Month(rs2!DataNaixement) = Month(Now()) Then ‘es comprova si el dia i el mes de la data de naixement són coincidents amb els de la data d’avui
            cos = “Felicitats pels teus ” & rs2!Edat & ” anys ” & rs2!Nom ‘assignació del missatge que es vol enviar
            DoCmd.SendObject acSendNoObject, , , rs2!Correu, , , assumpte, cos, True, False ’s’envia el correu
        End If ‘es tanca la condició
        rs2.MoveNext ‘es mou al següent registre
    Wend ‘es tanca el while 

Fins aquí tot!!! Si teniu cap dubte o voleu fer cap comentari ho podeu fer a la secció Comentaris d’aquest mateix post!!!

Aquí us deixem un codi VBA que si el poseu a la propietat Al abrir d’un formulari qualsevol us actualitzarà totes les edats d’una taula en concret (sabent la data de naixement). Tingueu en compte que el nom dels camps de la vostra taula pot ser diferent, per tant heu de vigilar…

Set rs = CurrentDb().OpenRecordset(“persones”) ‘es declara el recordset de la taula persones
    rs.MoveFirst ‘es posiciona al primer registre
    While Not rs.EOF ‘mentre no arribi a l’últim registre
        rs.Edit ‘obre el registre en mode edició
        rs!Edat = Int((Now() – rs!DataNaixement) / 365.25) ‘actualitza l’edat
        rs.Update ‘grava el registre
        rs.MoveNext ‘anar al següent registre
    Wend ‘finalitza el while

Fins aquí tot!!! Si teniu cap dubte o voleu fer cap comentari ho podeu fer a la secció Comentaris d’aquest mateix post!!!

Aquí us deixem el codi VBA necessari per a visualitzar, quan entrem a un formulari, un missatge que demani a quin registre es vol anar i a l’acceptar va a aquest registre i mostra un missatge per pantalla que diu a quin registre ha anat.

Aquest codi el posaríem a l’esdeveniment “Al abrir formulario” de les propietats del formulari en qüestió:

Private Sub Form_Open(Cancel As Integer) ’s’obre la funció
    Dim regconcret As Integer ‘definim una variable per emmagatzemar el número de registre
    regconcret = InputBox(“A quin registre has d’anar?”, “Cerca”) ‘llencem pregunta a l’usuari i la desem a la variable creada
    DoCmd.GoToRecord , , acGoTo, regconcret ‘anem al registre en qüestió
    MsgBox “Estàs al registre: ” & regconcret ‘mostrem missatge dient a quin registre s’ha anat
End Sub ‘es tanca la funció

Això és tot!! Per qualsevol dubte o comentari ho podeu fer a la secció Comentaris d’aquest mateix post!!

Segons la imatge que es mostra a continuació, les dades introduïdes en el rang A2:A10 corresponen a les despeses del mes de gener; les dades en el rang B2:B10 corresponen a les despeses del mes de febrer,… i així succesivament.

Nosaltres podem treballar amb les referències A2:A10 o B2:B10 o… però també podem assignar noms a aquests rangs i posteriorment treballar amb fórmules i funcions amb aquests noms.

Tal com es mostra en la imatge anterior el rang A2:A10 té assignat el nom de “Gener”. Per fer-ho només cal seleccionar el rang i establir el nom en la casella “Quadre de noms” i fer clic a la tecla Intro.

Ara, a la cel·la A10 es pot introduir la funció =suma(gener) i ens generarà el mateix resultat que si haguéssim establert la funció =suma(A2:A10)

Ara bé, s’ha de tenir present que els noms que s’assignen a un conjunt de cel·les han de complir unes normes bàsiques:

• Caràcters vàlids: El primer caràcter d’un nom ha de ser una lletra, un caràcter de subratllat (_) o una barra invertida (\). La resta dels caràcters del nom poden ser lletres, nombres, punts i caràcters de subratllat.
• No hi pot haver noms d’una lletra sola que siguin “c” o “r”. Tant majúscules com minúscules.
• No poden tenir noms iguals a referències de cel·les. Exemple A$100 o R1C1.
• No estan permesos els espais. Es pot utilitzar caràcter de subratllat (_) i el punt (.) Com separadors de paraula
• Longitud de nom: Màxim 255 caràcters.
• Majúscules i minúscules: Excel no distingeix entre caràcters en majúscula i minúscula en els noms.

Per qualsevol dubte o comentari podeu fer-ho a la secció Comentaris d’aquest mateix post!!

És freqüent fer una consulta per paràmetres sobre un camp de text i que, quan s’executa el paràmetre l’usuari no sàpiga la cadena de text completa a cercar. És per això que és necessari fer una consulta mixta de paràmentres més selecció simple.

Imagineu que tenim un camp que se’n diu Descripció a una taula i aquest camp l’incloem a una consulta. Sobre aquest camp volem establir un criteri que permeti fer una cerca per una cadena de text que estigui a qualsevol zona de la cadena de text total. Per fer això hauríem de posar a la fila Criterios d’aquest camp la següent sentència:

Como “*” & [Quina descripció vols cercar?] & “*”

Podent substituir la sentència Quina descripció vols cercar? pel missatge que volem que li surti a l’usuari.

Per qualsevol dubte o comentari a fer recordeu que teniu la secció Comentaris al final d’aquest post.

Aquest post explica un procediment que s’utilitza ben poc però que resulta molt i molt útil per aquella persona que introdueix dades a un formulari de Ms Access de qualsevol versió. A qui no li ha passat que comença a introduïr un registre i quan ja el finalitza i intenta canviar de registre el programa li mostra un missatge dient “No se puede guardar el registro porque crearía un registro duplicado”. Que penses: I no m’ho podria haver dit quan he omplert la clau principal??

Doncs bé, en aquest post us explicarem de quina manera solventar-ho!! Com que és una mica llarg d’explicar, us deixem un vídeo per a que us sigui més còmode. I, com sempre, si teniu dubtes o teniu res a comentar, podeu fer-ho als comentaris d’aquest post.

Quan s’afegeix un botó de comandament a un formulari no es pot canviar el seu color, però sí que es pot fer una simulació per a que sembli que sí que ha canviat. Aquests serien els passos a seguir:

1. Afegir el botó de comandament al formulari
2. Establir la propietat Transparente d’aquest botó a Sí mitjançant el quadre de propietats
3. Crear un rectangle de la mateixa mida del botó de comandament i fer-lo coincidir en posició amb el botó
4. Modificar el color del rectangle al color que es vol que tingui el botó
5. Establir la propietat Efecto especial del rectangle a Con relieve
6. Afegir un control d’etiqueta a sobre per posar l’etiqueta que es vol a sobre del botó

Amb això es tot!! Per qualsevol dubte, deixeu el comentari…

A aquest post explicarem com canviar l’orientació del paper a un informe i la diferència que hi ha entre fer-ho amb el Ms Access 2003 i el Ms Access 2007.

Per canviar l’orientació amb Ms Office 2007
Un cop hem generat l’informe, obrir la pestanya addicional Configurar página i a la secció Diseño de página fer clic a sobre el botó Horizontal o Vertical en funció del que volem establir.

Per canviar l’orientació en Ms Office 2003
Un cop hem generat l’informe obrir el menú Archivo i seleccionar l’opció Configurar página.

Obrir la pestanya Página i seleccionar l’opció Horizontal a la secció Orientación. Per últim, fer clic al botó Aceptar.

Ara, ja sabeu, si teniu dubtes o voleu comentar: a la secció Comentaris d’aquest post!!!