Problème incompatibilté de type ACCESS

joel -  
kubito Messages postés 320 Statut Membre -
bonjour à tous ,
j'ai un soucis avec access , je viens de passer d'une version 97 à 2002 et j'ai un pbs de compatibilité de type que je ne comprend pas

est-ce que quelqu'un peut m'aider

voici le code concerné :
If Me![Mode2] = "1" Then
Dim stDocName As String, vfound As Boolean, Rtrs As Recordset, vbase As Variant, vtranche As Variant
DoCmd.SetWarnings False
If IsNull(Me![gie_transport Mque]) Then
Me![gie_transport Mque] = 0
End If
If Me![gie_poidsbrut1] > 0 Then
If Not IsNull(frecge_transport) Then
MsgBox "avant me"
Me.[Frais de Transport].Requery
MsgBox "apres me avant set "
Set Rtrs = Me.[Frais de Transport].Form.RecordsetClone <==le pbs est la
MsgBox "apres set "
MsgBox Rtrs
Rtrs.MoveFirst
vtranche = Me![gie_poidsbrut1] / Me![gie_nbretransport]
Do Until Rtrs.EOF
If vtranche > Rtrs![Debut] And vtranche <= Rtrs![Fin] Then
MsgBox "4"
If Rtrs![Forfait] = True Then
Me![gie_transport Mque] = Me![gie_nbretransport] * Rtrs![Frais]
Else
Me![gie_transport Mque] = Me![gie_nbretransport] * Me![gie_poidsbrut1] * Rtrs![Frais]
End If
End If
Rtrs.MoveNext
Loop
End If
End If

j'ai le message suivant dans une fenêtre access

INCOMPATIBILITé DE TYPE

j'espère que quelqu'un pourra m'aider

Merci
A voir également:

2 réponses

kubito Messages postés 320 Statut Membre 12
 
slt,

essi de remplacer ta variable "Rtrs As Recordset" par "Rtrs As DAO.Recordset".
Puis tu testes.
Si ca marche pas, regarde dans tes complements si le DAO est active.
Sinon, ben... ??

_______________________________
SCV ready to go sir
0
joel
 
Merci de ta réponse je vais essayer aujourd'hui même , je réside en Martinique donc avec le décalage , je n'ai pu lire ton message que ce matin ( lundi matin 19/07)
0
joel
 
Merci de ta réponse , c'était effectivement cela ca marche
0
kubito Messages postés 320 Statut Membre 12
 
pas de probleme, si je peux rendre service...

_______________________________
SCV ready to go sir
0