Discussion :

[maclolo2]

bonjour,
Mon findfirst ne marche pas cela me met :"erreur de syntaxe (operateur) absent dans l'expression"

Code :

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

1
2
3
Dim rst3 As DAO.Recordset
    Set rst3 = Db.OpenRecordset("SELECT * FROM T_transporteur")
        rst3.FindFirst ("[N°]=" & RSt1.Fields("Transporteur"))

quelqu'un pourrait m'aider

merci

[Mr.Mof]

Bonjour,

Je pense que ça peut venir du

Code :

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

 RSt1.Fields("Transporteur")

. Tu as vérifié ce que ça te te retourne comme valeur?

Cordialement.

[maclolo2]

bonjour,
J'ai une 1ére table T_trajetaller avec le nom du transporteur et une 2éme table T_transporteur avec le n° et le nom du transporteur et l'adresse mail.
je voudrais que s'il ya correspondance entre le nom du transporteur qui se trouve dans T_trajetaller et T_Transporteur que je puisse recuperer l'adresse mail dans t_transporteur

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Dim rst3 As DAO.Recordset
dim rst1 as dao recordset
dim db as currentdb
set rst1 = Db.OpenRecordset("T_trajetaller")
Set rst3 = Db.OpenRecordset("SELECT * FROM T_transporteur")
rst3.FindFirst ("[Transporteur]=" & RSt1.Fields("Transporteur"))
if not rs3.nomatch then
appexcel.cells(18,2)=rst3.fields("Email")
else
msgbox "erreur"
end if

le code ne marche pas je n'arrive pas a recuperer l'adresse mail.

quelqu'un aurait une solution

merci

[titi95]

Bonjour

Il me semble que tu devrais reprendre la structure et l'organisation de ta base

1) table T_transporteur

une 2éme table T_transporteur avec le n° et le nom du transporteur et l'adresse mail.

Si ce n'est pas le cas, met un champ Numauto dans cette table
Si ce n'est pas déjà fait, crée un formulaire qui te permet de tenir à jour cette table

2) table T_trajetaller

une 1ére table T_trajetaller avec le nom du transporteur

Ne recopie pas dans une table des données d'une autre table !
Si ce n'est pas le cas, met un champ Numauto dans cette table
Supprime le champ "nom du transporteur"
Crée un champ NumTransporteur
Si ce n'est pas déjà fait, crée un formulaire qui te permet de tenir à jour cette table
Formulaire avec une liste déroulante permettant de choisir le transporteur, et de tenir à jour le champ NumTransporteur = Numauto de la table T_transporteur

3) Ensuite tu peux construire une requête sur les deux tables avec une relation entre les 2 champs cités (pas en VBA dans un premier temps, mais avec le mode Création)

titi95

[maclolo2]

merci beaucoup pour votre aide.
J'ai fait crée un champs email dans la table trajet pour faire un lien avec transporteur.
ca fonctionne