Discussion :

[galinette]

Bonjour à tous

je debut avec access ainsi qu'avec le VB
J'ai du migrer une base access97 vers 2000.
Pas de réel pb à ce niveau.
Mais l'outil analyse de performance de ma db sous 2000, me signal que ma base n'est pas compiler.
C'est au cours de cette compilation que les problemes ont commencé.

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
19
20
Private Sub Métier_LostFocus()
 
DoCmd.Requery "Métier"
Dim MaBD As Database, MaTable As TableDef
 
NonTrouvé = IsNull(DLookup("[Métier]", "TB Métiers", "[TB Métiers].[Métier] like 
Forms![FR Suivi Sessions REP].[SFR Suivi sessions REP]![Métier]"))
 
NonNul = Not IsNull([Métier])
 
If (NonTrouvé And NonNul) Then
   Set MaBD = CurrentDb()
   Set MaTable = MaBD.OpenTable("TB Métiers")
   MaTable.AddNew
   MaTable("Métier") = Forms![FR Suivi Sessions REP].[SFR Suivi sessions REP]![Métier]
   MaTable.Update
   MaTable.Close
End If
 
End Sub

Le comilateur me donne le message d'erreur suivant avec OpenTable surligné
"fonction ou interface mentionnée avec restrictions, ou la fonction utilise un type automation non géré par Visual Basic"

Comme références j'ai
Visual Basic For Applications
Microsoft Access 9.0 Object Library
OLE Automotion
Microsoft Access Wizard Control Library
Microsoft DAO 3.6 Objects Library
Microsoft ActiveX Data Objects 2.7 library

Merci par avance de vos réponses.

[Arkham46]

bjr,

OpenTable est déjà indiqué comme obsolète en version 97, c'est peut-être supprimé de Access 2000
Essaye OpenRecordset au lieu de OpenTable

[galinette]

Rebonjour
Merci beaucoup pour ton aide et ta reactivité.
Mon Pb venait bien de là, avoir remplacer table par recodset dans mon code a résolu mes problemes.
Ma base est maintenant compiler
Super
Et encore un grand merci