Discussion :

[Jutige]

Bonjour,

J'ai un souci avec cette option. En effet, quand je veut récupérer la base "courante", il va pointer systématiquement sur une autre base de données.
En mettant des MsgBox, j'ai isolé la partie de code où ça plantait...

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
Private Sub A50_enregistrement_Click()
On Error GoTo Err_A50_enregistrement_Click
 
    Dim stDocName As String
 
    Dim qdfDelete As QueryDef
 
    ' modif 04/09/2003
    ' suppression des lignes dans "A50_Sauvegarde des détails-indicateur" et "A50_Recapitulatif CVS" pour
    ' le même domaine et le même intervalle de temps que ceux choisis par l'utilisateur
    'Set qdfDelete = CurrentDb.QueryDefs("A50_CVS_détail intervention delete")
    Set qdfDelete = CurrentDb.QueryDefs("A50_CVS_détail intervention delete")
    qdfDelete.PARAMETERS("@IdSite").Value = Me.Domaine.Value
    qdfDelete.PARAMETERS("@DebutPeriode").Value = Me.Date_début.Value
    qdfDelete.PARAMETERS("@FinPeriode").Value = Me.Date_fin.Value

A50_CVS_détail intervention delete est une requête qui pointe vers une table attachée vers une autre base. En effet, quand je veux l'ouvrir en Mode Création, il pointe vers l'autre endroit.
Que puis-je faire pour faire pointer vers la table courante (sachant que je peux à tout moment copier la base de données vers le bon endroit)

Merci d'avance.

Jutige

[Jutige]

Je viens de trouver une info dans la table MSysObjects dans laquelle se trouve les attachements de table à une base de données.
Mais, je ne sais pas comment mettre à jour ses données.
Merci d'avance.

Jutige