Bricolages divers

C'est pour moi juste un aide mémoire afin de retrouver mes petits en cas de réinstallation mais si ça peu servir à quelqu'un d'autre....

Lire la suite

Fermeture sans sauvegarde :

DoCmd.Close acForm, "SplashScreen", acSaveNo ' ferme le splashscreen

Stocker et Annuler les mises à jour dans un formulaire

http://cafeine.developpez.com/access/tutoriel/update/
http://www.everythingaccess.com/tutorials.asp?ID=Creating-an-Audit-Trail

Cryptage MD5

http://www.frez.co.uk/freecode.htm#rijndael

Convention de nommage Access

http://access.developpez.com/normes/tblConventions.xls

Exécution d'une commande contenue dans une variable

Dim mycmd as String
mycmd = "DoCmd.OpenForm (\'table1\')"
Eval (mycmd)

Quitter Access avec docmd.quit ou Application.quit ?

Il vaut mieux utiliser la méthode Application.quit donc l'exécution est plus propre. La methode docmd.quit étant réservée à une compatibilité avec la version Access 95.

Modifier Option Général d'Access par le code

Code Valide pour Office XP !!! à vérifier pour les autres

'Modifie les options générales d'ACCESS
SetOption "Confirm Action Queries", False 'Requetes Actions
SetOption "Confirm Document Deletions", False 'Suppression d'enregistrement
SetOption "Confirm Record Changes", False 'Modification d'enregistrement
SetOption "ShowWindowsInTaskbar", False 'Fenetres dans la barre des taches

Comment supprimer les messages d'alertes ?

En VBA, placez ce code avant la requête d'insertion/de modification :

DoCmd.SetWarnings False

Pensez à rajouter la confirmation après la requête :

DoCmd.SetWarnings True

Exécuter une requête action (ajout, suppression ou mise à jour) propre !

http://access.developpez.com/faq/?page=SQL#qryActions

Tables liées par programmation avec test à l'ouverture

http://dolphy35.developpez.com/article/access/BasesReseaux/

Formulaire de recherche avancé

Première partie
Seconde partie
Troisième partie

Rafraîchissement automatique des liaisons des tables attachées.

http://www.3stone.be/access/articles.php?lng=fr&pg=28

Comment empêcher l'exécution hors runtime

Appelez la fonction "TestRuntime" qui fermera votre application si elle n'est pas ouverte par le runtime.

Function TestRuntime() As Integer
If SysCmd(acSysCmdRuntime) = 0 Then
'Pas le runtime
Application.Quit
End If
End Function

Comment lire le numéro d'un disque dur

Cocher la référence 'Microsoft Scripting Runtime'

Function ReadHDSerial(strHD As String) As Long
Dim fso As New Scripting.FileSystemObject
ReadHDSerial = fso.Drives(strHD).SerialNumber
End Function

Retrieve NT Server's Time

http://www.mvps.org/access/api/api0039.htm

Table des matières pour les états

http://loufab.developpez.com/tablemat/

Comment lier des tables en VBA dans une base de données protégées par un mot de passe ?

http://access.developpez.com/faq/?page=Tables#VBAlinkTablePassword

Comment faire pour que toutes les tables liées ne soient plus présentes dans ma base de données ?

http://access.developpez.com/faq/?page=Tables#SupprTblLiees