Supprimer un enregistrement dans Access [Résolu]

Signaler
Messages postés
8
Date d'inscription
mardi 16 septembre 2003
Statut
Membre
Dernière intervention
7 octobre 2004
-
Messages postés
8
Date d'inscription
mardi 16 septembre 2003
Statut
Membre
Dernière intervention
7 octobre 2004
-
Bonjour,

Je fais un programme qui affiche des sous-catégories en fonctions de la catégories choisie en dessus

Cela fonctionne bien

Le problème c'est pour supprimer une sous catégories.
Je n'arrive pas a faire un test pour savoir si elle est encore liée
a une catégories.

J'ai fais un SELECT COUNT (X)from ... qui fonctionne mais je n'arrive pas a l'exécuter dans le code VB pour récupérer le X dans une variable afin de faire un test
IF X = 0
Delete
Else
MsgBox("Impossible de supprimer la sous-catégorie")
End if

6 réponses

Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
62
Dim Base AS Database
Set base = OpenDatabase.......;

Dim RS as recordset
SET RS = Base.OpenRecordset("SELECT COUNT(0) FROM TABLE_LIAISON WHERE id_SSCATEGORIE=10")

if RS.Fields(0) = 0 Then
'# EFFACER
Else
Msgbox ........;
Endif

Amusez-vous ! ;)
Renfield - thomas_reynald@msn.com
Admin CodeS-SourceS
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 154 internautes nous ont dit merci ce mois-ci

Messages postés
42
Date d'inscription
mercredi 31 mars 2004
Statut
Membre
Dernière intervention
27 octobre 2004

Essaye ça :

tu mets un command button, et puis dans cet evenement click

Dim cnn As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim fld As ADODB.Field
Dim Provider As String
Dim Base As String

Provider = "Microsoft.Jet.OLEDB.4.0"
Base = App.Path & "\tabase.mdb"
'Ouverture base
cnn.Open "Provider=" & Provider & ";" & _
"Data Source=" & Base & ";"

'Ouverture Recordset
rst.Open "delete from TATABLE where condition", cnn
rst.update
rst.close
Messages postés
1356
Date d'inscription
lundi 27 octobre 2003
Statut
Membre
Dernière intervention
19 novembre 2008
1
cette méthode n'est pas indispensable si les relations sont bien concu au départ

si tu as fais une relation 1,n en appliquant l'intégrité réferencielle avec l'option mettre à jour + Effacer en cascade les champs correspondants.

le résultat : si l'utilisateur supprime une categorie toutes les sous-catégorie correspondantes seront supprimer automatiquement.

:-p [mailto:cyberscorp2004@msn.com MSN] :big) [mailto:frop01@yahoo.fr YAHOO] >:)

Membre du club CodeS-SourceS
Messages postés
42
Date d'inscription
mercredi 31 mars 2004
Statut
Membre
Dernière intervention
27 octobre 2004

ou a la fin tu peu faire a la place

'Ouverture Recordset
rst.Open "select from TATABLE where condition", cnn
if rst.eof = true then
msg("as possible de supprimer")
else
rst.close
rst.Open "delete from TATABLE where condition", cnn
rst.update
rst.close
End If
Messages postés
8
Date d'inscription
mardi 16 septembre 2003
Statut
Membre
Dernière intervention
7 octobre 2004

Le problème avec cette solution c'est que quand j'execute il me met le message d'erreur suivant :

" Trop peu de paramètres. 1 attendu "

Et je sais vraiment pas pourquoi cela me met ça !
Messages postés
8
Date d'inscription
mardi 16 septembre 2003
Statut
Membre
Dernière intervention
7 octobre 2004

Merci ça marche