Discussion :

[Guns Of The Patriots]

Bonjour tout le monde,


J'ai un formulaire avec des champs avec des séries de numéros (champ : numbague)

Je voudrais que l'utilisateur puisse supprimer n'importe quelle numéro à condition qu'elle n'existe pas dans ma table "Ma table".

Mon début de code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Select Case MsgBox("Etes-vous sur de vouloir supprimer le numéro de bague ?", vbOKCancel, "Suppression d'une bague")
Case vbOK
 
If Me.numBague = "(Select * From [matable] Where numbague = me.numBague)" Then
 
DoCmd.RunCommand acCmdSelectRecord
DoCmd.RunCommand acCmdDeleteRecord
 
Else
 
MsgBox ("Vous ne pouvez pas supprimer.")
 
End If
 
Case vbCancel
 
End Select

La requete doit être fausse, je ne vois pas comment l'écrire pour vérifier si le champ existe dans la table. Merci d'avance et merci pour ce forumet site complet.

[Tonioyo]

Bonjour,

Une solution serrai de mettre la requete SQL dans un objet recordset qui permet de compter le nombre d'enregistrements (du résultat de la requete).

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Dim rst As Recordset
 
Set rst = Currentdb.OpenRecordset("SELECT * FROM [matable] WHERE numbague = " & me.numBague & ";")
 
Msgbox "Nombre d'enregistrements : " & rst.RecordCount

Attention sur certaines version d'access il est nécessaire d'aller au dernier enregistrement pour que le compteur se mettre correctement à jour

Pour se positionner sur le dernier enregistrement:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

rst.MoveLast

[Guns Of The Patriots]

Merci beaucoup Tonioyo. Peut-on mettre cette requete entre un if ?

Si la requete est juste alors on ne supprime pas.

[Invité]

Bonjour

Je t'invite à lire ce tuto sur DAO : Définition et manipulation de données avec DAO

Tu y trouveras toutes les informations ainsi que la suppression.

Philippe

[Guns Of The Patriots]

Tellement d'infos que je ne trouve pas ce que je cherche. Pourrais-tu m'aiguiller stp ?

[Tonioyo]

En fait tu peux faire ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
'Selon la version d'access il peu arriver que l'on doit mettre
'rst comme Object
Dim rst As Recordset
 
Set rst = Currentdb.OpenRecordset("SELECT * FROM [matable] WHERE numbague = " & me.numBague & ";")
 
'Eventuellement selon la version d'access
rst.moveLast
rst.MoveFirst
 
if rst.RecordCount > 0 then 
   'Instructions de suppression de l'enregistrement
else
   'Mettre un message disant que la suppression est impossible
end if
 
'Ne pas oublier de désallouer les objets
rst.close
Set rst = Nothing