Discussion :

[Bou31]

Bonjour,

J'ai un formulaire d'une dizaine de champs à saisir qui alimente une table. J'aimerai ajouter une case à cocher qui me permettrai d'enregistrer deux des dix champs de mon formulaire dans une autre table.
Et lorsque je décoche la case, je supprimerai les deux champs enregistré de ma table.

Je débute en Access et je ne trouve pas de moyen de réaliser ceci.

Merci.

[Gado2600]

Bonsoir,
Pour réaliser votre projet, il vous faudrait placer une procédure événementielle sur votre case à cocher.
Cette procédure serait de type AfterUpdate et le développement en VBA.

Votre algorithme se déroulerait ainsi pour la suite :
Si CaseACocher = True Alors
Enregistrer les données
Sinon
Effacer les données
Fin Si

Pour ce qui est de l'enregistrement, soit vous passez par le SQL, soit par le Recordset.

Avec le recordset, vous devrez user des fonctions Edit (sans oublier le Update) pour l'enregistrement.
Pour le cas où vous effacez les données, vous n'aurez qu'à faire un enregistrement vide, comme par exemple :

Code :

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

rec.Fields("NomChamp").Value = ""

Vérifiez juste que vous avez le droit de mettre vos champs à Null.

Bon courage

[Bou31]

Bonsoir,

Merci de votre aide, je dois vous avouer que je n'ai pas de connaissance en VBA, mais sans efforts on arrive à rien. Je vais essayer de m'appuyer sur ce que vous m'avez proposé, et voir ce que j'arrive, ou pas, à faire.

Merci.

[Gado2600]

Bonsoir,
Normalement, dans mon précédent post, vous avez tous les mots clés nécessaires à la réalisation.
Si vous ne vous en sortez pas, montrez ce que vous avez fait sur ce topic et on vous aidera.

[Bou31]

Bonjour,

Après avoir essayé de comprendre le VBA et sa syntaxe, je n'arrive toujours pas à réaliser ce que je veux faire.

Voici mon code ( j'ai un peu honte de le montrer)

Code :

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

1
2
3
4
5
6
7
Private Sub Cocher20_AfterUpdate()
If [Cocher20 = True] Then
requeteSQL:Insert into [Noria LRU] (SN, PN,Nom Noria) Select (SN,PN,[Nom LRU]) From LRU where ""
Else ()
 
 
End Sub

[Gado2600]

Bonjour,
Corriger déjà comme cela :

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Cocher20_AfterUpdate()
Dim SQL as String
If Me.Cocher20.Value = True Then
SQL = "Insert into [Noria LRU] (SN, PN,Nom Noria) Select (SN,PN,[Nom LRU]) From LRU where """
'Commande pour lancer SQL
Else ()
 
 
End Sub

[loufab]

Bonjour,

Gado2600, si tu recopies ma réponse avec des erreurs dans 10 ans on vous retrouvera encore en train d'échanger sur ce sujet !

Voici le 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
Private Sub Cocher20_AfterUpdate()
Dim SQL as String
 
'If Me.Cocher20.Value = True Then 'pourquoi ajouter = true ? 
 
If me.cocher20 then
'Ici par contre on a un problème, la condition Where ne va pas s'écrire seule ?!!! à moins de vouloir insérer l'ensemble de LRU dans [Noria LRU] il va bien falloir choisir un enregistrement distinct !!
    SQL = "Insert into [Noria LRU] (SN, PN,Nom Noria) Select (SN,PN,[Nom LRU]) From LRU where """
 
'C'est bien de déclarer une requête dans une variable, mais elle ne va pas s'exécuter seule !!!
currentdb.execute Sql
 
'Else () cette syntaxe n'existe pas !!!
Endif 'ça par contre c'est obligatoire !!
 
End Sub

Cordialement,