contrôle sur données enregistrées entre 2 tables

**dodie84** · 22/05/2008, 13h57

Bonjour, j'ai un soucis avec un contrôle que je veux réaliser. J'explique d'abord le contexte:
J'ai trois tables:
-un production: num production (clé primaire), type production, appellation...
-une opération: num opération(clé primaire), num production, date, quantité entrée, quantité sorties
-une renseignement suppl : num production, volume revendiqué, mois, année

un numéro de production réalise plusieurs opérations. Pour chaque numéro de production l'utilisateur doit apporter le renseignement supplémentaire pour un mois et une année donnée.

A la fin du mois j'ai un état à imprimer. Il contient toutes les opérations effectuées pour mes productions ainsi que les renseignements supplémentaires les concernant.

Mon problème: si l'utilisateur a oublié de saisir les renseignements supplémentaires, les opérations du mois ne s'affichent pas dans mon état.
Je voulais donc réaliser un contrôle qui permet de vérifier si pour mes numéros de production qui ont réalisés des opérations, les renseignements supplémentaires ont été apportés.

Le problème c'est que je suis très nulle en VBA, j'ai commencé quelque chose qui ressemble à ça:

Code :

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

1
2
3
4
5
Private Sub Commande23_Click()
If DLookup("[NUM PRODUCTION]", OPERATIONS, ("Mois(Date)=ZDMOIS AND Année(Date)=ZDANNEE")) <> DLookup("[Num production]", "renseignement suppl", "mois=ZDMOIS AND année=ZDANNEE") Then
MsgBox ("des renseignements n'ont pas été portés")
End If
End Sub

Mais cela ne marche pas, quelqu'un peut-il m'aider svp? merci beaucoup
Elodie

**Orakle** · 22/05/2008, 14h28

Salut,

ton problème porte sur la syntaxe ou sur la solution ?

Pour la syntaxe j'opterai pour un truc du genre

Code :

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

If DLookup("[NUM PRODUCTION]", "OPERATIONS", ("Mois(Date)= '" & Me.ZDMOIS & "'" And "Année(Date)= '" & Me.ZDANNEE & "'")) <> DLookup("[Num production]", "renseignement suppl", "mois= '" & ZDMOIS & "'" And "année= '" & ZDANNEE & "'") Then

**dodie84** · 22/05/2008, 14h41

Vu mon niveau en VBA je pense que le problème porte un peu sur tout!!!
En fait c'est surtout pour le conception que j'ai du mal.
J'ai exécuté mon code avec tes modifications, mais il me dit erreur 13.
Je patauge vraiment auriez vous une idée?
Merci
Elodie

**azertix** · 22/05/2008, 14h45

Que dit le message d'erreur exactement ?

**dodie84** · 22/05/2008, 14h52

Il me dit:

Erreur d'exécution '13':
Incompatibilité de type

**azertix** · 22/05/2008, 15h02

Et ça pointe sur quoi ?

**dodie84** · 22/05/2008, 15h05

ça pointe en jaune sur toute mon expression que ce soit la mienne ou celle qu'on m'a corrigée!

**azertix** · 22/05/2008, 15h16

Tu es sûr que la syntaxe a été respectée ?

Syntaxe

DLookup(expr, domaine[, critère])

Les arguments de la fonction RechDom (DLookup) sont les suivants :

expr : Expression qui identifie le champ dont vous souhaitez renvoyer la valeur.
Il peut s'agir d'une expression de chaîne identifiant un champ dans une table ou une requête, ou d'une expression qui effectue un calcul sur les données de ce champ. Dans expr, vous pouvez inclure le nom d'un champ de table, un contrôle de formulaire, une constante ou une fonction. Si expr inclut une fonction, elle peut être intrinsèque ou définie par l'utilisateur, mais ne peut pas être une autre fonction de regroupement Domaine ou SQL.

domaine : Expression de chaîne identifiant les enregistrements qui constituent le domaine. Il peut s'agir d'un nom de table ou d'un nom de requête.

critère : Expression de chaîne facultative servant à limiter la plage des données sur laquelle porte la fonction RechDom (DLookup). Par exemple, critère est souvent équivalent à la clause WHERE d'une expression SQL sans le mot WHERE. En cas d'omission de critère, la fonction RechDom (DLookup) évalue expr par rapport à l'intégralité du domaine. Chaque champ compris dans critère doit aussi l'être dans domaine, sans quoi la fonction RechDom (DLookup) renvoie la valeur Null.

**Orakle** · 22/05/2008, 15h20

Mon problème: si l'utilisateur a oublié de saisir les renseignements supplémentaires, les opérations du mois ne s'affichent pas dans mon état.

n'est il pas possible de le forcer à faire la saisie en amont ?

**dodie84** · 22/05/2008, 15h21

Je crois avoir compris d'où cela provenait, cependant comment le résoudre??

En fait j'ai fait un test en enlevant le critère qui correspond à l'année et au mois.
Je pense que ce qui provoque l'erreur c'est que:
-dans la table opération le mois c'est Mois(date) --> qui est donc au format date:heure
-dans la table renseignements suppl c'est Mois --> issu d'une table mois qui comporte tous les mois de l'année au format numérique.

C'est pour cela qu'il me mettait erreur 13 : incompatibilité de type.

Auriez vous une idée pour contourner ce problème?

Merci

**Orakle** · 22/05/2008, 16h18

c'est sûr que si tu essais de comparer une date et du numérique ça n'ira pas.

Peux tu répondre à ma question plus haut ?

**dodie84** · 22/05/2008, 16h26

Je n'ai pas bien compris le sens de ta question.
Dans mon état je veux qu'il y ait obligatoirement les données correspondantes à la table opération ainsi que celle de la table renseignements supplémentaires.
C'est pour cela que cela ne fonctionne pas si l'utilisateur à oublié de saisir les renseignements supplémentaire pour un numéro de production qui a effectué des opérations ce mois-ci.
Ais-je répondu à ta question?

Je crois qu'il est possible d'extraire le mois d'une date pour que cela devienne une donnée numérique avec Month(Date) pouvez-vous m'éclairer?

Merci
Elodie

**Orakle** · 22/05/2008, 16h36

C'est pour ça que je dis si c'est possible de creuser en amont de ton problème et aller à la source plus exactement : c-a-d forcer l'utilisateur à saisir les renseignement supplémentaires. (si ils sont obligatoires bien sûr)

Sinon dans une requête, pour extraire ton mois d'une date c'est :

Code :

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