Discussion :

[matdrap]

Je pense que mon code est ok, mais quand je l'execute Access m'écrit comme erreur:

"L'action OpenForm à été annulé."
Je ne comprend pas...

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
 
 
    Dim sql As String
    Dim stDocName As String
 
    stDocName = "frmConsultation"
    If Me.lstNomProjet.ListIndex <> -1 Then
 
        sql = "[tblVersionProjet.NoVersionProjet]=" & "'" & Me![lstNomProjet].Column(0) & "'"
        sql = sql & "AND"
        sql = sql & "[tblProjet.NoProjet]=" & Me![lstNomProjet].Column(3)
 
        DoCmd.OpenForm stDocName, , , sql

Merci d'avance pour votre aide

[LedZeppII]

Bonsoir,

il faut mettre des espaces à gauche et à droite du AND.
Les crochets droits se mettent de part et d'autre du nom de table et du nom de champ.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
    Dim sql As String
    Dim stDocName As String
 
    stDocName = "frmConsultation"
    If Me.lstNomProjet.ListIndex <> -1 Then
 
        sql = "[tblVersionProjet].[NoVersionProjet]=" & "'" & Me![lstNomProjet].Column(0) & "'"
        sql = sql & " AND "
        sql = sql & "[tblProjet].[NoProjet]=" & Me![lstNomProjet].Column(3)
 
        DoCmd.OpenForm stDocName, , , sql

D'autre part la syntaxe de ton code correspond à un champ NoVersionProjet de type texte et un champ NoProjet de type numérique.

A+

[matdrap]

Ton code ne modifiait en rien mon erreur

mais j'ai eu le temps de regarder cela en profondeur et j'ai trouver une réponse

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Dim sql As String
    Dim stDocName As String
 
    stDocName = "frmConsultation"
    If Me.lstNomProjet.ListIndex <> -1 Then
 
        sql = "[tblVersionProjet].[NoVersionProjet]=" & Me![lstNomProjet].Column(0)
        sql = sql & " AND "
        sql = sql & "[tblProjet].[NoProjet]=" & Me![lstNomProjet].Column(3)
        MsgBox sql
 
        DoCmd.OpenForm stDocName, , , sql

J'ai juste enlever les " ' " de la première ligne du sql et tout fonctionne correctement.

Merci quand même