Discussion :

[marcelstan]

B

Bonjour je vous explique
l'image ci-dessus représente les relations de ma table
j'ai fais le code ci-dessous

Code VBA access :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Public Function StatutRest(Type_Lieu_Retour, Code_Lieu_Retour, Code_Lieu_Arrivée) As String
  Dim i, j As Integer
   i = 0
   If Type_Lieu_Retour = "AV" And Code_Lieu_Retour = "1" Then StatutRest = "AV1"
   If Type_Lieu_Retour = "CL" Then StatutRest = "Clients"
   If Type_Lieu_Retour = "AU" Then StatutRest = "GGE"
   If IsNull(Code_Lieu_Arrivée) = True Or Code_Lieu_Arrivée = "0" Then i = 1
   If Type_Lieu_Retour = "FR" And i = 1 Then
          StatutRest = "GGE"
       Else
          StatutRest = [T_transport].[Lieu_Vh]
    End If
End Function

la partie en jaune ne marche pas car je souhaite affecter à statutRest la valeur du champ Lieu_Vh de T_transport correpondant et je ne sais pas pourquoi.
Si quelqu'un à une idée de comment resoudre ce pb je lui serai reconnaissant.

[marot_r]

Bonjour.

C'est une histoire de visibilité des objets. Ta fonction ne connaît rien de cette table. Elle ne connaît que ses propres variables, ses paramètres et éventuellement des variables globales.
Les tables et champs utilisés sont locaux à la requête.

Il faut donc que tu lui fournisses l'information.

De ce que je comprends de ta requête, la solution qui me paraît la plus simple est

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
Public Function StatutRest(Type_Lieu_Retour as string, Code_Lieu_Retour as string, Code_Lieu_Arrivée as variant, _
                                                  Lieu_VH as variant) As String
  Dim i, j As Integer
   i = 0
 
   If Type_Lieu_Retour = "AV" And Code_Lieu_Retour = "1" Then StatutRest = "AV1"
   If Type_Lieu_Retour = "CL" Then StatutRest = "Clients"
   If Type_Lieu_Retour = "AU" Then StatutRest = "GGE"
   If IsNull(Code_Lieu_Arrivée) = True Or Code_Lieu_Arrivée = "0" Then i = 1
   If Type_Lieu_Retour = "FR" And i = 1 Then
          StatutRest = "GGE"
       Else
          StatutRest = Lieu_Vh
    End If
 
End Function

En passant je te suggère d'utiliser un autre nom que "i" pour ton drapeau. "i" est généralement utilisé pour les compteurs de boucle.

Ici je recommanderai

Code :

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

dim estSansLieuArrive as boolean : estSansLieuArrive =false

Code :

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

1
2
3
4
 
If IsNull(Code_Lieu_Arrivée) = True Or Code_Lieu_Arrivée = "0" Then 
    estSansLieuArrive = true
end if

Code :

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

1
2
3
4
5
If Type_Lieu_Retour = "FR" And estSansLieuArrive  Then
          StatutRest = "GGE"
       Else
          StatutRest = Lieu_Vh
End If

Cela rend ton code plus compréhensible et donc plus facile à maintenir.

De plus j n'est pas utilisé dans ton code et Dim i, j As Integer signifie en fait Dim i as variant, j As Integer.

A+