Bonjour =E0 vous tous. mon syst=E8me =E0 planter et j'ai d=FB=20
reformater et je suis =E0 l'=E9tape de faire refonctionner le=20
tout.=20
dans les lignes de codes suivantes elle me donne une=20
erreur=20
type d=E9fini par l'utilisateur non d=E9fini.
voici le code:
2 ieme question quel est le nom de la biblioth=E8que dans=20
access qui permet de faire fonctionner correctement les=20
lignes de codes suivantes.
merci de votre aide.
Dim cn As ADODB.Connection, rs As ADODB.Recordset, r As=20
Long
' connect to the Access database
Set cn =3D New ADODB.Connection
cn.Open "Provider=3DMicrosoft.Jet.OLEDB.4.0; " & _
"Data Source=3DC:\Mes documents\base de=20
donn=E9es\Rapports Financiers.mdb;"
' open a recordset
Set rs =3D New ADODB.Recordset
rs.Open "tresorerie", cn, adOpenKeyset,=20
adLockOptimistic, adCmdTable
' all records in a table
r =3D 2 ' the start row in the worksheet
Do While Len(Range("A" & r).Formula) > 0
' repeat until first empty cell in column A
With rs
.AddNew ' create a new record
' add values to each field in the record
.Fields("datgl") =3D Range("A" & r).Value
.Fields("nogl") =3D Range("B" & r).Value
.Fields("desgl") =3D Range("C" & r).Value
.Fields("pregl") =3D Range("d" & r).Value
.Fields("debgl") =3D Range("e" & r).Value
.Fields("cregl") =3D Range("f" & r).Value
.Fields("moisgl") =3D Range("g" & r).Value
.Fields("soldegl") =3D Range("h" & r).Value
=20
=20
' add more fields if necessary...
.Update ' stores the new record
End With
r =3D r + 1 ' next row
Loop
rs.Close
Set rs =3D Nothing
cn.Close
Set cn =3D Nothing
dans les lignes de codes suivantes elle me donne une erreur type défini par l'utilisateur non défini.
Dans le VBE, regarde le menu Outils, Références
Tu en a de noté "Manquante" ou bien la référence n'est pas cochée.
-- A+ Pierre (3stone) Access MVP ----------------------------- http://users.skynet.be/mpfa -----------------------------
Raymond [mvp]
Bonjour.
coches les lignes : Microsoft ActiveX Data Objects 2.x library Microsoft ActiveX Data Objects recordset 2.x library et tout doit passer. -- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access.vba.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"jacques" a écrit dans le message de news:2322f01c45ea5$bc699f70$ Bonjour à vous tous. mon système à planter et j'ai dû reformater et je suis à l'étape de faire refonctionner le tout.
dans les lignes de codes suivantes elle me donne une erreur type défini par l'utilisateur non défini.
voici le code:
2 ieme question quel est le nom de la bibliothèque dans access qui permet de faire fonctionner correctement les lignes de codes suivantes.
merci de votre aide.
Dim cn As ADODB.Connection, rs As ADODB.Recordset, r As Long ' connect to the Access database
Set cn = New ADODB.Connection cn.Open "Provider=Microsoft.Jet.OLEDB.4.0; " & _ "Data Source=C:Mes documentsbase de donnéesRapports Financiers.mdb;" ' open a recordset
Set rs = New ADODB.Recordset rs.Open "tresorerie", cn, adOpenKeyset, adLockOptimistic, adCmdTable ' all records in a table
r = 2 ' the start row in the worksheet
Do While Len(Range("A" & r).Formula) > 0 ' repeat until first empty cell in column A With rs .AddNew ' create a new record ' add values to each field in the record .Fields("datgl") = Range("A" & r).Value .Fields("nogl") = Range("B" & r).Value .Fields("desgl") = Range("C" & r).Value .Fields("pregl") = Range("d" & r).Value .Fields("debgl") = Range("e" & r).Value .Fields("cregl") = Range("f" & r).Value .Fields("moisgl") = Range("g" & r).Value .Fields("soldegl") = Range("h" & r).Value
' add more fields if necessary... .Update ' stores the new record End With r = r + 1 ' next row Loop rs.Close Set rs = Nothing cn.Close Set cn = Nothing
Bonjour.
coches les lignes :
Microsoft ActiveX Data Objects 2.x library
Microsoft ActiveX Data Objects recordset 2.x library
et tout doit passer.
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"jacques" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:2322f01c45ea5$bc699f70$a601280a@phx.gbl...
Bonjour à vous tous. mon système à planter et j'ai dû
reformater et je suis à l'étape de faire refonctionner le
tout.
dans les lignes de codes suivantes elle me donne une
erreur
type défini par l'utilisateur non défini.
voici le code:
2 ieme question quel est le nom de la bibliothèque dans
access qui permet de faire fonctionner correctement les
lignes de codes suivantes.
merci de votre aide.
Dim cn As ADODB.Connection, rs As ADODB.Recordset, r As
Long
' connect to the Access database
Set cn = New ADODB.Connection
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0; " & _
"Data Source=C:Mes documentsbase de
donnéesRapports Financiers.mdb;"
' open a recordset
Set rs = New ADODB.Recordset
rs.Open "tresorerie", cn, adOpenKeyset,
adLockOptimistic, adCmdTable
' all records in a table
r = 2 ' the start row in the worksheet
Do While Len(Range("A" & r).Formula) > 0
' repeat until first empty cell in column A
With rs
.AddNew ' create a new record
' add values to each field in the record
.Fields("datgl") = Range("A" & r).Value
.Fields("nogl") = Range("B" & r).Value
.Fields("desgl") = Range("C" & r).Value
.Fields("pregl") = Range("d" & r).Value
.Fields("debgl") = Range("e" & r).Value
.Fields("cregl") = Range("f" & r).Value
.Fields("moisgl") = Range("g" & r).Value
.Fields("soldegl") = Range("h" & r).Value
' add more fields if necessary...
.Update ' stores the new record
End With
r = r + 1 ' next row
Loop
rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing
coches les lignes : Microsoft ActiveX Data Objects 2.x library Microsoft ActiveX Data Objects recordset 2.x library et tout doit passer. -- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access.vba.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"jacques" a écrit dans le message de news:2322f01c45ea5$bc699f70$ Bonjour à vous tous. mon système à planter et j'ai dû reformater et je suis à l'étape de faire refonctionner le tout.
dans les lignes de codes suivantes elle me donne une erreur type défini par l'utilisateur non défini.
voici le code:
2 ieme question quel est le nom de la bibliothèque dans access qui permet de faire fonctionner correctement les lignes de codes suivantes.
merci de votre aide.
Dim cn As ADODB.Connection, rs As ADODB.Recordset, r As Long ' connect to the Access database
Set cn = New ADODB.Connection cn.Open "Provider=Microsoft.Jet.OLEDB.4.0; " & _ "Data Source=C:Mes documentsbase de donnéesRapports Financiers.mdb;" ' open a recordset
Set rs = New ADODB.Recordset rs.Open "tresorerie", cn, adOpenKeyset, adLockOptimistic, adCmdTable ' all records in a table
r = 2 ' the start row in the worksheet
Do While Len(Range("A" & r).Formula) > 0 ' repeat until first empty cell in column A With rs .AddNew ' create a new record ' add values to each field in the record .Fields("datgl") = Range("A" & r).Value .Fields("nogl") = Range("B" & r).Value .Fields("desgl") = Range("C" & r).Value .Fields("pregl") = Range("d" & r).Value .Fields("debgl") = Range("e" & r).Value .Fields("cregl") = Range("f" & r).Value .Fields("moisgl") = Range("g" & r).Value .Fields("soldegl") = Range("h" & r).Value
' add more fields if necessary... .Update ' stores the new record End With r = r + 1 ' next row Loop rs.Close Set rs = Nothing cn.Close Set cn = Nothing
JACQUES
MERCI DE VOTRE AIDE MAINTENANT ELLE BUG À adOpenKeyset
ET ELLE DIT PROJET OU BIBLIOTHÈQUE INTROUVABLE
J'AI COCHÉ
Microsoft ActiveX Data Objects 2.x library MAIS L'AUTRE PORTE LE CHIFFRE 2.5 AU LIEUX DE 2.X
COMME SUIT Microsoft ActiveX Data Objects recordset 2.5 library
-----Message d'origine----- Bonjour.
coches les lignes : Microsoft ActiveX Data Objects 2.x library Microsoft ActiveX Data Objects recordset 2.x library et tout doit passer. -- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access.vba.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"jacques" a écrit dans le message de
news:2322f01c45ea5$bc699f70$ Bonjour à vous tous. mon système à planter et j'ai dû reformater et je suis à l'étape de faire refonctionner le tout.
dans les lignes de codes suivantes elle me donne une erreur type défini par l'utilisateur non défini.
voici le code:
2 ieme question quel est le nom de la bibliothèque dans access qui permet de faire fonctionner correctement les lignes de codes suivantes.
merci de votre aide.
Dim cn As ADODB.Connection, rs As ADODB.Recordset, r As Long ' connect to the Access database
Set cn = New ADODB.Connection cn.Open "Provider=Microsoft.Jet.OLEDB.4.0; " & _ "Data Source=C:Mes documentsbase de donnéesRapports Financiers.mdb;" ' open a recordset
Set rs = New ADODB.Recordset rs.Open "tresorerie", cn, adOpenKeyset, adLockOptimistic, adCmdTable ' all records in a table
r = 2 ' the start row in the worksheet
Do While Len(Range("A" & r).Formula) > 0 ' repeat until first empty cell in column A With rs .AddNew ' create a new record ' add values to each field in the record .Fields("datgl") = Range("A" & r).Value .Fields("nogl") = Range("B" & r).Value .Fields("desgl") = Range("C" & r).Value .Fields("pregl") = Range("d" & r).Value .Fields("debgl") = Range("e" & r).Value .Fields("cregl") = Range("f" & r).Value .Fields("moisgl") = Range("g" & r).Value .Fields("soldegl") = Range("h" & r).Value
' add more fields if necessary... .Update ' stores the new record End With r = r + 1 ' next row Loop rs.Close Set rs = Nothing cn.Close Set cn = Nothing
.
MERCI DE VOTRE AIDE
MAINTENANT ELLE BUG À
adOpenKeyset
ET ELLE DIT PROJET OU BIBLIOTHÈQUE INTROUVABLE
J'AI COCHÉ
Microsoft ActiveX Data Objects 2.x library
MAIS L'AUTRE PORTE LE CHIFFRE 2.5 AU LIEUX DE 2.X
COMME SUIT
Microsoft ActiveX Data Objects recordset 2.5 library
-----Message d'origine-----
Bonjour.
coches les lignes :
Microsoft ActiveX Data Objects 2.x library
Microsoft ActiveX Data Objects recordset 2.x library
et tout doit passer.
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"jacques" <anonymous@discussions.microsoft.com> a écrit
dans le message de
news:2322f01c45ea5$bc699f70$a601280a@phx.gbl...
Bonjour à vous tous. mon système à planter et j'ai dû
reformater et je suis à l'étape de faire refonctionner le
tout.
dans les lignes de codes suivantes elle me donne une
erreur
type défini par l'utilisateur non défini.
voici le code:
2 ieme question quel est le nom de la bibliothèque dans
access qui permet de faire fonctionner correctement les
lignes de codes suivantes.
merci de votre aide.
Dim cn As ADODB.Connection, rs As ADODB.Recordset, r As
Long
' connect to the Access database
Set cn = New ADODB.Connection
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0; " & _
"Data Source=C:Mes documentsbase de
donnéesRapports Financiers.mdb;"
' open a recordset
Set rs = New ADODB.Recordset
rs.Open "tresorerie", cn, adOpenKeyset,
adLockOptimistic, adCmdTable
' all records in a table
r = 2 ' the start row in the worksheet
Do While Len(Range("A" & r).Formula) > 0
' repeat until first empty cell in column A
With rs
.AddNew ' create a new record
' add values to each field in the record
.Fields("datgl") = Range("A" & r).Value
.Fields("nogl") = Range("B" & r).Value
.Fields("desgl") = Range("C" & r).Value
.Fields("pregl") = Range("d" & r).Value
.Fields("debgl") = Range("e" & r).Value
.Fields("cregl") = Range("f" & r).Value
.Fields("moisgl") = Range("g" & r).Value
.Fields("soldegl") = Range("h" & r).Value
' add more fields if necessary...
.Update ' stores the new record
End With
r = r + 1 ' next row
Loop
rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing
MERCI DE VOTRE AIDE MAINTENANT ELLE BUG À adOpenKeyset
ET ELLE DIT PROJET OU BIBLIOTHÈQUE INTROUVABLE
J'AI COCHÉ
Microsoft ActiveX Data Objects 2.x library MAIS L'AUTRE PORTE LE CHIFFRE 2.5 AU LIEUX DE 2.X
COMME SUIT Microsoft ActiveX Data Objects recordset 2.5 library
-----Message d'origine----- Bonjour.
coches les lignes : Microsoft ActiveX Data Objects 2.x library Microsoft ActiveX Data Objects recordset 2.x library et tout doit passer. -- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access.vba.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"jacques" a écrit dans le message de
news:2322f01c45ea5$bc699f70$ Bonjour à vous tous. mon système à planter et j'ai dû reformater et je suis à l'étape de faire refonctionner le tout.
dans les lignes de codes suivantes elle me donne une erreur type défini par l'utilisateur non défini.
voici le code:
2 ieme question quel est le nom de la bibliothèque dans access qui permet de faire fonctionner correctement les lignes de codes suivantes.
merci de votre aide.
Dim cn As ADODB.Connection, rs As ADODB.Recordset, r As Long ' connect to the Access database
Set cn = New ADODB.Connection cn.Open "Provider=Microsoft.Jet.OLEDB.4.0; " & _ "Data Source=C:Mes documentsbase de donnéesRapports Financiers.mdb;" ' open a recordset
Set rs = New ADODB.Recordset rs.Open "tresorerie", cn, adOpenKeyset, adLockOptimistic, adCmdTable ' all records in a table
r = 2 ' the start row in the worksheet
Do While Len(Range("A" & r).Formula) > 0 ' repeat until first empty cell in column A With rs .AddNew ' create a new record ' add values to each field in the record .Fields("datgl") = Range("A" & r).Value .Fields("nogl") = Range("B" & r).Value .Fields("desgl") = Range("C" & r).Value .Fields("pregl") = Range("d" & r).Value .Fields("debgl") = Range("e" & r).Value .Fields("cregl") = Range("f" & r).Value .Fields("moisgl") = Range("g" & r).Value .Fields("soldegl") = Range("h" & r).Value
' add more fields if necessary... .Update ' stores the new record End With r = r + 1 ' next row Loop rs.Close Set rs = Nothing cn.Close Set cn = Nothing
.
Raymond [mvp]
Quand j'ai indiqué 2.x ça veut dire 2. et quelque chose. si tu as 2.7 prend tout en 2.7 et si tu as 2.5 prend tout en 2.5
-- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access.vba.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"JACQUES" a écrit dans le message de news:2381901c45eb1$d17e3c70$ MERCI DE VOTRE AIDE MAINTENANT ELLE BUG À adOpenKeyset
ET ELLE DIT PROJET OU BIBLIOTHÈQUE INTROUVABLE
J'AI COCHÉ
Microsoft ActiveX Data Objects 2.x library MAIS L'AUTRE PORTE LE CHIFFRE 2.5 AU LIEUX DE 2.X
COMME SUIT Microsoft ActiveX Data Objects recordset 2.5 library
Quand j'ai indiqué 2.x ça veut dire 2. et quelque chose. si tu as 2.7 prend
tout en 2.7 et si tu as 2.5 prend tout en 2.5
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"JACQUES" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:2381901c45eb1$d17e3c70$a301280a@phx.gbl...
MERCI DE VOTRE AIDE
MAINTENANT ELLE BUG À
adOpenKeyset
ET ELLE DIT PROJET OU BIBLIOTHÈQUE INTROUVABLE
J'AI COCHÉ
Microsoft ActiveX Data Objects 2.x library
MAIS L'AUTRE PORTE LE CHIFFRE 2.5 AU LIEUX DE 2.X
COMME SUIT
Microsoft ActiveX Data Objects recordset 2.5 library
Quand j'ai indiqué 2.x ça veut dire 2. et quelque chose. si tu as 2.7 prend tout en 2.7 et si tu as 2.5 prend tout en 2.5
-- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access.vba.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"JACQUES" a écrit dans le message de news:2381901c45eb1$d17e3c70$ MERCI DE VOTRE AIDE MAINTENANT ELLE BUG À adOpenKeyset
ET ELLE DIT PROJET OU BIBLIOTHÈQUE INTROUVABLE
J'AI COCHÉ
Microsoft ActiveX Data Objects 2.x library MAIS L'AUTRE PORTE LE CHIFFRE 2.5 AU LIEUX DE 2.X
COMME SUIT Microsoft ActiveX Data Objects recordset 2.5 library
Pierre CFI [mvp]
bonjour 2.x çà veut dire x = n'importe quel chiffre
-- Pierre CFI MVP Microsoft Access Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer http://users.skynet.be/mpfa/ Site perso http://access.cfi.free.fr "JACQUES" a écrit dans le message de news:2381901c45eb1$d17e3c70$ MERCI DE VOTRE AIDE MAINTENANT ELLE BUG À adOpenKeyset
ET ELLE DIT PROJET OU BIBLIOTHÈQUE INTROUVABLE
J'AI COCHÉ
Microsoft ActiveX Data Objects 2.x library MAIS L'AUTRE PORTE LE CHIFFRE 2.5 AU LIEUX DE 2.X
COMME SUIT Microsoft ActiveX Data Objects recordset 2.5 library
-----Message d'origine----- Bonjour.
coches les lignes : Microsoft ActiveX Data Objects 2.x library Microsoft ActiveX Data Objects recordset 2.x library et tout doit passer. -- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access.vba.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"jacques" a écrit dans le message de
news:2322f01c45ea5$bc699f70$ Bonjour à vous tous. mon système à planter et j'ai dû reformater et je suis à l'étape de faire refonctionner le tout.
dans les lignes de codes suivantes elle me donne une erreur type défini par l'utilisateur non défini.
voici le code:
2 ieme question quel est le nom de la bibliothèque dans access qui permet de faire fonctionner correctement les lignes de codes suivantes.
merci de votre aide.
Dim cn As ADODB.Connection, rs As ADODB.Recordset, r As Long ' connect to the Access database
Set cn = New ADODB.Connection cn.Open "Provider=Microsoft.Jet.OLEDB.4.0; " & _ "Data Source=C:Mes documentsbase de donnéesRapports Financiers.mdb;" ' open a recordset
Set rs = New ADODB.Recordset rs.Open "tresorerie", cn, adOpenKeyset, adLockOptimistic, adCmdTable ' all records in a table
r = 2 ' the start row in the worksheet
Do While Len(Range("A" & r).Formula) > 0 ' repeat until first empty cell in column A With rs .AddNew ' create a new record ' add values to each field in the record .Fields("datgl") = Range("A" & r).Value .Fields("nogl") = Range("B" & r).Value .Fields("desgl") = Range("C" & r).Value .Fields("pregl") = Range("d" & r).Value .Fields("debgl") = Range("e" & r).Value .Fields("cregl") = Range("f" & r).Value .Fields("moisgl") = Range("g" & r).Value .Fields("soldegl") = Range("h" & r).Value
' add more fields if necessary... .Update ' stores the new record End With r = r + 1 ' next row Loop rs.Close Set rs = Nothing cn.Close Set cn = Nothing
.
bonjour
2.x çà veut dire x = n'importe quel chiffre
--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer
http://users.skynet.be/mpfa/
Site perso
http://access.cfi.free.fr
"JACQUES" <anonymous@discussions.microsoft.com> a écrit dans le message de news:2381901c45eb1$d17e3c70$a301280a@phx.gbl...
MERCI DE VOTRE AIDE
MAINTENANT ELLE BUG À
adOpenKeyset
ET ELLE DIT PROJET OU BIBLIOTHÈQUE INTROUVABLE
J'AI COCHÉ
Microsoft ActiveX Data Objects 2.x library
MAIS L'AUTRE PORTE LE CHIFFRE 2.5 AU LIEUX DE 2.X
COMME SUIT
Microsoft ActiveX Data Objects recordset 2.5 library
-----Message d'origine-----
Bonjour.
coches les lignes :
Microsoft ActiveX Data Objects 2.x library
Microsoft ActiveX Data Objects recordset 2.x library
et tout doit passer.
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"jacques" <anonymous@discussions.microsoft.com> a écrit
dans le message de
news:2322f01c45ea5$bc699f70$a601280a@phx.gbl...
Bonjour à vous tous. mon système à planter et j'ai dû
reformater et je suis à l'étape de faire refonctionner le
tout.
dans les lignes de codes suivantes elle me donne une
erreur
type défini par l'utilisateur non défini.
voici le code:
2 ieme question quel est le nom de la bibliothèque dans
access qui permet de faire fonctionner correctement les
lignes de codes suivantes.
merci de votre aide.
Dim cn As ADODB.Connection, rs As ADODB.Recordset, r As
Long
' connect to the Access database
Set cn = New ADODB.Connection
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0; " & _
"Data Source=C:Mes documentsbase de
donnéesRapports Financiers.mdb;"
' open a recordset
Set rs = New ADODB.Recordset
rs.Open "tresorerie", cn, adOpenKeyset,
adLockOptimistic, adCmdTable
' all records in a table
r = 2 ' the start row in the worksheet
Do While Len(Range("A" & r).Formula) > 0
' repeat until first empty cell in column A
With rs
.AddNew ' create a new record
' add values to each field in the record
.Fields("datgl") = Range("A" & r).Value
.Fields("nogl") = Range("B" & r).Value
.Fields("desgl") = Range("C" & r).Value
.Fields("pregl") = Range("d" & r).Value
.Fields("debgl") = Range("e" & r).Value
.Fields("cregl") = Range("f" & r).Value
.Fields("moisgl") = Range("g" & r).Value
.Fields("soldegl") = Range("h" & r).Value
' add more fields if necessary...
.Update ' stores the new record
End With
r = r + 1 ' next row
Loop
rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing
bonjour 2.x çà veut dire x = n'importe quel chiffre
-- Pierre CFI MVP Microsoft Access Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer http://users.skynet.be/mpfa/ Site perso http://access.cfi.free.fr "JACQUES" a écrit dans le message de news:2381901c45eb1$d17e3c70$ MERCI DE VOTRE AIDE MAINTENANT ELLE BUG À adOpenKeyset
ET ELLE DIT PROJET OU BIBLIOTHÈQUE INTROUVABLE
J'AI COCHÉ
Microsoft ActiveX Data Objects 2.x library MAIS L'AUTRE PORTE LE CHIFFRE 2.5 AU LIEUX DE 2.X
COMME SUIT Microsoft ActiveX Data Objects recordset 2.5 library
-----Message d'origine----- Bonjour.
coches les lignes : Microsoft ActiveX Data Objects 2.x library Microsoft ActiveX Data Objects recordset 2.x library et tout doit passer. -- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access.vba.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"jacques" a écrit dans le message de
news:2322f01c45ea5$bc699f70$ Bonjour à vous tous. mon système à planter et j'ai dû reformater et je suis à l'étape de faire refonctionner le tout.
dans les lignes de codes suivantes elle me donne une erreur type défini par l'utilisateur non défini.
voici le code:
2 ieme question quel est le nom de la bibliothèque dans access qui permet de faire fonctionner correctement les lignes de codes suivantes.
merci de votre aide.
Dim cn As ADODB.Connection, rs As ADODB.Recordset, r As Long ' connect to the Access database
Set cn = New ADODB.Connection cn.Open "Provider=Microsoft.Jet.OLEDB.4.0; " & _ "Data Source=C:Mes documentsbase de donnéesRapports Financiers.mdb;" ' open a recordset
Set rs = New ADODB.Recordset rs.Open "tresorerie", cn, adOpenKeyset, adLockOptimistic, adCmdTable ' all records in a table
r = 2 ' the start row in the worksheet
Do While Len(Range("A" & r).Formula) > 0 ' repeat until first empty cell in column A With rs .AddNew ' create a new record ' add values to each field in the record .Fields("datgl") = Range("A" & r).Value .Fields("nogl") = Range("B" & r).Value .Fields("desgl") = Range("C" & r).Value .Fields("pregl") = Range("d" & r).Value .Fields("debgl") = Range("e" & r).Value .Fields("cregl") = Range("f" & r).Value .Fields("moisgl") = Range("g" & r).Value .Fields("soldegl") = Range("h" & r).Value
' add more fields if necessary... .Update ' stores the new record End With r = r + 1 ' next row Loop rs.Close Set rs = Nothing cn.Close Set cn = Nothing
.
JACQUES
BRAVO SA FONCTIONNE
UN GRAND MERCI POUR VOTRE AIDE
-----Message d'origine----- Quand j'ai indiqué 2.x ça veut dire 2. et quelque chose. si tu as 2.7 prend
tout en 2.7 et si tu as 2.5 prend tout en 2.5
-- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access.vba.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"JACQUES" a écrit dans le message de
news:2381901c45eb1$d17e3c70$ MERCI DE VOTRE AIDE MAINTENANT ELLE BUG À adOpenKeyset
ET ELLE DIT PROJET OU BIBLIOTHÈQUE INTROUVABLE
J'AI COCHÉ
Microsoft ActiveX Data Objects 2.x library MAIS L'AUTRE PORTE LE CHIFFRE 2.5 AU LIEUX DE 2.X
COMME SUIT Microsoft ActiveX Data Objects recordset 2.5 library
.
BRAVO SA FONCTIONNE
UN GRAND MERCI POUR VOTRE AIDE
-----Message d'origine-----
Quand j'ai indiqué 2.x ça veut dire 2. et quelque chose.
si tu as 2.7 prend
tout en 2.7 et si tu as 2.5 prend tout en 2.5
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"JACQUES" <anonymous@discussions.microsoft.com> a écrit
dans le message de
news:2381901c45eb1$d17e3c70$a301280a@phx.gbl...
MERCI DE VOTRE AIDE
MAINTENANT ELLE BUG À
adOpenKeyset
ET ELLE DIT PROJET OU BIBLIOTHÈQUE INTROUVABLE
J'AI COCHÉ
Microsoft ActiveX Data Objects 2.x library
MAIS L'AUTRE PORTE LE CHIFFRE 2.5 AU LIEUX DE 2.X
COMME SUIT
Microsoft ActiveX Data Objects recordset 2.5 library
-----Message d'origine----- Quand j'ai indiqué 2.x ça veut dire 2. et quelque chose. si tu as 2.7 prend
tout en 2.7 et si tu as 2.5 prend tout en 2.5
-- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access.vba.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"JACQUES" a écrit dans le message de
news:2381901c45eb1$d17e3c70$ MERCI DE VOTRE AIDE MAINTENANT ELLE BUG À adOpenKeyset
ET ELLE DIT PROJET OU BIBLIOTHÈQUE INTROUVABLE
J'AI COCHÉ
Microsoft ActiveX Data Objects 2.x library MAIS L'AUTRE PORTE LE CHIFFRE 2.5 AU LIEUX DE 2.X
COMME SUIT Microsoft ActiveX Data Objects recordset 2.5 library
