Discussion :

[zanou666]

Bonjour,je voudrais faire une fonction qui irait chercher des informations dans une table. je m'explique :
j'ai une table avec 3 champs : départ - arrivée - durée de transport
je voudrait une fonction durée (départ,arrivée) qui me donne la durée du transport en fonction des 2 pays.
comment faire ?
merci d'avance de l'aide

[Demco]

Bonjour et bienvenue,

je voudrais faire une fonction qui irait chercher des informations dans une table.

Intéresse toi aux RecordSet (cf. FAQ) ou aux DLookUp si tu as seulement besoin d'un enregistrement.

je voudrait une fonction durée (départ,arrivée) qui me donne la durée du transport en fonction des 2 pays.

Intéresse-toi à la fonction DateDiff().

En espérant t'aider.

[zanou666]

En fait, les 2 phrases sont un seul problème.

j'ai essayé avec recordset, mais je n'arrive pas à paramétrer : j'arrive à avoir la valeur quand je rentre le départ et l'arrivée directement dans le code VB, mais je n'arrive pas à le transformer en fonction.

j'ai ça dans mon VB :

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
 
Function recherche()
 
Dim rst As DAO.Recordset
Dim SQL As String
Dim v As Variant
 
SQL = "Select * From [Délai transport] where ([pays départ]= 'France' and [pays arrivée]='France') "
 
'open
Set rst = CurrentDb.OpenRecordset(SQL, dbOpenDynaset, dbReadOnly)
 
 
'traitement
v = rst![minimum]
 
End Function

[userB]

C'est sans doute un des fondamentaux ta question, une fois que tu auras saisi la logique globale tu aurais elucider pres de 70% des problemes que tu rencontrera.

Pour t'aider je fais grossierement la fonction en pseudo code (donc ne fait pas attention à la syntaxe)
Je ferais quelque chose de la forme suivante :

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
 
Public function DuréeVol (dim P_Depart as string, dim P_Arrive as string)
 
dim rs as new ADODB.recordset
dim sStrSql as string
Dim sResultat as string
 
sStrSql = "SELECT DureeVol"
sStrSql = sStrSql & " FROM MaTable"
sStrSql = sStrSql & " WHERE PaysDepart = " & """" & P_Depart & """" & " AND PaysArrive = " & """" & P_Arrive & """"
 
rs.open sStrSql, CurrentDB
 
sResultat = rs("DureeVol") ' dans le cas ou tu ai une seule reponse pour le couple donné, sinon tu devras faire une boucle tant que avec comme condition de sorti EOF -End Of File-
 
' tu liberes la memoire
rs.close
set rs = nothing
 
end function

Voila voila, alors c'est dans les grandes lignes, faut qeu tu affines (enormement) le code.

[Demco]

Remarque :
zanou666 a utilisé DAO, le code que tu (userB) lui présentes utilise ADO.
Il travaille sur une base Access donc mieux vaut utiliser DAO.

Pour savoir comment parcourir avec un RecordSet avec DAO, la réponse est également dans la FAQ. (Tu as d'ailleurs un tutoriel dans la page des tuto, sur DAO et ADO)

Sinon tu peux tout à fait utiliser ADO comme te le suggère userB.

[zanou666]

Voilà le code que j'utilise, mais lorsque je calcule la valeur pour 2 pays, la réponse est #nom? . j'ai vérifié, le nom des tables, champs mais tout est correct. d'où est-ce que ça peut venir ?

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
 
Public Function DuréeTransport(P_Depart As String, P_Arrive As String)
 
Dim rs As New ADODB.Recordset
Dim sStrSQL As String
Dim sResultat As String
 
sStrSQL = "SELECT [minimum]"
sStrSQL = sStrSQL & " FROM [Délai transport]"
sStrSQL = sStrSQL & " WHERE [pays départ] = " & """" & P_Depart & """" & " AND [pays arrivée] = " & """"" & P_Arrive & """""
 
rs.Open sStrSQL, CurrentDb
 
sResultat = rs(minimum)
 
rs.Close
Set rs = Nothing
 
End Function

[Demco]

Essaie peut-être le tutoriel de debuggage de requêtes SQL écrites en VBA que tu trouveras dans ma signature.

En espérant t'aider.

[zanou666]

le problème vient de la ligne de SQL. quand je mets un Debug.print sur le SQL, j'obtiens cela :

SELECT [minimum] FROM [Délai transport] WHERE [pays départ] = "" AND [pays arrivée] = "" & P_Arrive & ""

Il ne prend pas en compte les valeurs que je lui donne quand j'appelle la fonction : Result = DuréeTransport(France, France)