Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access DB.OpenRecordset

DB.OpenRecordset

5 réponses
Avatar
Sergio
bonjour à tous

Est ce que quelqu'un sait pourquoi j'ai un message d'erreur
"incompatibilité de type" sur la ligne Set RS = DB.Ope.........

et comment juste après, se placer sur le premier enregistrement.
RS.FindFirst ?????


Public Sub testDIVERS()

Dim DB As DAO.Database
Dim RS As Recordset
Dim enreg As Integer
Set DB = Application.CurrentDb

Set RS = DB.OpenRecordset("MaTable", dbOpenDynaset)

' (Ici, se placer sur le premier enregistrement.)

enreg = RS.Fields("champ1").Value
MsgBox "enreg = " & enreg

End Sub

A+
Sergio
Signaler un problème avec ce contenu

5 réponses

Supprimer
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
Avatar
Sergio
j'ai mis aussis

Set RS = DB.OpenRecordset("MaTable", dbOpenTable, dbReadOnly)

erreur = idem

"Sergio" a écrit dans le message de news:
#xMi$
bonjour à tous

Est ce que quelqu'un sait pourquoi j'ai un message d'erreur
"incompatibilité de type" sur la ligne Set RS = DB.Ope.........

et comment juste après, se placer sur le premier enregistrement.
RS.FindFirst ?????


Public Sub testDIVERS()

Dim DB As DAO.Database
Dim RS As Recordset
Dim enreg As Integer
Set DB = Application.CurrentDb

Set RS = DB.OpenRecordset("MaTable", dbOpenDynaset)

' (Ici, se placer sur le premier enregistrement.)

enreg = RS.Fields("champ1").Value
MsgBox "enreg = " & enreg

End Sub

A+
Sergio




Avatar
Rv
Salut,

Déclaration:
Dim RS as DAO.RECORDSET

Premier enregistrement:
if Not RS.EOF Then
Rs.MoveFirst
end if

A+

Rv

"Sergio" a écrit dans le message de
news:
j'ai mis aussis

Set RS = DB.OpenRecordset("MaTable", dbOpenTable, dbReadOnly)

erreur = idem

"Sergio" a écrit dans le message de news:
#xMi$
bonjour à tous

Est ce que quelqu'un sait pourquoi j'ai un message d'erreur
"incompatibilité de type" sur la ligne Set RS = DB.Ope.........

et comment juste après, se placer sur le premier enregistrement.
RS.FindFirst ?????


Public Sub testDIVERS()

Dim DB As DAO.Database
Dim RS As Recordset
Dim enreg As Integer
Set DB = Application.CurrentDb

Set RS = DB.OpenRecordset("MaTable", dbOpenDynaset)

' (Ici, se placer sur le premier enregistrement.)

enreg = RS.Fields("champ1").Value
MsgBox "enreg = " & enreg

End Sub

A+
Sergio








Avatar
Pierre CFI [mvp]
bonjour
si tu n'es pas sous 97 mais 2000 ou + vérifie que microsoft dao est charge (outils réfs)
Dim DB As DAO.Database
Dim RS As DAO.Recordset
Dim enreg
Set DB = Application.CurrentDb

Set RS = DB.OpenRecordset("MaTable")

' (tu es sur le premier enregistrement, s'il y en a.)

enreg = RS.Fields("champ1")



--
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
"Sergio" a écrit dans le message de news:
j'ai mis aussis

Set RS = DB.OpenRecordset("MaTable", dbOpenTable, dbReadOnly)

erreur = idem

"Sergio" a écrit dans le message de news:
#xMi$
bonjour à tous

Est ce que quelqu'un sait pourquoi j'ai un message d'erreur
"incompatibilité de type" sur la ligne Set RS = DB.Ope.........

et comment juste après, se placer sur le premier enregistrement.
RS.FindFirst ?????


Public Sub testDIVERS()

Dim DB As DAO.Database
Dim RS As Recordset
Dim enreg As Integer
Set DB = Application.CurrentDb

Set RS = DB.OpenRecordset("MaTable", dbOpenDynaset)

' (Ici, se placer sur le premier enregistrement.)

enreg = RS.Fields("champ1").Value
MsgBox "enreg = " & enreg

End Sub

A+
Sergio








Avatar
Sergio
Merci beaucoup à tous

j'aurais peut-être du y penser.

A+
Sergio



"Sergio" a écrit dans le message de news:

j'ai mis aussis

Set RS = DB.OpenRecordset("MaTable", dbOpenTable, dbReadOnly)

erreur = idem

"Sergio" a écrit dans le message de news:
#xMi$
bonjour à tous

Est ce que quelqu'un sait pourquoi j'ai un message d'erreur
"incompatibilité de type" sur la ligne Set RS = DB.Ope.........

et comment juste après, se placer sur le premier enregistrement.
RS.FindFirst ?????


Public Sub testDIVERS()

Dim DB As DAO.Database
Dim RS As Recordset
Dim enreg As Integer
Set DB = Application.CurrentDb

Set RS = DB.OpenRecordset("MaTable", dbOpenDynaset)

' (Ici, se placer sur le premier enregistrement.)

enreg = RS.Fields("champ1").Value
MsgBox "enreg = " & enreg

End Sub

A+
Sergio








Avatar
Stéphane_Denis
Salut,

C'est parce que DB.OpenRecordset te retourne un recordset
DAO et que tu essayes de l'affecter à un recordset ADO
Il faut que tu inclues, si ce n'est déjà fait, la
librairie DAO au moyen du menu "Références..." puis que tu
déclares ton RS comme il suit : "Dim RS As DAO.Recordset"

A+

-----Message d'origine-----
bonjour à tous

Est ce que quelqu'un sait pourquoi j'ai un message
d'erreur

"incompatibilité de type" sur la ligne Set RS =
DB.Ope.........


et comment juste après, se placer sur le premier
enregistrement.

RS.FindFirst ?????


Public Sub testDIVERS()

Dim DB As DAO.Database
Dim RS As Recordset
Dim enreg As Integer
Set DB = Application.CurrentDb

Set RS = DB.OpenRecordset("MaTable", dbOpenDynaset)

' (Ici, se placer sur le premier enregistrement.)

enreg = RS.Fields("champ1").Value
MsgBox "enreg = " & enreg

End Sub

A+
Sergio


.