Précédent   Forum des professionnels en informatique > Logiciels > Microsoft Office > Access > VBA Access
VBA Access Le forum pour les questions relatives au code VBA sous Access, et à son environnement de développement VBE.
Partagez cette discussion sur d'autres réseaux sociaux : Viadeo Twitter Google Facebook Digg Delicious MySpace Yahoo
Réponse Proposer ce sujet en actualité
 
Outils de la discussion
Publicité
'
Vieux 18/10/2011, 10h54   #1
Nouveau Membre du Club
 
Homme
Channel Support Coordinator
Inscription : avril 2011
Messages : 91
Détails du profil
Informations personnelles :
Sexe : Homme
Âge : 35
Localisation : Algérie

Informations professionnelles :
Activité : Channel Support Coordinator
Secteur : High Tech - Opérateur de télécommunications

Informations forums :
Inscription : avril 2011
Messages : 91
Points : 36
Points : 36
Envoyer un message via MSN à lakhdar16
Par défaut Supprimer un jeu d'enregistrements à l'aide d'une boucle For

Bonjour;
j'ai deux (02) tables [Sim] et [Sortie_Sim].
j'ai écris un code pour insérer un jeux d'enregistrement de x à x+n dans la table [Sortie_Sim] par l'aide de l'instruction FOR et j'ai réussi,
la deuxième étape c'était supprimer les mêmes enregistrements (de x à x+n) de la table [Sim] j'ai écris le code ci-dessous: mais à l'exécution il me demande la valeur "i": le message reçu c'est un input box me demandant d'inséré une valeur pour i :

le code:

Code :
1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Valider_Click()
Dim i, NSD, NSF as Double

For i = NSD To NSF
        
CurrentDb.Execute "INSERT INTO [Sorties_SIM]([champ1],[champ2],[champ3],) VALUES(" & Me.champ01 & "," & i & ",'" & Me.champ03 & "')"
        
DoCmd.RunSQL ("Delete [champ2] From SIM where [champ2] = i ")
        
        Next i

End Sub
prière de m'apporter votre aide SVP.

merci d'avance.
lakhdar16 est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 18/10/2011, 12h45   #2
Expert Confirmé
 
Avatar de pc75
 
Inscription : septembre 2004
Messages : 2 805
Détails du profil
Informations personnelles :
Âge : 56
Localisation : France, Paris (Île de France)

Informations forums :
Inscription : septembre 2004
Messages : 2 805
Points : 3 003
Points : 3 003
Bonjour,

Et comme ça ?

Code :
1
2
 
DoCmd.RunSQL ("Delete [champ2] From SIM where [champ2] = " & i)
__________________
Par principe, je ne réponds pas aux messages URGENT.
Il n'y a pas de choses urgentes, il n'y a que des choses en retard. (un inconnu)
pc75 est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 18/10/2011, 12h48   #3
Membre actif
 
Avatar de antoinev2
 
Inscription : septembre 2008
Messages : 124
Détails du profil
Informations personnelles :
Localisation : France

Informations forums :
Inscription : septembre 2008
Messages : 124
Points : 181
Points : 181
Citation:
Envoyé par lakhdar16 Voir le message
Code :
DoCmd.RunSQL ("Delete [champ2] From SIM where [champ2] = i ")
Bonjour,

Tu as mis le "i" directement dans la chaîne SQL... et non pas comme une variable :
Code :
DoCmd.RunSQL ("Delete [champ2] From SIM where [champ2] = " & i)
antoinev2 est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 18/10/2011, 12h58   #4
Nouveau Membre du Club
 
Homme
Channel Support Coordinator
Inscription : avril 2011
Messages : 91
Détails du profil
Informations personnelles :
Sexe : Homme
Âge : 35
Localisation : Algérie

Informations professionnelles :
Activité : Channel Support Coordinator
Secteur : High Tech - Opérateur de télécommunications

Informations forums :
Inscription : avril 2011
Messages : 91
Points : 36
Points : 36
Envoyer un message via MSN à lakhdar16
Par défaut Résolu

Bonjour,

je vous remercie beaucoup antoinev2 pour votre réponse ça marche

encore merci.
lakhdar16 est déconnecté   Envoyer un message privé Réponse avec citation 00
Réponse Proposer ce sujet en actualité Cette discussion est résolue.
Outils de la discussion



Fuseau horaire GMT +2. Il est actuellement 05h22.


 
 
 
 
Partenaires

Hébergement Web