Discussion :

[Ragnarok85]

Bonsoir,

Suite au découpage de ma BD en 2 avec une partie données et une partie application, à chaque fois que je fais appel à une procédure contenant de la DAO j'ai cette erreur. Il ne reconnait plus les tables j'ai l'impression.
Pour découper ma BD j'ai utiliser l'outil fractionner d'access.
Comment pt-on résoudre ce problème?
Merci de votre aide.

[argyronet]

Bonsoir,

à chaque fois que je fais appel à une procédure contenant de la DAO j'ai cette erreur

Quels appels ? (Du code, des extraits,... nous ne sommes pas devant ton écran qui plus est ne savons pas comment tu codes...)

Argy

[Ragnarok85]

Excusez-moi du manque de clarté.

Voici un exemple de code qui ne fonctionne plus:

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
Sub AjoutCode_Unite()
Dim oRst As DAO.Recordset
Dim oDb As DAO.Database
Set oDb = CurrentDb
Dim Resultat As String
If (IsNull(Forms!frmEntree!txtUnite) = False) And (IsNull(Forms!frmEntree!txtEquivalence) = True) Then
    Message = MsgBox("Veuillez compléter le champ Equivalence", vbInformation, "Erreur")
End If
For i = 1 To Forms!frmEntree!txtUnite.ListCount
    If Forms!frmEntree!txtUnite = Forms!frmEntree!txtUnite.Column(0, i - 1) Then
        Resultat = "Existant"
    End If
Next
Set oRst = oDb.OpenRecordset("tblUnite")
oRst.Index = "Primarykey"

Quand j'exécute pas à pas, oRst = Nothing, et ceci pr l'ensemble des procédures utilisant des recordset en DAO.

[a29595]

Si je ne me trompe pas tu ne peux pas utiliser "index" sur des tables liée.Ensuite verifie dans gestionnaires de tables lié vers ou pointes tes liens de tables.

[argyronet]

Est-ce que ton erreur est rencontrée lorsque cette condition est vraie ?

Code :

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

1
2
3
If (IsNull(Forms!frmEntree!txtUnite) = False) And (IsNull(Forms!frmEntree!txtEquivalence) = True) Then
    Message = MsgBox("Veuillez compléter le champ Equivalence", vbInformation, "Erreur")
End If

Ce code fonctionnait-il avant que tu scindes ?
Pour moi, ton bloc If/End If est générateur d'erreurs puisque tu ne sorts pas si cette condition est vraie...

De plus, la propriété Index est mal employée, ici...

Argy

[Ragnarok85]

Je ne sais pas pr index, mais le problème est le même pour les actions addnew, edit... simplement pr lire les enregistrement en utilisant la DAO.
Sinon j'ai verifié mes liens, pas de problème, de plus j'utilise des requêtes ayant pr source mes tables, et il n'y a aucun problème.

[Ragnarok85]

Mon bloc if/end if ne pose pas de problème.
Par contre tu as raison pr l'index, j'avais fais un copier/coller et j'ai oublié de supprimer cette partie du code.
Désormais cela fonctionne, je vais vérifier l'ensemble de mon code, car suite à la division de ma BD j'ai pls erreur ds mon code DAO que je n'avais pas avant.
Merci de votre aide.

[Ragnarok85]

Le problème vient bien de oRst.Index, il ne gère plus ce code or j'en ai besoin pr éviter d'avoir des doublons.
Comment je peux résoudre le problème des doublons autrement ou utiliser Index avec une BD scindé?

[Ragnarok85]

Je cherche quelqu'un qui aurait rencontré le même problème lorqu'il a fractionné sa base de donnée, et qui aurait résolu le problème.
Merci de votre aide

[Ragnarok85]

J'ai résolu le problème de l'index par le calcul des clés primaires en utilisant une double boucle qui vérifie pr chaque valeur si elle est déjà attribué.

[Tofalu]

Pour utiliser les index et la méthode Seek dans un recordset il faut que celui-ci soit ouvert en mode OpenTable, ce qui est incompatible avec des tables liées.