B
Nom : relations.jpg
Affichages : 944
Taille : 85,9 Ko
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.