Remplir une table par Code VBA

Bonjour.

Citation:

si il existe déjà un enregistrement avec le même mois et année on lance une requête MAJ, s'il n'y a pas d'enregistrement on lance une requête ajout

Si j'ai bien compris ca devrait etre quelque chose comme :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
dim nomRequete as string
 
'=== Determine si il faut la requete de MAJ ou celle d'ajout
if DCount("*", "UneSource", "[Annee]=" & me.Annee & " and [Mois]=" & me.Mois)<>0 then
     nomRequete="reqMAJ"
  else
     nomRequete="reqAjout"   
end if
'--- Determine si il faut la requete de MAJ ou celle d'ajout
 
'=== Execute la requete choisie
dim db as dao.database:set db=currentdb
call db.querydefs(nomRequete).execute(dbFailOnError)
db.close:set db=nothing
'--- Execute la requete choisie

A+