Erreur 3271 invalid property value

**schwinny** · 12/07/2006, 09h48

bonjour les accessien.
je deviens fou.
jai un code vba qui marche pour les 79 premiers enregistrement mais qui apres me met ce message d'erreur:

Erreur 3271 invalid property value

ca bloque sur un parametre...

voila mon code avec en rouge linstruction qui deconne

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
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
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97

Private Sub Commande31_Click()

'definition des type requetes'
Dim reqajout As DAO.QueryDef
Dim reqsuppr As DAO.QueryDef
Dim reqclemax As DAO.QueryDef
    
Dim rcs As DAO.Recordset
  
'definition du boolean suivant'
Dim booNext As Boolean

    
'declaration des differentes variables'
  
    Dim MaxDeNuméro As Long
    Dim temp As String
    Dim tempcode As String
    
    'definition du recordset de texte'
    Dim rstTemp As Recordset
    'passer a la ligne'
    Set rstTemp = Me.Recordset
    
    'initialisation des variable'
    booNext = True
 temp = ""
 
'mise en relation variable/requete'
Set reqsuppr = CurrentDb.QueryDefs("suppression_champs_movex")
Set reqajout = CurrentDb.QueryDefs("ajout_en_attente")
Set reqMAJ = CurrentDb.QueryDefs("update_en_attente")




'debut de lalgo de regroupement'
With rstTemp
 
    'Initialisation des variables'

        'Définition de la clé'
        tempcode = OAORNO

        'Affectation valeur nulle a temp...'
      
  
    Do While booNext

                           
        'tant que lon à le meme code, faire'
        Do While (tempcode = OAORNO) And Not .EOF
            'ajout de champs dans la variable'
            temp = temp & Chr(32) & Trim(TLTX60)
            tempcode = OAORNO
            .MoveNext
        Loop
               
       

       'parametrage du numéro de reclamation pour la requete'
       reqajout.Parameters("Clé") = tempcode
       
       'si on veut la taille caractere'
       ''MsgBox ("Taille variable Temp : " & Len(temp)) '
       
       
       reqMAJ.Parameters("Clé") = tempcode
       reqMAJ.Parameters("temp") = temp       'lancement de la requete d'ajout Movex --> En_attente'
       reqajout.Execute
       reqMAJ.Execute
              
                    
            'ya til une ligne apres???'
            If .EOF Then
                'non donc sortie de lalgo'
                booNext = False
            Else
                'oui donc ReDéfinition de la clé et formatage champ temporaire'
                tempcode = OAORNO
                temp = ""
                
            End If
         
         
    Loop
                        
                          
End With
'lancement de la requete de suppression des enregistrement Movex'
reqsuppr.Execute
rstTemp.Close

    
End Sub

je pense que ca doit etre un pb d ememoire prise mais comment la liberer? qqun a une idée si ce nest pas ca?