Problème incompatibilté de type ACCESS
joel
-
kubito Messages postés 320 Statut Membre -
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
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:
- Problème incompatibilté de type ACCESS
- Clear type - Guide
- Access runtime ✓ - Forum Access
- Type de ram - Guide
- Cannot access offset of type string on string - Forum PHP
- Incompatibilité de type vba ✓ - Forum VB / VBA
2 réponses
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
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
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)
joel
Merci de ta réponse , c'était effectivement cela ca marche