Erreur d'exécution 3061, trop peu de paramètres (select)

**skeut** · 15/03/2006, 12h18

Bonjour,

une table "Programmes" contenant les programmes et un table "Versions" contenant toutes les versions de tous les programmes.

un formulaire programme et un sous-formulaire version (en mode continu) qui permet la saisie des différentes versions de chaque programme.

Afin d'éviter à l'utilisateur de saisir les numéros de version, je souhaiterais les gérer automatiquement; j'ai développé le code suivant déclenché sur double-clic du numéro de version (par exemple)

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
21
 
Public Function genereNoVersion() As Long
' Fonction qui génère automatiquement le numéro de version
 
Dim rst As DAO.Recordset
 
Set rst = CurrentDb.OpenRecordset("SELECT MAX(NoVersion)AS MaxNoVersion FROM Versions WHERE Num_Programme = Screen.ActiveForm.ActiveControl.Form!ztNUMEROProg")
' ztNUMEROProg est un contrôle du sous-formulaire Version et contient la valeur de la PK de la table Programmes
 
If IsNull(rst!MaxNoVersion.Value) Then
    'résultat de la requête vide, le rst retourne une ligne avec null dans la valeur
    genereNoVersion = 1
Else
    genereNoVersion = rst.Fields("maxNoVersion").Value + 1
 
End If
 
rst.Close
Set rst = Nothing
 
End Function

Ce code me retourne l'erreur suivante:
Erreur d'exécution '3061'
trop peu de paramètres. 1 attendu

Ce qui m'étonne, c'est que si je remplace

Code :

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

Screen.ActiveForm.ActiveControl.Form!ztNUMEROProg

par un numéro de programme en dur (par exemple 33), ça fonctionne.

Est-ce que quelqu'un voit pourquoi ?

Merci de votre aide.

skeut

**argyronet** · 15/03/2006, 13h22

Bonjour,

Il faut partir du principe que coder des requêtes avec des éléments actifs du formulaire est voué à de nombreux problèmes...
La preuve.
Il faut éviter "le bidouillage" et il y a bien entendu des tas d'autres solutions pour récupérer le contenu de ton champ...
On a eu l'idée un jour d'implémenté l'usage des variables dans le code VBA, je pense que tu peux t'en servir...

Argy

**skeut** · 15/03/2006, 13h54

Bonjour Argy

merci pour la réponse; j'en prends bonne note.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
...
 
Dim prog As Long
prog = Screen.ActiveForm.ActiveControl.Form!ztNUMEROProg
 
Dim rst As DAO.Recordset
 
Set rst = CurrentDb.OpenRecordset("SELECT MAX(NoVersion)AS MaxNoVersion FROM Versions,Programmes WHERE Num_Programme = prog")
 
...

En déclarant une variable et en utilisant cette variable dans ma requête, le problème persiste.

Ai-je mal interprété le message?

a+
skeut

**argyronet** · 15/03/2006, 14h43

Envoyé par skeut

Ai-je mal interprété le message?

Oui,

Là, tu as reculé pour mieux sauté

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
Public Function GenereNoVersion(ByVal NumProg As Long) As Long
Dim rst As DAO.Recordset
Dim SQLMax As String
Dim lngNoVersion As Long
 
  SQLMax = "SELECT MAX(NoVersion)AS MaxNoVersion FROM Versions WHERE Num_Programme =" & NumProg
  Set rst = CurrentDb.OpenRecordset(SQLMax, 2)
  With rst
    If .EOF Then
      lngNoVersion = 1
    Else
      lngNoVersion = .Fields("maxNoVersion").Value + 1
    End If
    .Close
  End With
  Set rst = Nothing
  GenereNoVersion = lngNoVersion
End Function