Bonjour à tous !
Voilà je fais appel à vous car je n'arrive pas à cerner d'où vient mon problème étant donné que Visual Basic ne me retourne aucune erreur. Voici l'image :
Voici le contexte : Je sélectionne une formation dans la liste déroulante du haut, qui me retourne le libellé, la date de début/fin ainsi que la liste des salarié ayant demandé cette formation dans la zone de liste à gauche.
Le bouton au milieu doit me permettre de créer un enregistrement dans une table appelée "SUIVRE" à condition que l'avis du supérieur (AvisSuper dans la table "DEMANDER") soit favorable "F". S'il est défavorable "D" on affiche un message pour dire que l'inscription est impossible.
Je cherche a coder ce bouton permettant l'ajout de l'enregistrement, sauf que quand je clique dessus, je n'ai aucune erreur retournée de la part de Visual Basic, mais aucun résultat voulu non plus ! Voici le code du bouton :
Sauriez vous d'où vient le problème ? D'avance merci pour votre aide !
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 Private Sub Commande12_Click() Dim bdFormation As Database Dim rsSuivre As Recordset Dim requete As String Set bdFormation = CurrentDb() requete = "select CodeSala, CodeForm, AvisSuper from DEMANDER where CodeSala ='" & ListeDemandeur & "'" & " AND CodeForm ='" & Modifiable0 & "'" Set rsSuivre = bdFormation.OpenRecordset(requete, DB_OPEN_DYNASET) If AvisSuper = "D" Then MsgBox ("Avis défavorable ... inscription impossible !!!") End If If AvisSuper = "F" Then Set rsSuivre = bdFormation.OpenRecordset("SUIVRE", DB_OPEN_DYNASET) rsSuivre.AddNew rsSuivre!CodeSala = ListeDemandeur rsSuivre!CodeForm = Modifiable0 rsSuivre.Update MsgBox ("Participation acceptée !") End If End Sub
Partager