appeler une fonction [Résolu]

[luchoo]

bonjour, j'ai un petit problème au niveau de l'appel de ma fonction. voici mon code:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Function one()

'variable
Dim db As DAO.Database
Dim rst As DAO.Recordset

'ouverture de la base de donnée : recordset
Set db = CurrentDb
Set rst = db.OpenRecordset("Requête1", dbOpenSnapshot)

'création et ouverture du fichier txt
Set FSys = CreateObject("Scripting.FileSystemObject")
Set MonFic = FSys.CreateTextFile (ici je veu appeler le résultat de ma fonction two)

'écriture dans le fichier txt
With MonFich
.writeline "<?xml version=""" & "1.0" & """ encoding=""" & "windows-1252" & """>"
.writeline ""
etc...

Code :

1
2
3
4
5
6
7
8
9
 
Function two(pI As String) As String
'variable
Dim db As DAO.Database
Dim rec As DAO.Recordset
 
'ouverture de la base de donnée : recordset
Set db = CurrentDb
Set rec = db.OpenRecordset("Select [nom],[prenom] From [tbl_nomprenom]Where [ID]='" & num1 & "'", dbOpenSnapshot)

les valeurs de nom et prenom sont mon chemin d'accès, pouvez-vous m'aider ?

[Kloun]

Bonjour,

La fonction ne renvoie rien.
Le paramètre "pI"de la fonction n'est pas utilisé.
La fonction utilise une variable "num1" non déclarée.

[luchoo]

ok merci de ta réponse, mais quel est mon erreur ou mon oubli?

[pier.antoine]

Bonjour

Une fonction renvoie un résultat; une procédure, elle, est la suite de plusieurs instructions.

Dans ce que vous nous donner, la fonction One, ne semble rien renvoyer.
C'est à dire qu'on ne trouve pas à un moment donné

One = "Mon résultat"
Pour moi, c'est juste des instructions pour écrire dans un fichier.

Pareil pour la fonction Two, qui est semble juste ouvrir un recordset.


A revoir donc.

Pierre

[luchoo]

Merci pour votre réponse mais voila j'ai changer ma fonction "two", elle devrait renvoyer un résultat, et je voudrais l'appeler à l'endroit en gras de la focntion "one", comment fait-on?

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Function two()
 
Dim db As DAO.Database
Dim rec As DAO.Recordset
 
Set db = CurrentDb
Set rec = db.OpenRecordset("Select [nom],[prenom]From [tbl_nomprenom] Where [ID]='" & num2 & "'", dbOpenSnapshot)
 
 
If rec.EOF = False Then
 
rec! [nom]
rec! [prenom]
Else
MsgBox ("Erreur")
End If
orst.Close
db.Close
 
Set orst = Nothing
Set db = Nothing
 
End Function

[spaiku]

Bonjour,

je pense que tu devrais prendre le temps de lire un ou deux tutos sur les bases de la programmation. Mais comme je suis dans un bon jour...

Pour qu'une fonction puisse renvoyer une valeur, il faut que :
1) tu déclares le type de variable qu'elle va renvoyer. Exemple :

Code :

Function toto (Argument As Variant) As String

Cette fonction comprend un argument de type Variant, et renvoie une variable de type String.

2) A l'intérieur de la fonction, tu dois clairement exprimer la valeur retourner par la fonction (VBA ne le devinera pas). Exemple :

Code :

1
2
3
Function toto () As String
    toto = "valeur retournée"
End Function

Et c'est tout. Pour appeler ta fonction, il suffit de taper son nom. Exemple :

Code :

1
2
3
Function AfficherToto()
    MsgBox toto()
End Function

Mais encore une fois, prends le temps de lire les tutos et les FAQ. Tu te dis sûrement que ce n'est pas ce qui va faire avancer ton projet, mais crois-moi, c'est un gain de temps dont tu te rendras compte plus vite que tu ne le penses.

[luchoo]

Merci bcp, je viens de débuter en vba, mais je vais suivre ton conseil et regarder les tutos, bonne journée!