Discussion :

[MatFab5575]

Bonjour,

J'ai créé un formulaire listant une série d'enregistrements provenant d'une table.
Dans ce formulaire, j'ai mis en place un filtre.
Mon but est de sélectionner certains enregistrements au travers de mon filtre, de remplir 2 champs pour chaque enregistrement sélectionné et ensuite d'injecter ces enregistrements dans une table d'archivage.

Dès que j'applique le filtre, j'ai donc à l'écran une liste d'enregistrements.
Pour ces enregistrements sélectionnés et uniquement pour ceux-là, je voudrais tester la valeur des 2 champs à remplir.
Car si pour un de ces 2 champs, la valeur est vide l'enregistrement ne pourra pas être archiver.
En clair, je ne pourrai injecter dans ma table "archivage", que les enregistrements pour lesquels les 2 champs sont remplis.

Dans mon exemple, après application du filtre "Metrics Frequency", si les champs "Business Date" et "KRI Value" ne sont pas remplis, les enregistrements ne peuvent pas être injectés dans ma table "archivage". Par contre, ceux pour lesquels les champs sont bien remplis, les enregistrements peuvent être injectés.

Pouvez-vous m'aider à définir une macro me permettant de réaliser ce test.

Merci d'avance pour votre aide.

[marot_r]

Bonjour.

Pas sur de ce que tu maîtrise déjà dans Access.
Je vais décrire la solution que mettrai en place mais n'hésite pas à poser des questions.
Je vais utiliser une requête d'ajout que je vais nommer qryAddToArchive. Un exemple de syntaxe est

Code :

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

1
2
3
4
INSERT INTO TblArchive
SELECT tblSource.*
FROM tblSource
WHERE (((tblSource.Field1) Is Not Null) AND ((tblSource.Field2) Is Not Null));

Ceci suppose que tu vas mettre tous les champs de ta table tblSource dans la table tblArchive si les champs Field1 et Field2 sont complétés.

À adapter à ta réalité.

Pour lancer la requête tu peux utiliser le code VBA suivant :

Code :

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

1
2
3
4
 
dim objDB as dao.database: set objDB=currentdb
call objDB.queryDefs("qryAddToArchive").execute(dbFailOnError)
call objDB.close: set objDB=nothing

[MatFab5575]

Bonjour marot_r,

Je te remercie pour ta réponse.
En creusant un peu, c'est finalement cette solution que j'ai choisi de faire également.
J'ai créé ma requête ajout avec les paramètres "Is Not Null" pour les champs en question et cela fonctionne bien.

Je vais donc clôturer ce post.