Bonjour,
J'ai une fonction qui recr=E9e des liens vers une db...
Sur certaines tables, j'ai la dialog box "Select Unique=20
Record Identifier" ...
Y a-t-il moyen d'=E9viter cela ?
Voici mon code :=20
Public Sub GoTraining()
Dim DbWork As Database
Dim Tbl As TableDef
Dim TableName As String
=20
Set DbWork =3D CurrentDb
DoCmd.SetWarnings (False)
=20
For Each Tbl In DbWork.TableDefs
=20
If UCase(Tbl.SourceTableName) Like "SU.*" Then
' Table de Link
TableName =3D Right(Tbl.SourceTableName, Len
(Tbl.SourceTableName) - 3)
CurrentDb.Execute ("Drop Table " & TableName)
DoCmd.TransferDatabase acLink, "ODBC=20
Database", "ODBC;DSN=3DLinkDev;UID=3DSU;PWD=3Dsys", acTable,=20
Tbl.NAME, Tbl.NAME, 0, True
End If
Next
DbWork.Close
=20
DoCmd.SetWarnings (True)
=20
End Sub
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
Xavier HUE
Bonjour François,
Une piste: vérifie si les tables que tu attaches ont bien une clé primaire.
Cordialement.
-----Message d'origine----- Bonjour, J'ai une fonction qui recrée des liens vers une db... Sur certaines tables, j'ai la dialog box "Select Unique Record Identifier" ... Y a-t-il moyen d'éviter cela ? Voici mon code : Public Sub GoTraining() Dim DbWork As Database Dim Tbl As TableDef Dim TableName As String
Set DbWork = CurrentDb
DoCmd.SetWarnings (False)
For Each Tbl In DbWork.TableDefs
If UCase(Tbl.SourceTableName) Like "SU.*" Then ' Table de Link TableName = Right(Tbl.SourceTableName, Len (Tbl.SourceTableName) - 3) CurrentDb.Execute ("Drop Table " & TableName) DoCmd.TransferDatabase acLink, "ODBC Database", "ODBC;DSN=LinkDev;UID=SU;PWD=sys", acTable, Tbl.NAME, Tbl.NAME, 0, True End If Next DbWork.Close
DoCmd.SetWarnings (True)
End Sub
D'avance merci
François .
Bonjour François,
Une piste: vérifie si les tables que tu attaches ont bien
une clé primaire.
Cordialement.
-----Message d'origine-----
Bonjour,
J'ai une fonction qui recrée des liens vers une db...
Sur certaines tables, j'ai la dialog box "Select Unique
Record Identifier" ...
Y a-t-il moyen d'éviter cela ?
Voici mon code :
Public Sub GoTraining()
Dim DbWork As Database
Dim Tbl As TableDef
Dim TableName As String
Set DbWork = CurrentDb
DoCmd.SetWarnings (False)
For Each Tbl In DbWork.TableDefs
If UCase(Tbl.SourceTableName) Like "SU.*" Then
' Table de Link
TableName = Right(Tbl.SourceTableName, Len
(Tbl.SourceTableName) - 3)
CurrentDb.Execute ("Drop Table " & TableName)
DoCmd.TransferDatabase acLink, "ODBC
Database", "ODBC;DSN=LinkDev;UID=SU;PWD=sys", acTable,
Tbl.NAME, Tbl.NAME, 0, True
End If
Next
DbWork.Close
Une piste: vérifie si les tables que tu attaches ont bien une clé primaire.
Cordialement.
-----Message d'origine----- Bonjour, J'ai une fonction qui recrée des liens vers une db... Sur certaines tables, j'ai la dialog box "Select Unique Record Identifier" ... Y a-t-il moyen d'éviter cela ? Voici mon code : Public Sub GoTraining() Dim DbWork As Database Dim Tbl As TableDef Dim TableName As String
Set DbWork = CurrentDb
DoCmd.SetWarnings (False)
For Each Tbl In DbWork.TableDefs
If UCase(Tbl.SourceTableName) Like "SU.*" Then ' Table de Link TableName = Right(Tbl.SourceTableName, Len (Tbl.SourceTableName) - 3) CurrentDb.Execute ("Drop Table " & TableName) DoCmd.TransferDatabase acLink, "ODBC Database", "ODBC;DSN=LinkDev;UID=SU;PWD=sys", acTable, Tbl.NAME, Tbl.NAME, 0, True End If Next DbWork.Close
