Message d'erreur VBA : membre de donnée ou de méthode introuv

Résolu/Fermé
bithack Messages postés 129 Date d'inscription mercredi 29 octobre 2014 Statut Membre Dernière intervention 16 mars 2016 - 17 avril 2015 à 09:12
Thorak83 Messages postés 1051 Date d'inscription jeudi 20 juin 2013 Statut Membre Dernière intervention 22 décembre 2017 - 17 avril 2015 à 09:49
Bonjour,
débutant en Vba, ayant parcouru de nombreux forums pour mon erreur, je m'en remet à votre aide.
Voila j'ai cette erreur qui apparait quand je lance l'exécution de mon code :
" erreur de compilation : membre de méthode ou de données introuvable "
Mon code à pour but de faire ressortir des dossiers à une certaine date et par weekend. Peut être que l'utilisation de DAO. pourrait être l'origine de cette erreur ? il se plante sur "Set db = db.OpenDatabase"
je travail sur access 2010
voici mon code :
Sub runtype()
Dim Jour As String
Dim db As DAO.Database
Dim rsdateres As Recordset
Dim rsrun1 As DAO.Recordset
Dim rsrun2 As DAO.Recordset
Dim rsrun3 As DAO.Recordset
Dim fld As DAO.Field
Dim sSQL1 As String
Dim sSQL2 As String
Dim sSQL3 As String
'Dim i As String

'i = 1
Jour = date
MsgBox Jour

Set db = db.OpenDatabase

sSQL1 = "SELECT date_resil FROM Dossier"
Set rsdateres = db.OpenRecordset(sSQL1, dbOpenForwardOnly, dbReadOnly) ' Ouverture du Recordset
MsgBox rsdateres

sSQL2 = "select Run1 FROM calendrier"
Set rsrun1 = db.OpenRecordset(sSQL2, bOpenForwardOnly, dbReadOnly)
MsgBox rsrun1

sSQL3 = "select Run2 FROM calendrier"
Set rsrun2 = db.OpenRecordset(sSQL3, bOpenForwardOnly, dbReadOnly)
MsgBox rsrun2

SSQL4 = "select Run3 FROM calendrier"
Set rsrun3 = db.OpenRecordset(SSQL4, bOpenForwardOnly, dbReadOnly)
MsgBox rsrun3

If rsdateres < Jour And rsdateres < rsrun1 Then
.Fields("run") = Run1

Else

If rsdateres < Jour And rsdateres < rsrun2 And rsdateres > rsrun1 Then
.Fields("run") = run2

Else
If rsdateres < Jour And rsdateres < rsrun3 And rsdateres > rsrun2 Then
.Fields("run") = run3

Else
If rsdateres < Jour And rsdateres > rsrun3 Then
.Fields("run") = pas - résilier
End If
End If
End If
End If


'rst.Close ' Fermeture du Recordset
'l = rst.RecordCount
End Sub


Merci par avance !!!!

A voir également:

1 réponse

Thorak83 Messages postés 1051 Date d'inscription jeudi 20 juin 2013 Statut Membre Dernière intervention 22 décembre 2017 156
17 avril 2015 à 09:28
Bonjour,

Remplacez le
Set db = db.OpenDatabase

par
Set db = CurrentDb() ' pour base de données en cours

ou
Set db = OpenDatabase("lenomautrebase.mdb") 


Cordialement
1
bithack Messages postés 129 Date d'inscription mercredi 29 octobre 2014 Statut Membre Dernière intervention 16 mars 2016 6
17 avril 2015 à 09:48
ça marche !!
une autre erreur est parvenu mais celle ci est réglé !
je te remercie !
cordialement
0
Thorak83 Messages postés 1051 Date d'inscription jeudi 20 juin 2013 Statut Membre Dernière intervention 22 décembre 2017 156
17 avril 2015 à 09:49
de rien
mettre en résolu
0