Discussion :

[Tristan33000]

Je souhaite renseigner une zone de texte en fonction de trois listes déroulantes :

-cmbTYPESORTIE
-cmbDESTINATION
cmbCATEGORIE

voici mon code :

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
22
23
24
25
26
27
28
29
Private Sub FormCat1_AfterUpdate()
 
Dim typesortie As Single
Dim destination As String
Dim categorie As Single
Dim SQL As String
Dim TARIFICATION As DAO.Database
Dim enregistrement As DAO.Recordset
 
typesortie = Me!cmbTYPESORTIE
destination = Me!cmbDESTINATION
categorie = Me!FormCat1
 
  '' RAZ
    FormCat1.Value = ""
 
 
SQL = "SELECT TARIFICATION.Tarif FROM DESTINATION INNER JOIN (CATEGORIE INNER JOIN TARIFICATION ON CATEGORIE.NumCategorie = TARIFICATION.NumCategorie) ON DESTINATION.NumDestination = TARIFICATION.NumDestination WHERE (((DESTINATION.LibelleDestination)=" & destination & ") AND ((TARIFICATION.NumTypeSortie)=" & typesortie & ") AND ((CATEGORIE.NumCategorie)=" & categorie & "));"
Set TARIFICATION = CurrentDb
Set enregistrement = TARIFICATION.OpenRecordset(SQL, dbOpenSnapshot)
 
If enregistrement.RecordCount = 1 Then
    If enregistrement.Fields("Tarif") <> "" Then
        resultat = enregistrement.Fields("Tarif")
        FormCat1.Value = resultat
    End If
End If
 
End Sub

Et j'obtien donc l'erreur suivante :
-"erreur d'execution 3061"
-"Trop peu de parametre.1 attendu"

J'ai peut etre une idée qui serait que mes champ numtypesortie et numcategorie sont de type Numeroautomatique et que mes listes correspondante sont numerique mais bon ... sa n'explique le "1attendu" ...

Merci d'avance.

Cordialement.

Tristan.

[Tristan33000]

Avec cette syntaxe cela marche :

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
22
23
24
25
26
27
28
Private Sub FormCat1_AfterUpdate()
 
Dim typesortie As Single
Dim destination As String
Dim categorie As Single
Dim SQL As String
Dim TARIFICATION As DAO.Database
Dim enregistrement As DAO.Recordset
 
typesortie = Me!cmbTYPESORTIE
destination = Me!cmbDESTINATION
categorie = Me!FormCat1
 
 
 
 
SQL = "SELECT TARIFICATION.NumDestination, TARIFICATION.NumTypeSortie, TARIFICATION.NumCategorie, TARIFICATION.Tarif FROM DESTINATION, TARIFICATION WHERE DESTINATION.NumDestination=TARIFICATION.NumDestination AND DESTINATION.LibelleDestination='" & destination & "' AND TARIFICATION.NumTypeSortie=" & typesortie & " AND TARIFICATION.NumCategorie=" & categorie & ";"
Set TARIFICATION = CurrentDb
Set enregistrement = TARIFICATION.OpenRecordset(SQL, dbOpenSnapshot)
 
If enregistrement.RecordCount = 1 Then
    If enregistrement.Fields("Tarif") <> "" Then
        resultat = enregistrement.Fields("Tarif")
        FormTar1.Value = resultat
    End If
End If
 
End Sub

Cordialement.

Tristan.

[loufab]

Bonjour,

C'est normal.

Le type string (texte) doit TOUJOURS être entouré de simple ou double cote.

' ou " avec du SQL ACCESS.

Avec les autres SQL il faut de la simple cote '.

Doubler les simples ou les doubles cote quand elles sont dans une chaine.

Cordialement,