Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access Suppression relation par le code

Suppression relation par le code

1 réponse
Avatar
FRED87
Bonjour

Comment faire pour supprimer une relation par le code VB=20
en utilisant la methode :

"""""""""""""""""""""""""""""""""""""""""""""""""""""""""
Dim App As Access.Application
Set App =3D New Access.Application
App.Visible =3D False

App.OpenCurrentDatabase ("C:\Base.mdb")

'------------------------ Suppression des tables=20
App.DoCmd.DeleteObject acTable, "TOTO"
App.DoCmd.DeleteObject acTable, "TUTU"
'-------------------------------------------------

App.CloseCurrentDatabase
App.QUIT
Set App =3D Nothing
"""""""""""""""""""""""""""""""""""""""""""""""""""""""""


De m=EAme quelle est la methode pour la recr=E9er.

Merci d'avance pour toutes aide

Cordialement
FRED87
Signaler un problème avec ce contenu

1 réponse

Supprimer
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
Avatar
Sylvain Lafontaine
Voir la section « Création de relations un-à-plusieurs (clés étrangères) »
dans
http://www.microsoft.com/FRANCE/MSDN/Technologies/technos/dataaccess/info/info.asp?mar=/FRANCE/MSDN/Technologies/technos/dataaccess/info/migration_DAO_ADO.html
pour la création. J'imagine que la suppression doit êtra facile à trouver à
partir de ça.

S. L.

"FRED87" wrote in message
news:085901c52bc5$aeab70f0$
Bonjour

Comment faire pour supprimer une relation par le code VB
en utilisant la methode :

"""""""""""""""""""""""""""""""""""""""""""""""""""""""""
Dim App As Access.Application
Set App = New Access.Application
App.Visible = False

App.OpenCurrentDatabase ("C:Base.mdb")

'------------------------ Suppression des tables
App.DoCmd.DeleteObject acTable, "TOTO"
App.DoCmd.DeleteObject acTable, "TUTU"
'-------------------------------------------------

App.CloseCurrentDatabase
App.QUIT
Set App = Nothing
"""""""""""""""""""""""""""""""""""""""""""""""""""""""""


De même quelle est la methode pour la recréer.

Merci d'avance pour toutes aide

Cordialement
FRED87