Bonjour
J'ai besoin de synchroniser 2 bases ; une base de référence avec le Code et
l'application et une Base Client contenant les datas, le but étant de mettre
à jour le Code dans la base du Client.
Pour ce faire en passant par une 3ème base relais, j'ai besoinà un moment de
supprimer toutes lesTables et Relations avant de les reimporter.
Lorsque je parcours les Collections TableDefs et Relations de ma Base (For
each xx in etc) pour faire db.tableDefs.Delete de chaque objet, tous les
objets ne sont pas parcourus et donc deleté. !
J'ai tout vérifié et rien à faire.
Par contre en Lisant chaque Objet par For Each etc (et stockant le name de
l'objet dans un tableau) puis en Deletant chaque entrée du tableau, j'arrive
à ce que je veux.
Avez vous connaissance d'un bug quelconque sur ce sujet ?
Où il ya il une autre façon de faire ?
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Jacques
Bonjour,
Voici comment je procède pour vider mes tables. Si cela peut t'aider ...
If fExistTable("Nom_Table") Then DoCmd.RunSQL "DELETE FROM Nom_Table" End If
Function fExistTable(strTableName As String) As Boolean
Dim DB As Database Dim I As Integer Dim TlbExist As Boolean
Set DB = CurrentDb
TlbExist = False For I = 0 To DB.TableDefs.Count - 1 If strTableName = DB.TableDefs(I).Name Then TlbExist = True Exit For End If Next I Set DB = Nothing
fExistTable = TlbExist
End Function
Autre petite fonction 'Comment récupérer le nom des tables et de leurs champs ? Public Sub testTable() Dim DB As DAO.Database Dim tbd As DAO.TableDef Dim fld As DAO.Field Set DB = CurrentDb For Each tbd In DB.TableDefs For Each fld In tbd.Fields MsgBox "Table : " & tbd.Name & " Colonne : " & fld.Name Next Next End Sub
"Geronimo99" a écrit dans le message de news:
Bonjour J'ai besoin de synchroniser 2 bases ; une base de référence avec le Code et
l'application et une Base Client contenant les datas, le but étant de mettre
à jour le Code dans la base du Client. Pour ce faire en passant par une 3ème base relais, j'ai besoinà un moment de
supprimer toutes lesTables et Relations avant de les reimporter. Lorsque je parcours les Collections TableDefs et Relations de ma Base (For each xx in etc) pour faire db.tableDefs.Delete de chaque objet, tous les objets ne sont pas parcourus et donc deleté. ! J'ai tout vérifié et rien à faire. Par contre en Lisant chaque Objet par For Each etc (et stockant le name de l'objet dans un tableau) puis en Deletant chaque entrée du tableau, j'arrive
à ce que je veux. Avez vous connaissance d'un bug quelconque sur ce sujet ? Où il ya il une autre façon de faire ?
Merci d'avance aux plus chevronnés
Bonjour,
Voici comment je procède pour vider mes tables. Si cela peut t'aider ...
If fExistTable("Nom_Table") Then
DoCmd.RunSQL "DELETE FROM Nom_Table"
End If
Function fExistTable(strTableName As String) As Boolean
Dim DB As Database
Dim I As Integer
Dim TlbExist As Boolean
Set DB = CurrentDb
TlbExist = False
For I = 0 To DB.TableDefs.Count - 1
If strTableName = DB.TableDefs(I).Name Then
TlbExist = True
Exit For
End If
Next I
Set DB = Nothing
fExistTable = TlbExist
End Function
Autre petite fonction
'Comment récupérer le nom des tables et de leurs champs ?
Public Sub testTable()
Dim DB As DAO.Database
Dim tbd As DAO.TableDef
Dim fld As DAO.Field
Set DB = CurrentDb
For Each tbd In DB.TableDefs
For Each fld In tbd.Fields
MsgBox "Table : " & tbd.Name & " Colonne : " & fld.Name
Next
Next
End Sub
"Geronimo99" <Geronimo99@discussions.microsoft.com> a écrit dans le message
de news:3078A23A-405D-41D8-A14F-7EBD8A5F3256@microsoft.com...
Bonjour
J'ai besoin de synchroniser 2 bases ; une base de référence avec le Code
et
l'application et une Base Client contenant les datas, le but étant de
mettre
à jour le Code dans la base du Client.
Pour ce faire en passant par une 3ème base relais, j'ai besoinà un moment
de
supprimer toutes lesTables et Relations avant de les reimporter.
Lorsque je parcours les Collections TableDefs et Relations de ma Base (For
each xx in etc) pour faire db.tableDefs.Delete de chaque objet, tous les
objets ne sont pas parcourus et donc deleté. !
J'ai tout vérifié et rien à faire.
Par contre en Lisant chaque Objet par For Each etc (et stockant le name de
l'objet dans un tableau) puis en Deletant chaque entrée du tableau,
j'arrive
à ce que je veux.
Avez vous connaissance d'un bug quelconque sur ce sujet ?
Où il ya il une autre façon de faire ?
Voici comment je procède pour vider mes tables. Si cela peut t'aider ...
If fExistTable("Nom_Table") Then DoCmd.RunSQL "DELETE FROM Nom_Table" End If
Function fExistTable(strTableName As String) As Boolean
Dim DB As Database Dim I As Integer Dim TlbExist As Boolean
Set DB = CurrentDb
TlbExist = False For I = 0 To DB.TableDefs.Count - 1 If strTableName = DB.TableDefs(I).Name Then TlbExist = True Exit For End If Next I Set DB = Nothing
fExistTable = TlbExist
End Function
Autre petite fonction 'Comment récupérer le nom des tables et de leurs champs ? Public Sub testTable() Dim DB As DAO.Database Dim tbd As DAO.TableDef Dim fld As DAO.Field Set DB = CurrentDb For Each tbd In DB.TableDefs For Each fld In tbd.Fields MsgBox "Table : " & tbd.Name & " Colonne : " & fld.Name Next Next End Sub
"Geronimo99" a écrit dans le message de news:
Bonjour J'ai besoin de synchroniser 2 bases ; une base de référence avec le Code et
l'application et une Base Client contenant les datas, le but étant de mettre
à jour le Code dans la base du Client. Pour ce faire en passant par une 3ème base relais, j'ai besoinà un moment de
supprimer toutes lesTables et Relations avant de les reimporter. Lorsque je parcours les Collections TableDefs et Relations de ma Base (For each xx in etc) pour faire db.tableDefs.Delete de chaque objet, tous les objets ne sont pas parcourus et donc deleté. ! J'ai tout vérifié et rien à faire. Par contre en Lisant chaque Objet par For Each etc (et stockant le name de l'objet dans un tableau) puis en Deletant chaque entrée du tableau, j'arrive
à ce que je veux. Avez vous connaissance d'un bug quelconque sur ce sujet ? Où il ya il une autre façon de faire ?