Discussion :

[GIldas1st]

Bonjour chers amis,
je suis nouveau sur ce blog et en programmation Access. J'ai une difficulté que j'aimerais soumettre à votre attention. Je voudrais à travers une procédure évènementielle ouvrir une base de données se trouvant dans un emplacement, le problème est que cette dernière est datée.
j'ai écris le code suivant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
chemin1 = "C:\base_donnees\base20160818.mdb"

je voudrais écrire un code vba qui permettrait de tenir compte du fait que la date de la base de données peut changer .
Merci par avance
Cordialement

[marot_r]

Bonjour et bienvenu dans le monde merveilleux de Access.

Une solution assez simple :

Ajouter sur ton formulaire une zone de texte (ex DateBase)

et mettre le code :

chemin1 = "C:\base_donnees\base" & me.DateBase & ".mdb"

Tu entre la date dans le champ et Access va l'intégrer au code.

Il est prudent quand on fait cela de vérifier les données avant donc voici une version enrichie de ton code.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
if not isnull(me.DateBase)  then
    chemin1 = "C:\base_donnees\base" & me.DateBase & ".mdb"
    'Ici le code qui exploite chemin1
  else
    msgbox "Vous n'avez pas indiquer la date. Traitement impossible.", vbExclamation
end if

2 point importants :

1. Me. se réfère à l'objet (ici le formulaire) courant.
   Ce n'est pas indispensable mais je trouve que cela rend les choses plus clair et cela permet aussi de bénéficier de l'intellisens (la sugestion par l'éditeur des éléments disponibles une fois qu'on a taper le .).
2. Pour tout ce qui est date, il est prudent de ne pas utiliser Date tout court parce qu'il existe une fonction Date() (qui retourne la date courante) ce qui mêle Access.
   Personnellement j'utilise des trucs comme DateHeure, DateDebut, DateFin, DateCommande, DateFacture bref DateQuelqueChose même si il serait plus logique d'utiliser simplement Date.

A+