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
Charles ERNST
Dim rst As New ADODB.Recordset
puis en adaptant les paramètres à votre requête, table et type de travai: :
Rst.Open "Nom de Table ou nom de vue ou instruction select .....", CurrentProject.Connection, adOpenDynamic, adLockOptimistic, adCmdTable rst.Movefirst Rst.find "Critère" critère au singulier car on ne peut fournir qu'un seul critère du genre "[ID]345" (dans le cas de critères multiple, vaut mieux créer une requête et passer de paramètres)
if rst.eof = true ..... pas trouvé
"Dominique MARTIN" a écrit dans le message de news:
Bonjour,
J'aimerais savoir quel est le code correspondant en ADO du code suivant
Dim db as DAO.Database Dim rst as DAO.Database
set db=currentdb set rst db.openrecordset ( "Table", dbopendynaset) rst.movefirst rst.findfirst "Critères" if rst.nomatch then...
j'ai trouvé le code suivant Dim conn As New ADODB.Connection Dim rst As New ADODB.Recordset
Set conn = CurrentProject.Connection Set rst = conn.OpenRecordset("Table", dbOpenDynaset) rst.Find "Critères"
mais cela coince après.
Merci de votre aide Dominique
Dim rst As New ADODB.Recordset
puis en adaptant les paramètres à votre requête, table et type de travai: :
Rst.Open "Nom de Table ou nom de vue ou instruction select .....",
CurrentProject.Connection, adOpenDynamic, adLockOptimistic, adCmdTable
rst.Movefirst
Rst.find "Critère" critère au singulier car on ne peut fournir qu'un seul
critère du genre "[ID]345"
(dans le cas de critères multiple, vaut mieux créer une requête et passer de
paramètres)
if rst.eof = true ..... pas trouvé
"Dominique MARTIN" <DominiqueMARTIN@discussions.microsoft.com> a écrit dans
le message de news: 4B5647F5-1A15-46A2-B723-9357EF73A481@microsoft.com...
Bonjour,
J'aimerais savoir quel est le code correspondant en ADO du code suivant
Dim db as DAO.Database
Dim rst as DAO.Database
set db=currentdb
set rst db.openrecordset ( "Table", dbopendynaset)
rst.movefirst
rst.findfirst "Critères"
if rst.nomatch then...
j'ai trouvé le code suivant
Dim conn As New ADODB.Connection
Dim rst As New ADODB.Recordset
Set conn = CurrentProject.Connection
Set rst = conn.OpenRecordset("Table", dbOpenDynaset)
rst.Find "Critères"
puis en adaptant les paramètres à votre requête, table et type de travai: :
Rst.Open "Nom de Table ou nom de vue ou instruction select .....", CurrentProject.Connection, adOpenDynamic, adLockOptimistic, adCmdTable rst.Movefirst Rst.find "Critère" critère au singulier car on ne peut fournir qu'un seul critère du genre "[ID]345" (dans le cas de critères multiple, vaut mieux créer une requête et passer de paramètres)
if rst.eof = true ..... pas trouvé
"Dominique MARTIN" a écrit dans le message de news:
Bonjour,
J'aimerais savoir quel est le code correspondant en ADO du code suivant
Dim db as DAO.Database Dim rst as DAO.Database
set db=currentdb set rst db.openrecordset ( "Table", dbopendynaset) rst.movefirst rst.findfirst "Critères" if rst.nomatch then...
j'ai trouvé le code suivant Dim conn As New ADODB.Connection Dim rst As New ADODB.Recordset
Set conn = CurrentProject.Connection Set rst = conn.OpenRecordset("Table", dbOpenDynaset) rst.Find "Critères"
mais cela coince après.
Merci de votre aide Dominique
Pierre CFI [mvp]
bonjour sur le site de notre ami, tu as tout ou presue sur /ado/dao http://mypage.bluewin.ch/w.stucki/MigrationADO.htm
-- Pierre CFI MVP Microsoft Access Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer Access http://users.skynet.be/mpfa/
"Dominique MARTIN" a écrit dans le message de news:
Bonjour,
J'aimerais savoir quel est le code correspondant en ADO du code suivant
Dim db as DAO.Database Dim rst as DAO.Database
set db=currentdb set rst db.openrecordset ( "Table", dbopendynaset) rst.movefirst rst.findfirst "Critères" if rst.nomatch then...
j'ai trouvé le code suivant Dim conn As New ADODB.Connection Dim rst As New ADODB.Recordset
Set conn = CurrentProject.Connection Set rst = conn.OpenRecordset("Table", dbOpenDynaset) rst.Find "Critères"
mais cela coince après.
Merci de votre aide Dominique
bonjour
sur le site de notre ami, tu as tout ou presue sur /ado/dao
http://mypage.bluewin.ch/w.stucki/MigrationADO.htm
--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer
Access http://users.skynet.be/mpfa/
"Dominique MARTIN" <DominiqueMARTIN@discussions.microsoft.com> a écrit dans le message de news:
4B5647F5-1A15-46A2-B723-9357EF73A481@microsoft.com...
Bonjour,
J'aimerais savoir quel est le code correspondant en ADO du code suivant
Dim db as DAO.Database
Dim rst as DAO.Database
set db=currentdb
set rst db.openrecordset ( "Table", dbopendynaset)
rst.movefirst
rst.findfirst "Critères"
if rst.nomatch then...
j'ai trouvé le code suivant
Dim conn As New ADODB.Connection
Dim rst As New ADODB.Recordset
Set conn = CurrentProject.Connection
Set rst = conn.OpenRecordset("Table", dbOpenDynaset)
rst.Find "Critères"
bonjour sur le site de notre ami, tu as tout ou presue sur /ado/dao http://mypage.bluewin.ch/w.stucki/MigrationADO.htm
-- Pierre CFI MVP Microsoft Access Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer Access http://users.skynet.be/mpfa/
"Dominique MARTIN" a écrit dans le message de news:
Bonjour,
J'aimerais savoir quel est le code correspondant en ADO du code suivant
Dim db as DAO.Database Dim rst as DAO.Database
set db=currentdb set rst db.openrecordset ( "Table", dbopendynaset) rst.movefirst rst.findfirst "Critères" if rst.nomatch then...
j'ai trouvé le code suivant Dim conn As New ADODB.Connection Dim rst As New ADODB.Recordset
Set conn = CurrentProject.Connection Set rst = conn.OpenRecordset("Table", dbOpenDynaset) rst.Find "Critères"
mais cela coince après.
Merci de votre aide Dominique
Dominique MARTIN
Merci beaucoup
Dim rst As New ADODB.Recordset
puis en adaptant les paramètres à votre requête, table et type de travai: :
Rst.Open "Nom de Table ou nom de vue ou instruction select .....", CurrentProject.Connection, adOpenDynamic, adLockOptimistic, adCmdTable rst.Movefirst Rst.find "Critère" critère au singulier car on ne peut fournir qu'un seul critère du genre "[ID]345" (dans le cas de critères multiple, vaut mieux créer une requête et passer de paramètres)
if rst.eof = true ..... pas trouvé
"Dominique MARTIN" a écrit dans le message de news:
Bonjour,
J'aimerais savoir quel est le code correspondant en ADO du code suivant
Dim db as DAO.Database Dim rst as DAO.Database
set db=currentdb set rst db.openrecordset ( "Table", dbopendynaset) rst.movefirst rst.findfirst "Critères" if rst.nomatch then...
j'ai trouvé le code suivant Dim conn As New ADODB.Connection Dim rst As New ADODB.Recordset
Set conn = CurrentProject.Connection Set rst = conn.OpenRecordset("Table", dbOpenDynaset) rst.Find "Critères"
mais cela coince après.
Merci de votre aide Dominique
Merci beaucoup
Dim rst As New ADODB.Recordset
puis en adaptant les paramètres à votre requête, table et type de travai: :
Rst.Open "Nom de Table ou nom de vue ou instruction select .....",
CurrentProject.Connection, adOpenDynamic, adLockOptimistic, adCmdTable
rst.Movefirst
Rst.find "Critère" critère au singulier car on ne peut fournir qu'un seul
critère du genre "[ID]345"
(dans le cas de critères multiple, vaut mieux créer une requête et passer de
paramètres)
if rst.eof = true ..... pas trouvé
"Dominique MARTIN" <DominiqueMARTIN@discussions.microsoft.com> a écrit dans
le message de news: 4B5647F5-1A15-46A2-B723-9357EF73A481@microsoft.com...
Bonjour,
J'aimerais savoir quel est le code correspondant en ADO du code suivant
Dim db as DAO.Database
Dim rst as DAO.Database
set db=currentdb
set rst db.openrecordset ( "Table", dbopendynaset)
rst.movefirst
rst.findfirst "Critères"
if rst.nomatch then...
j'ai trouvé le code suivant
Dim conn As New ADODB.Connection
Dim rst As New ADODB.Recordset
Set conn = CurrentProject.Connection
Set rst = conn.OpenRecordset("Table", dbOpenDynaset)
rst.Find "Critères"
puis en adaptant les paramètres à votre requête, table et type de travai: :
Rst.Open "Nom de Table ou nom de vue ou instruction select .....", CurrentProject.Connection, adOpenDynamic, adLockOptimistic, adCmdTable rst.Movefirst Rst.find "Critère" critère au singulier car on ne peut fournir qu'un seul critère du genre "[ID]345" (dans le cas de critères multiple, vaut mieux créer une requête et passer de paramètres)
if rst.eof = true ..... pas trouvé
"Dominique MARTIN" a écrit dans le message de news:
Bonjour,
J'aimerais savoir quel est le code correspondant en ADO du code suivant
Dim db as DAO.Database Dim rst as DAO.Database
set db=currentdb set rst db.openrecordset ( "Table", dbopendynaset) rst.movefirst rst.findfirst "Critères" if rst.nomatch then...
j'ai trouvé le code suivant Dim conn As New ADODB.Connection Dim rst As New ADODB.Recordset
Set conn = CurrentProject.Connection Set rst = conn.OpenRecordset("Table", dbOpenDynaset) rst.Find "Critères"
mais cela coince après.
Merci de votre aide Dominique
Dominique MARTIN
Bonjour,
Merci beaucoup, l'article est très complet.
Dominique
bonjour sur le site de notre ami, tu as tout ou presue sur /ado/dao http://mypage.bluewin.ch/w.stucki/MigrationADO.htm
-- Pierre CFI MVP Microsoft Access Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer Access http://users.skynet.be/mpfa/
"Dominique MARTIN" a écrit dans le message de news:
Bonjour,
J'aimerais savoir quel est le code correspondant en ADO du code suivant
Dim db as DAO.Database Dim rst as DAO.Database
set db=currentdb set rst db.openrecordset ( "Table", dbopendynaset) rst.movefirst rst.findfirst "Critères" if rst.nomatch then...
j'ai trouvé le code suivant Dim conn As New ADODB.Connection Dim rst As New ADODB.Recordset
Set conn = CurrentProject.Connection Set rst = conn.OpenRecordset("Table", dbOpenDynaset) rst.Find "Critères"
mais cela coince après.
Merci de votre aide Dominique
Bonjour,
Merci beaucoup, l'article est très complet.
Dominique
bonjour
sur le site de notre ami, tu as tout ou presue sur /ado/dao
http://mypage.bluewin.ch/w.stucki/MigrationADO.htm
--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer
Access http://users.skynet.be/mpfa/
"Dominique MARTIN" <DominiqueMARTIN@discussions.microsoft.com> a écrit dans le message de news:
4B5647F5-1A15-46A2-B723-9357EF73A481@microsoft.com...
Bonjour,
J'aimerais savoir quel est le code correspondant en ADO du code suivant
Dim db as DAO.Database
Dim rst as DAO.Database
set db=currentdb
set rst db.openrecordset ( "Table", dbopendynaset)
rst.movefirst
rst.findfirst "Critères"
if rst.nomatch then...
j'ai trouvé le code suivant
Dim conn As New ADODB.Connection
Dim rst As New ADODB.Recordset
Set conn = CurrentProject.Connection
Set rst = conn.OpenRecordset("Table", dbOpenDynaset)
rst.Find "Critères"
