Discussion :

[marcuscircus]

Bonjour, voila deja le code :

Code :

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

1
2
3
4
5
6
7
set rst = currentdb.openrecordset ("select max(numenrprod) from technique where codecli = ' " & 900370 & " ' ")
 
If rst.EOF = false then
  wnumenr = rst(0) +1
else
  wnumenr = 1
End if

Je precise que codecli est de type 'string' !
quand j'essaye d'executer ce code, il me dit erreur '94' Utilisation incorrecte de Null a la ligne :

Code :

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

wnumenr = rst(0) +1

Si quelqu'un voit de quoi sa viens ...

[pc75]

Bonjour,

A quoi correspond ce 900370 ?

Pourquoi ne fais tu pas comme ça ?

Code :

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

1
2
 
set rst = currentdb.openrecordset ("select max(numenrprod) from technique where codecli = '900370' ")

[marcuscircus]

C'est le code client sur lequel je bosse, mais ta version ou la mienne ne change pas grand chose au résultat, toujours la même erreur !

[Alain36]

Bonjour,

Je suppose que tu as quelque part un

Code :

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

Dim wnumenr As Integer

(ou As Long), alors que si ta requête ne retourne rien, rst(0) a la valeur Null, incompatible avec un type autre que Variant.

Essaie donc :

Code :

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

wnumenr = Nz(rst(0),0) +1

La fonction Nz a le bon goût de retourner la valeur de son deuxième argument lorsque le premier est Null

[marcuscircus]

Exact, merci beaucoup alain !