recordset et valeur [Résolu]

[luchoo]

Bonjour, j'ai un petit souci, je voudrais faire appel à une valeur d'un chap présent dans une table.

voici mon code :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Function fffff()

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

c'est au niveua de la partie en gras qu'il y a un souci , merci de m'aider

[Kloun]

Bonjour,

Tu veux en faire quoi de la valeur de tes champs ?

[luchoo]

Ben enfaite j'ai une autre fonction "one" ou je veux faire appelle à ma fonction "fffff"

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
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...

Ce qui est en gras est le chemin d'accès contenu dans les valeurs "nom" et prenom"

[Mycose]

Pas compris :s

Mais dans ton code :

rec![nom]
rec![prenom]

C'est des valeurs donc faut que tu en fasses quelque chose

[mkl238]

Le truc c'est que ta fonction ffffff() ne retourne aucune valeur

soit tu la transforme comme ceci:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub fffff(ByRef nom As String, ByRef prenom As String)
    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 NOT rec.EOF Then
        nom = rec! [nom]
        prenom = rec! [prenom]
    Else
        MsgBox ("Erreur")
    End If
    orst.Close
    db.Close
 
    Set orst = Nothing
    Set db = Nothing
End Sub

Et tu récupères les valeurs comme ceci:

Code :

1
2
3
4
Dim nom As String
Dim prenom As String
fffff nom, prenom
'utilise nom et prenom comme tu veux

[luchoo]

Mercii, Ahhh OUIII, !!! j'ai remodelé tout sa !!

Appele valeur:

Code :

1
2
3
4
5
6
 
Function test(personne As String) As String
etc..recordset..etc..
If rec.EOF = False Then
test = rec("nom") + rec("prenom")
End If

Apelle de la fonction qui renvoie le résultat:

Code :

1
2
3
4
 Set FSys = CreateObject("Scripting.FileSystemObject")
Set MonFic = FSys.CreateTextFile(test("value"))

'valeur "value" cherche dans la table grâce au recordset.

ET SA MARCHE !!