Discussion :

[nana68]

Bonjour à tous,

Je gère un fichier Access avec un nombre assez conséquent d'objets divers (type tables, requêtes...etc.) et j'ai donc créer un certain nombre de groupe personnalisé dans la partie de gauche dédié à la navigation.

Mais là, n'est pas le problème.
J'ai créer dans un formulaire un bouton permettant de créer des sauvegardes d'une table relativement sensible.
Ci-dessous la première partie de mon code

Code :

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

1
2
3
4
Dim Dateheure As String
Dateheure = Year(Date) & Month(Date) & Day(Date) & "_" & Hour(Time) & "-" & Minute(Time)
 
DoCmd.CopyObject , "Backup_Table_Detailtarifaire_" & Dateheure , acTable, "Detailtarifaire"

Jusque là tout va bien, mais maintenant, pour éviter que la copie de la table ne se retrouve dans les éléments non-classé, j'aimerais pouvoir rajouter dans mon code une commande qui déplacerait ce nouveau fichier vers mon groupe personnalisé et là, je butte en touche.

Existe-t-il une commande de transfert vers un groupe personnalisé?
Si oui, comment faire pour qu'il prenne en compte à chaque fois tous les objets commençant par "Backup_Table_Detailtarifaire_" en ignorant la variable Dateheure qui elle va tout le temps être différente?

Merci pour votre aide

[Jean-Philippe André]

Salut,

c'est tout à fait possible, en insérant tes détails dans la table MSysNavPaneGroupToObjects.

Tu auras 2 choses à passer en paraètres : ton nom de table, ton nom de groupe

Le code ressemble à ceci :

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
 
Public Sub DeplacerObjetDansGroupe(strNomObjet As String, strNomGroupe As String)
    Dim strSql, idObj, idGrp, db
    Set db = CurrentDb
'on récupère les ID dans les tables Systèmes
    idObj = DLookup("Id", "MSysNavPaneObjectIDs", "Name='" & strNomObjet & "'")
    idGrp = DLookup("Id", "MSysNavPaneGroups", "Name='" & strNomGroupe & "'")
' on détermine si l'objet est déjà dans un groupe (en principe non pour toi)
    If DCount("*", "MSysNavPaneGroupToObjects", "GroupID = " & idGrp & " AND ObjectID = " & idObj) > 0 Then
        strSql = "UPDATE MSysNavPaneGroupToObjects SET GroupID = " & idGrp & ", Name='" & strNomObjet & "' WHERE ObjectID = " & idObj
        db.Execute strSql, dbFailOnError
    Else
        strSql = "INSERT INTO MSysNavPaneGroupToObjects ( GroupID, ObjectID, Name ) " & vbCrLf & _
        "VALUES (" & idGrp & "," & idObj & ",'" & strNomObjet & "');"
        db.Execute strSql, dbFailOnError
    End If
'on rafraichit l'interface
    RefreshDatabaseWindow
    Set db = Nothing
End Sub

*correction End Sub *
et l'appel :

Code :

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

DeplacerObjetDansGroupe "Backup_Table_Detailtarifaire_" & Dateheure , "TonGroupePersoQuiTue"

[nana68]

Merci Jean-Philippe!

Je débute en VBA et je suis pas certaine, mais il n'y aurait pas un problème dans le code? cela commence par un Sub et fini par End Function...
S'agit-il ici de créer un module avec le code function et de l'appeler dans mon code qui est rattaché à mon bouton?
Dans ce cas, je dois utiliser call pour l'appel du code, avec un Dim?

Désolé pour toutes ces questions mais j'essaye de comprendre et c'est pas toujours simple quand on commence.

[marot_r]

Bonjour.

Tu as raison, cela devrait etre end sub et non end function.
L'editeur va corriger automatiquement.

Pour l'appel, il faut le mettre dans une procdure ou une function.
A mon avis comme ceci

Code :

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

1
2
DoCmd.CopyObject , "Backup_Table_Detailtarifaire_" & Dateheure , acTable, "Detailtarifaire"
DeplacerObjetDansGroupe "Backup_Table_Detailtarifaire_" & Dateheure , "TonGroupePersoQuiTue"

A+

[nana68]

Merci marot_r!

J'ai fais des tests et cela fonctionne bien...à une exception...c'est que j'aimerais lui dire de prendre toutes les tables dont le nom commence par Backup_Table_Detailtarifaire_

J'ai essayé avec Like, mais je vois

Code :

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

DeplacerObjetDansGroupe("Backup_Tabelle_DBH_RICHTPREISDETAIL_" Like "Backup_Tabelle_DBH_RICHTPREISDETAIL_*", "Access_Backup")

mais je ne maîtrise pas encore les histoires de syntaxes :-(
Est-ce que tu pourrais m'aider? STP

[marot_r]

Bonjour.

Bonne idee de syntaxe mais le VBA n'est pas comme du SQL, tu ne peux pas specifier ce que tu veux faire et esperer qu'il le fasse.
Il faut ecrire tout soi-meme.

dans ton cas :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
dim db as dao.database:set db=currentdb 'Pointe sur la BD en cours.
dim t as dao.tabledef 'Defini un objet de type table
 
for each t in db.tabledefs 'Pour toute le tables de la BD
 
   if t.name like "Backup_Tabelle_DBH_RICHTPREISDETAIL_*" then
      DeplacerObjetDansGroupe(t.name , "Access_Backup")
  end if
 
next t
 
db.close: set db=nothing 'Signale au compilateur (et surtout a l'humain) qu'on en a fini avec l'objet

A+