Bonjour à toutes et tous.
Je programme actuellement quelques fonctions en VBA, et je souhaite supprimer des enregistrements d'une table de ma base de données (access).
Je butte sur un soucis :
-comment supprimer les enregistrements d'un recordset dans la table courante, sans que cette suppression ne se répercute sur les tables liées ? J'ai bien tenté de jouer avec l'option "
adAffectGroup" mais rien n'y fait !
Merci d'avance pour votre aide !!
Afin d'illustrer, voici un bout de code :
' connexion à la BD
Set MaConnexion1 = New Connection
MaConnexion1.Provider = "Microsoft.Jet.oledb.4.0"
MaConnexion1.Open CStr(Application.Worksheets("DataBase").Cells(3, 4).Value)
' creation requete
Set MaRequete1 = New Recordset
With MaRequete1
.ActiveConnection = ConnexionDest
queryString = "SELECT * FROM SeqAlgo WHERE SeqNom = " & Chr(39) & SeqName & Chr(39) & " "
.Open queryString, , adOpenDynamic, adLockPessimistic
End With
'suppression de l'enreg, qui malgré moi, supprime aussi les enregistrements des tables liées
Do While MaRequete1.EOF <> True
MaRequete1.Delete adAffectGroup
MaRequete1.MoveNext
Loop
MaRequete1.Close