Discussion :

[Tintou]

Bonjour,

J'ai défini une fonction que voici :

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
21
22
23
24
25
26
27
 
Public Sub publipostage(ByVal IDreport As Integer, ByVal ltmc As String, ByVal contractn As Integer, _
                        ByVal MCConfig As String, ByVal MCNumber As String, ByVal RobotConfig As String, ByVal RobotNumber As String, _
                        ByVal customern As String, ByVal Mold1n As String, ByVal mold2n As String, ByVal hmr As String, _
                        ByVal datum As Date, ByVal techn As String, ByVal custcont As String)
 
 
    Dim listres As String
    listres = "SELECT ResID, ReportID, QuestID, Comments, Status, Quote, pic1, pic2, pic3, pic4, OrderID FROM RESULTS WHERE ReportID = " & IDreport & " ORDER BY ResID;"
    Set listresrs = db.OpenRecordset(listres, DB_OPEN_SNAPSHOT)
 
If listresrs.RecordCount <> 0 Then
 
    listresrs.MoveLast
    l = listresrs(0).Value
    listresrs.MoveFirst
    f = listresrs(0).Value
End If
 
opprogresssbar
 
listresrs.MoveFirst
 
'OpenWord
Set myWord = New Word.Application
'Open the doc in read only and hide it
With myWord.....

Et je souhaiterais l'utiliser depuis un formulaire, sur l'évènement du boutton souhaité j'ai mis le code suivant:

Code :

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

1
2
3
4
 
publipostage(Me.reportID, Form_ReportInfo.ltm, Form_ReportInfo.contractname.Column(0), Me.MCSerial, Me.serial, Form_ReportInfo.RobotSerial, _
            Form_ReportInfo.serialr, Form_ReportInfo.customer, Form_ReportInfo.Mold1Serial, Form_ReportInfo.Mold2Serial, Form_ReportInfo.HourMeterReading, _
            Form_ReportInfo.dat, Form_ReportInfo.MSE.Column(1), Form_ReportInfo.custcontact)

Et là j'ai une erreur me disant qu'il attend un égal (=), je ne comprends pas car ma fonction ne retourne rien.

Merci d'avance.

[Demco]

Si tu utilises des parenthèses pour les paramètres, un retour est attendu. Enlève les parenthèses lors de l'appel et ça fonctionnera (ou peut-être qu'en mettant juste Call devant la fonctionnera également, à voir).

En espérant t'aider.

[Tintou]

ça a l'air de marcher, encore des ptits bugs mais ça me débloque déjà.
Merci.