Voici une partie de mon code, access me donne une erreur
(13 erreur de compatibilite de type) =E0 la ligne 4 (set=20
matable =3D ...)
Conso est le nom de ma table
Pouvez vous me dire ce qui cloche ???
test =3D Me!encodage & "-" & Me!id_vehicule
Dim MaTable As Recordset
Set MaBase =3D CurrentDb()
Set MaTable =3D MaBase.OpenRecordset("Conso")
Do Until MaTable.EOF =3D True
If MaTable("conso_periode") =3D test Then
MsgBox ("Cette r=E9f=E9rence existe d=E9j=E0")
End If
MaTable.MoveNext
Loop
MaTable.Close
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Gaël Schmitt
Bonjour,
Essayes de faire cela : Set Matable = MaBase.openrecordset("select * from Conso",dbOpenDynamic)
Gael. "Mutchafu" a écrit dans le message de news:029e01c393c1$f8c6dfa0$ Voici une partie de mon code, access me donne une erreur (13 erreur de compatibilite de type) à la ligne 4 (set matable = ...) Conso est le nom de ma table Pouvez vous me dire ce qui cloche ???
test = Me!encodage & "-" & Me!id_vehicule Dim MaTable As Recordset Set MaBase = CurrentDb() Set MaTable = MaBase.OpenRecordset("Conso") Do Until MaTable.EOF = True If MaTable("conso_periode") = test Then MsgBox ("Cette référence existe déjà") End If MaTable.MoveNext Loop MaTable.Close
Bonjour,
Essayes de faire cela :
Set Matable = MaBase.openrecordset("select * from Conso",dbOpenDynamic)
Gael.
"Mutchafu" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:029e01c393c1$f8c6dfa0$a001280a@phx.gbl...
Voici une partie de mon code, access me donne une erreur
(13 erreur de compatibilite de type) à la ligne 4 (set
matable = ...)
Conso est le nom de ma table
Pouvez vous me dire ce qui cloche ???
test = Me!encodage & "-" & Me!id_vehicule
Dim MaTable As Recordset
Set MaBase = CurrentDb()
Set MaTable = MaBase.OpenRecordset("Conso")
Do Until MaTable.EOF = True
If MaTable("conso_periode") = test Then
MsgBox ("Cette référence existe déjà")
End If
MaTable.MoveNext
Loop
MaTable.Close
Essayes de faire cela : Set Matable = MaBase.openrecordset("select * from Conso",dbOpenDynamic)
Gael. "Mutchafu" a écrit dans le message de news:029e01c393c1$f8c6dfa0$ Voici une partie de mon code, access me donne une erreur (13 erreur de compatibilite de type) à la ligne 4 (set matable = ...) Conso est le nom de ma table Pouvez vous me dire ce qui cloche ???
test = Me!encodage & "-" & Me!id_vehicule Dim MaTable As Recordset Set MaBase = CurrentDb() Set MaTable = MaBase.OpenRecordset("Conso") Do Until MaTable.EOF = True If MaTable("conso_periode") = test Then MsgBox ("Cette référence existe déjà") End If MaTable.MoveNext Loop MaTable.Close
Marc
Salut,
Set MaBase = CurrentDb ' sans les parenthese peut-etre
A+ Marc -- Ce message a ete poste via la plateforme Web club-Internet.fr This message has been posted by the Web platform club-Internet.fr
http://forums.club-internet.fr/
Salut,
Set MaBase = CurrentDb ' sans les parenthese peut-etre
A+
Marc
--
Ce message a ete poste via la plateforme Web club-Internet.fr
This message has been posted by the Web platform club-Internet.fr
Set MaBase = CurrentDb ' sans les parenthese peut-etre
A+ Marc -- Ce message a ete poste via la plateforme Web club-Internet.fr This message has been posted by the Web platform club-Internet.fr
http://forums.club-internet.fr/
Raymond
Bonsoir.
je n'ai pas compris pourquoi tu fais une telle procédure. si c'est pour rechercher une référence tu peux utiliser FindFirst qui ira beaucoup plus vite et ton code sera beaucoup plus court.
Sinon, ta procédure doit être celle-ci:
Dim MaBase As DAO.Database Dim MaTable As DAO.Recordset Dim Test As String Test = Me!encodage & "-" & Me!id_vehicule Set MaBase = CurrentDb Set MaTable = MaBase.OpenRecordset("Conso") Do Until MaTable.EOF If MaTable!conso_periode = Test Then MsgBox ("Cette référence existe déjà") Exit Do End If MaTable.MoveNext Loop MaTable.Close Set MaTable = Nothing Set MaBase = Nothing
-- @+ Raymond Access MVP. http://access.seneque.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/charte.htm pour une meilleure efficacité de tes interventions sur MPFA.
"Mutchafu" a écrit dans le message de news:029e01c393c1$f8c6dfa0$ Voici une partie de mon code, access me donne une erreur (13 erreur de compatibilite de type) à la ligne 4 (set matable = ...) Conso est le nom de ma table Pouvez vous me dire ce qui cloche ???
test = Me!encodage & "-" & Me!id_vehicule Dim MaTable As Recordset Set MaBase = CurrentDb() Set MaTable = MaBase.OpenRecordset("Conso") Do Until MaTable.EOF = True If MaTable("conso_periode") = test Then MsgBox ("Cette référence existe déjà") End If MaTable.MoveNext Loop MaTable.Close
Bonsoir.
je n'ai pas compris pourquoi tu fais une telle procédure. si c'est pour
rechercher une référence tu peux utiliser FindFirst qui ira beaucoup plus
vite et ton code sera beaucoup plus court.
Sinon, ta procédure doit être celle-ci:
Dim MaBase As DAO.Database
Dim MaTable As DAO.Recordset
Dim Test As String
Test = Me!encodage & "-" & Me!id_vehicule
Set MaBase = CurrentDb
Set MaTable = MaBase.OpenRecordset("Conso")
Do Until MaTable.EOF
If MaTable!conso_periode = Test Then
MsgBox ("Cette référence existe déjà")
Exit Do
End If
MaTable.MoveNext
Loop
MaTable.Close
Set MaTable = Nothing
Set MaBase = Nothing
--
@+
Raymond Access MVP.
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/charte.htm pour une meilleure
efficacité de tes interventions sur MPFA.
"Mutchafu" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:029e01c393c1$f8c6dfa0$a001280a@phx.gbl...
Voici une partie de mon code, access me donne une erreur
(13 erreur de compatibilite de type) à la ligne 4 (set
matable = ...)
Conso est le nom de ma table
Pouvez vous me dire ce qui cloche ???
test = Me!encodage & "-" & Me!id_vehicule
Dim MaTable As Recordset
Set MaBase = CurrentDb()
Set MaTable = MaBase.OpenRecordset("Conso")
Do Until MaTable.EOF = True
If MaTable("conso_periode") = test Then
MsgBox ("Cette référence existe déjà")
End If
MaTable.MoveNext
Loop
MaTable.Close
je n'ai pas compris pourquoi tu fais une telle procédure. si c'est pour rechercher une référence tu peux utiliser FindFirst qui ira beaucoup plus vite et ton code sera beaucoup plus court.
Sinon, ta procédure doit être celle-ci:
Dim MaBase As DAO.Database Dim MaTable As DAO.Recordset Dim Test As String Test = Me!encodage & "-" & Me!id_vehicule Set MaBase = CurrentDb Set MaTable = MaBase.OpenRecordset("Conso") Do Until MaTable.EOF If MaTable!conso_periode = Test Then MsgBox ("Cette référence existe déjà") Exit Do End If MaTable.MoveNext Loop MaTable.Close Set MaTable = Nothing Set MaBase = Nothing
-- @+ Raymond Access MVP. http://access.seneque.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/charte.htm pour une meilleure efficacité de tes interventions sur MPFA.
"Mutchafu" a écrit dans le message de news:029e01c393c1$f8c6dfa0$ Voici une partie de mon code, access me donne une erreur (13 erreur de compatibilite de type) à la ligne 4 (set matable = ...) Conso est le nom de ma table Pouvez vous me dire ce qui cloche ???
test = Me!encodage & "-" & Me!id_vehicule Dim MaTable As Recordset Set MaBase = CurrentDb() Set MaTable = MaBase.OpenRecordset("Conso") Do Until MaTable.EOF = True If MaTable("conso_periode") = test Then MsgBox ("Cette référence existe déjà") End If MaTable.MoveNext Loop MaTable.Close
