Quelque chose comme cela ne devrait-il pas suffire !
Quelque chose comme cela ne devrait-il pas suffire !
N'oubliez pas le Tag afin de faciliter la recherche, et en votant cela permet de mieux la cibler.
Je ne réponds pas aux messages privés s'ils sont liés à une question technique
Tu peux me l'envoyer en .zip stp, je n'arrive pas a l'ouvrir, meme en telechargeant l'executable .7zip ca refuse car je suis en stage en entreprise et je n'ai pas tous les droits
Version Zip
N'oubliez pas le Tag afin de faciliter la recherche, et en votant cela permet de mieux la cibler.
Je ne réponds pas aux messages privés s'ils sont liés à une question technique
Merci beaucoup pour le .zip, ca m'a aider à comprendre un peu plus les choses
pour le moment j'essaye d'adapter ca a mon code, et je te tiens au jus
par contre je recois tout le temps ce message:
à cause de cette ligne:
Code : Sélectionner tout - Visualiser dans une fenêtre à part Val = DLookup("Pos_Mont", "T_TABLE", "Num_Cyl = " & ValCyl)
Avez-vous changé des valeurs dans la table ou autre chose ?
N'oubliez pas le Tag afin de faciliter la recherche, et en votant cela permet de mieux la cibler.
Je ne réponds pas aux messages privés s'ils sont liés à une question technique
non, j'ai rien changer sur les tables pourtant
du coup, j'ai regarder un peu sur internet pour voir, et j'ai ameliorer mon code, ca donne quelque chose de la sorte:
mais sauf que a chaque foi, quelque soit le numéro de cylindre que je mets, c'est toujour la requête Historique cylindre_travail sup qui est exécuter!!
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
16
17
18
19
20 Option Compare Database Private Sub Textpos_Click() End Sub Private Sub Valcyl_AfterUpdate() Dim val As String val = Nz(DLookup("[position montage]", "Rectification cylindre_travail", "[N° du cylindre] = " & Valcyl)) If val = "inf" Then 'val = Valcyl & "- " & val DoCmd.OpenQuery ("Historique cylindre_travail inf") Else 'val = Valcyl & "- " & val DoCmd.OpenQuery ("Historique cylindre_travail sup") End If 'Textpos.Value = val End Sub
Avant la ligne 11, mettez un MsgBox val et que donne le résultat ?
N'oubliez pas le Tag afin de faciliter la recherche, et en votant cela permet de mieux la cibler.
Je ne réponds pas aux messages privés s'ils sont liés à une question technique
ça me marque toujours ce message:
ça viens toujours de la meme ligne:je pense que cette ligne m'envoie à chaque foi une valeur nulle pour "val" du coup la suite ne peux pas être évaluer correctement. du coup le msgbox ne peu même pas s'afficher!!
Code : Sélectionner tout - Visualiser dans une fenêtre à part val = DLookup("[position montage]", "Rectification cylindre_travail", "[N° du cylindre] = " & Valcyl)
Pour tester si c'est un problème de valeur null, faites le test suivant :
Code : Sélectionner tout - Visualiser dans une fenêtre à part if isnull(DLookup("[position montage]", "Rectification cylindre_travail", "[N° du cylindre] = " & Valcyl)) then Msgbox "Valeur nulle"
N'oubliez pas le Tag afin de faciliter la recherche, et en votant cela permet de mieux la cibler.
Je ne réponds pas aux messages privés s'ils sont liés à une question technique
le msgbox s'ouvre et me dis que c'est nulle
Est-il normal que votre champ soit nul, ou doit-il y avoir automatiquement une valeur ?
N'oubliez pas le Tag afin de faciliter la recherche, et en votant cela permet de mieux la cibler.
Je ne réponds pas aux messages privés s'ils sont liés à une question technique
non ce n'est pas normale, car je c'est grâce a mon formulaire que tout s’exécute, je rentre automatiquement une valeur dans numCyl, donc il y a forcement une valeur qui est rentrée
Quelle valeur avez-vous avec MsgBox
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2 Msgbox Valcyl If isnull(DLookup("[position montage]", "Rectification cylindre_travail", "[N° du cylindre] = " & Valcyl)) then Msgbox "Valeur nulle"
N'oubliez pas le Tag afin de faciliter la recherche, et en votant cela permet de mieux la cibler.
Je ne réponds pas aux messages privés s'ils sont liés à une question technique
quand je tape 11 (cylindre 11) dans mon formulaire:
- j'ai la valeur 41 dans le premier msgBox
- j'ai la valeur nulle dans le deuxieme msgBox
Donc la commande :
Ne fonctionna pas correctement, la transformation de cette ligne équivaut à :
Code : Sélectionner tout - Visualiser dans une fenêtre à part DLookup("[position montage]", "Rectification cylindre_travail", "[N° du cylindre] = " & Valcyl)
Cette requête fonctionne t-elle ?
Code : Sélectionner tout - Visualiser dans une fenêtre à part SELECT [position montage] FROM [Rectification cylindre_travail] WHERE [N° du cylindre] = 41
N'oubliez pas le Tag afin de faciliter la recherche, et en votant cela permet de mieux la cibler.
Je ne réponds pas aux messages privés s'ils sont liés à une question technique
je dois remplacer directement la commande avec Dlookup par cette requête??
Non, regardez ce que vous donne cette requête ! Avez-vous une résultat ?
N'oubliez pas le Tag afin de faciliter la recherche, et en votant cela permet de mieux la cibler.
Je ne réponds pas aux messages privés s'ils sont liés à une question technique
non je n'ai pas de resultat, car je n'ai pas de cylindre qui a un numéro égal à 41, c'est ca que je trouve bizarre aussi.
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager