base de données access

bonsoir à tous

j'ouvre un fichier mdb avec ce code (d'après le FAQ)

Code:

---

1 2 3 4 5 6 7 8

Dim MaDbMat As String Dim MesEtats As Access.Application   MaDbMat = App.Path & "\MaBase.mdb"   Set MesEtats = New Access.Application MesEtats.OpenCurrentDatabase MaDbMat, False

---

je veux savoir comment sélectionner une table de cette base pour y accéder

Merci d'avance

Bonjour,
Tu as essayé avec

Code:

---

1 2	With MesEtats.CurrentDb '...

---

bonsoir

Merci, maintenant je veux compacter cette base.

Toujours d'après le FAQ j'ai essayé ce code

Code:

---

1 2 3 4

Dim jro As jro.JetEngine Set jro = New jro.JetEngine jro.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\MaBase.mdb;Jet OLEDB:Database Password=test", _ "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\MaBaseCompactee.mdb;Jet OLEDB:Engine Type=4;Jet OLEDB:Database Password=test"

---

Mais un message d'erreur s'affiche "impossible d'effectuer cette opération;les fonctionnalités de cette version ne sont pas disponibles dans les bases de données d'un format antérieur"
comment résoudre ce problème
Merci d'avance

Convertir la base dans un format Access récent.
Ou peut-être installer DAO35 (mais j'y crois pas trop).

Bonjour!
pour avoir eu le meme problème et l'avoir réglé je peut confirmer
que transféré ta base en access 97 regle le tout !

au cas ou tu te demande comment...
(moi j'ai une version anglaise d'office par ailleur...donc dsl)

Tools -> Database Utilities -> Convert database to prior version

A+

Bonjour,
Tu me sembles bien compliqué !
Tu as essayé avec

Code:

---

MesEtats.CompactRepair sourcefileMdb, destFileMdb, True

---

?

Bonsoir

Merci pour toutes vos réponses

c
résolu

voir aussi:

http://www.developpez.net/forums/d93...r-base-donn-e/

Maintenant je veux supprimer des records en utilisant une requête
1/ soit les supprimer tous avec

Code:

---

Cnn1.Execute "DELETE FROM ert "

---

et ça marche sans problèmes

2/soit en supprimer quelques uns dont la date correspond à une date saisie avec

Code:

---

Cnn1.Execute "DELETE FROM ert WHERE DAT=#" & Format$(DTPicker1.Value, "dd-mm-yyyy") & "# "

---

et là rien ne se passe (pas d'erreur mais aussi pas de suppression de records)

Merci d'avance