Discussion :

[zoom61]

Quelque chose comme cela ne devrait-il pas suffire !

[marcus crassus]

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

[zoom61]

Version Zip

[marcus crassus]

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

[marcus crassus]

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)

[zoom61]

Avez-vous changé des valeurs dans la table ou autre chose ?

[marcus crassus]

non, j'ai rien changer sur les tables pourtant

[marcus crassus]

du coup, j'ai regarder un peu sur internet pour voir, et j'ai ameliorer mon code, ca donne quelque chose de la sorte:

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

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!!

[zoom61]

Avant la ligne 11, mettez un MsgBox val et que donne le résultat ?

[marcus crassus]

ça me marque toujours ce message:


ça viens toujours de la meme ligne:

Code :

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

val = DLookup("[position montage]", "Rectification cylindre_travail", "[N° du cylindre] =  " & Valcyl)

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!!

[zoom61]

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"

[marcus crassus]

le msgbox s'ouvre et me dis que c'est nulle

[zoom61]

Est-il normal que votre champ soit nul, ou doit-il y avoir automatiquement une valeur ?

[marcus crassus]

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

[zoom61]

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"

[marcus crassus]

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

[zoom61]

Donc la commande :

Code :

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

DLookup("[position montage]", "Rectification cylindre_travail", "[N° du cylindre] =  " & Valcyl)

Ne fonctionna pas correctement, la transformation de cette ligne équivaut à :

Code :

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

SELECT [position montage] FROM [Rectification cylindre_travail] WHERE [N° du cylindre] = 41

Cette requête fonctionne t-elle ?

[marcus crassus]

je dois remplacer directement la commande avec Dlookup par cette requête??

[zoom61]

Non, regardez ce que vous donne cette requête ! Avez-vous une résultat ?

[marcus crassus]

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.