Discussion :

[Om Lebnet]

Bonjour à tous j'ai encore besoin de votre aide sur un autre point.

je cherche à remplir la table :
selon choix de l'année et le mois à partir d'un formulaire,
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
cela en utilisant un code VBA, sachant que j'utilise Access 2016

Merci d'avance pour vos réponses

[marot_r]

Bonjour.

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 :

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

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+