Discussion :

[com-ace]

Je souhaite effectuer un controle des enregistrements dans une table située dans une base autre que la base de travail afin de vérifier un enregistrement déjà effectué; Pour cela, j'utilise le code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
  Dim Dbarchive As DAO.Database
  Dim Mtable As DAO.Recordset, Stable As DAO.Recordset
  Set Mtable = CurrentDb.OpenRecordset("Archive", dbOpenDynaset)
  Set Dbarchive = DBEngine.OpenDatabase("D:\Archives Tables.mdb")
  Set Stable = Dbarchive.OpenRecordset("Maitres stages")
  Mtable.MoveFirst
  While Not Mtable.EOF
    Stable.MoveFirst
    Stable.FindFirst "N°Maitre_stage = " & Mtable!N°Maitre_stage
    If Not rst.NoMatch Then
       Mtable.Delete
    End If
    Mtable.MoveNext
  Wend
  Mtable.Close
  Stable.Close
  Set Mtable = Nothing
  Set Stable = Nothing

Et je bute sur

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

    Stable.FindFirst "N°Maitre_stage = " & Mtable!N°Maitre_stage

Message : "Opération non autorisée pour ce type d'objet"
Quelle erreur ai je fait ? Que se passe t il ?

[loufab]

Bonjour,

Et en respectant la syntaxe, comme ceci par exemple ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MAtable.Fields("N°Maitre_stage")

Cordialement,

[com-ace]

Merci de ta réponse
Au rsique de paraître novice, comment utilsier ta réponse ? Je ne la comprends pas.
Merci de ta précision

[Petogaz]

salut,

voila ce que voulais dire Loufab :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Stable.FindFirst "N°Maitre_stage = " & MAtable.Fields("N°Maitre_stage")

[com-ace]

J'obtiens Opération non autorisée pour ce type d'objet

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Stable.FindFirst "N°Maitre_stage = " & Mtable.Fields("N°Maitre_stage")

[ActionAccess]

Bonjour,

Une idée :

Remplacer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set Stable = Dbarchive.OpenRecordset("Maitres stages")

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set Stable = Dbarchive.OpenRecordset("Maitres stages", dbOpenDynaset)

Cdlt,

[com-ace]

Résultat identique

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
  Dim Dbarchive As DAO.Database
  Dim Mtable As DAO.Recordset, Stable As DAO.Recordset
  Set Mtable = CurrentDb.OpenRecordset("Archive", dbOpenDynaset)
  Set Dbarchive = DBEngine.OpenDatabase("DBEngine.OpenDatabase("D:\Archives Tables.mdb", dbOpenDynaset)
  Set Stable = Dbarchive.OpenRecordset("Maitres stages")
  Mtable.MoveFirst
  While Not Mtable.EOF
    Stable.MoveFirst
    Stable.FindFirst "N°Maitre_stage = " & Mtable.Fields("N°Maitre_stage")
    If Not rst.NoMatch Then
       Mtable.Delete
    End If
    Mtable.MoveNext
  Wend
  Mtable.Close
  Stable.Close
  Set Mtable = Nothing
  Set Stable = Nothing

J'ai essayé avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Mtable![N°Maitre_stage]

avec autant de succès

[com-ace]

Autant pour moi.
J'ai mis sur

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

DBEngine.OpenDatabase

au lieu de

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dbarchive.OpenRecordset("Maitres stages", dbOpenDynaset)

Résolu
Merci à tous