Type d'argument Byref incompatible

Version imprimable

Bonjour,

Au sein d'un Sub, j'appelle une fonction. Tout allait bien jusqu'à ce que je dusse ajouter un nouvel input pour cette fonction, un second DAO.Recorset. Là access me renvoie le message d'erreur "Type d'argument Byref incompatible". Je ne comprends pas pourquoi! Quelqu'un a une idée? Le bout de code suit.

Merci!
Code:

1 2 3 4 5 6 7 8 9 Set rstT_Pays = db.OpenRecordset("SELECT Pays FROM T_Pays ORDER BY Pays") Do While Not rstT_Pays.EOF Set rstTemp = db.OpenRecordset("SELECT * FROM T_Prod_Prog Where T_Prod_Prog.Pays = '" & rstT_Pays.Fields(0).Value & "' ") Set rstTemp2 = db.OpenRecordset("SELECT DISTINCT Fourniture FROM T_EBC1 Where T_EBC1.Pays = '" & rstT_Pays.Fields(0).Value & "' ") ligne_fin = Bloc(xlSheet, rstTemp, rstTemp2, (ligne_fin), (num_date)) rstT_Pays.MoveNext Loop
Et la fonction Bloc :
Code:

1 2 Private Function Bloc(xlSheet As Excel.Worksheet, rstTemp As DAO.Recordset, rstTemp2 As DAO.Recordset, ligne_debut As Long, num_date As Long) As Long

29/10/2010, 15h13
Kloun

Bonjour,

Ligne_fin et num_date sont bien définis comme Long ?

Oui! Je met le code entier pour faciliter la compréhension..

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
 
Private Sub Commande1_Click()
On Error GoTo Err_Commande1_Click
 
Dim XlApp As Excel.Application
    Dim xlSheet As Excel.Worksheet
    Dim xlBook As Excel.Workbook
    Dim i As Long, j As Long
    Dim t0 As Long, t1 As Long
    Dim Date_choisie As String
    Dim Chemin As String
    Dim ligne_fin, num_date, res As Long
 
    Dim db As DAO.Database
    Dim rstT_Pays, rstTemp, rstTemp2 As DAO.Recordset
 
   t0 = Timer
 
  'Initialisations
   Set XlApp = CreateObject("Excel.Application")
   Set xlBook = XlApp.Workbooks.Add
 
   Set db = CurrentDb
 
    'Ajouter une feuille de calcul
    Set xlSheet = xlBook.Worksheets.Add
    xlSheet.Activate
 
 
        'Création des blocs de BB
    Date_choisie = Me.Modifiable4
    ligne_fin = 5
    res = 0
 
   Mise_en_forme_haut xlSheet, Date_choisie
 
   'On cherche la date
 
   If Date_choisie = "Date Notification" Then num_date = 11
   If Date_choisie = "Date FAT" Then num_date = 8
    If Date_choisie = "Date SAT" Then num_date = 9
    If Date_choisie = "Date Prévisionnelle" Then num_date = 10
 
    'Boucle de création des blocs
    Set rstT_Pays = db.OpenRecordset("SELECT Pays FROM T_Pays ORDER BY Pays")
 
    Do While Not rstT_Pays.EOF
    Set rstTemp = db.OpenRecordset("SELECT * FROM T_Prod_Prog Where T_Prod_Prog.Pays = '" & rstT_Pays.Fields(0).Value & "' ")
    Set rstTemp2 = db.OpenRecordset("SELECT DISTINCT Fourniture FROM T_Prod_Prog Where T_Prod_Prog.Pays = '" & rstT_Pays.Fields(0).Value & "' ")
        ligne_fin = Bloc(xlSheet, rstTemp, rstTemp2, (ligne_fin), (num_date))
    rstT_Pays.MoveNext
    Loop
 
   ' code de fermeture et libération des objets
 
   Chemin = Application.CurrentProject.Path + "\ Radar " + Date_choisie + ".xls"
   xlBook.SaveAs Chemin
   MsgBox "Un fichier excel a été créé à l'adresse suivante : " & Chemin
       xlBook.WebPagePreview
 
   XlApp.Quit
   Set xlSheet = Nothing
    Set xlBook = Nothing
    Set XlApp = Nothing
 
    t1 = Timer
    Debug.Print i & " enregistrements", Format(t1 - t0, "0") & " secondes"
 
Exit_Commande1_Click:
    Exit Sub
 
Err_Commande1_Click:
    MsgBox Err.Description
    Resume Exit_Commande1_Click
 
End Sub

29/10/2010, 15h24
loufab

ligne_fin est un variant... :aie:

num_date aussi

Code:

1
2
3
Dim ligne_fin as long
dim num_date as long
dim res As Long

29/10/2010, 16h27
Glherbier

Pour quelle raison? Ce que me renvoie la fonction "bloc" est un long. Ca m'interesserait de savoir!

Bon sinon j'ai mis tous ces entiers en variant, ainsi que des parenthèses autour de mes input DAO.Recordset quand j'appelle la fonction Bloc, et la réponse que m'envoie access maintenant c'est "trop peu de paramètres, 1 attendu"... Peut etre que ma requête rstTemp2 est fausse
29/10/2010, 16h41
Kloun

Si l'erreur est sur un openrecordset, c'est que la requête est fausse.
29/10/2010, 16h43
Glherbier

D'accord.

A noter que quand je fais l'appel suivant

Code:

ligne_fin = Bloc( xlSheet, rstTemp, rstTemp, ligne_fin, num_date)

avec la requête rstTemp vérifiée comme fonctionnant, la réponse retournée est "incompatibilité de type"
29/10/2010, 16h48
Kloun

Tu as bien :

Code:

Dim ligne_fin as long, num_date as long, res As Long
29/10/2010, 16h53
Glherbier

J'ai modifié tout cela en

Code:

Dim ligne_fin, num_date as variant
29/10/2010, 17h28
keita

bonjour

Code:

Dim rstT_Pays, rstTemp, rstTemp2 As DAO.Recordset

rstT_Pays et rstTemp sont des variants et non des recordsets.
fais comme ceci dabord:

Code:

Dim rstT_Pays As DAO.Recordset, rstTemp As DAO.Recordset, rstTemp2 As DAO.Recordset

merci
29/10/2010, 17h31
keita

Code:

ligne_fin = Bloc(xlSheet, rstTemp, rstTemp2, (ligne_fin), (num_date))

On doit s'attendre à quoi dans rstTemp et rstTemp2? des valeurs? des objets?
pareil pour: (ligne_fin) et (num_date); ou prennent elles leurs valeurs dans ton code? et que signifient les parenthèses qui les entourent?
merci
29/10/2010, 18h28
loufab

Bonjour,

Cette discussion devient incompréhensible.

Ce serait mieux de traiter les problèmes un par un.

D'abord le typage des variables.
Le type des variables que tu transmets à ta fonction bloc doivent correspondre aux types de ses paramètres.

Une fois que ça sera réglé tu pourras te pencher sur ton problème de recordset.

Cordialement,
02/11/2010, 10h30
Glherbier

Merci de toutes vos réponses.

J'ai changé les types d'arguments, et finalement, comme souvent en code, j'ai changé d'approche pour n'utiliser qu'une fonction qui n'utilise en argument qu'un seul DAO.recordset, ce qui me permet d'éluder le problème sans, malheureusement, le résoudre, plus par manque de temps que d'intérêt. Et ça semble d'ailleurs marcher.