bonjour, j'ai un petit problème au niveau de l'appel de ma fonction. voici mon code:
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 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...les valeurs de nom et prenom sont mon chemin d'accès, pouvez-vous m'aider ?
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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)
Partager