Discussion :

[Jérémie Jacquemin]

Bonjour,

J'ai une base de données avec une variable SEXE d'une table, cette variable est codée en -1 si homme et 0 si femme.
Je crée un formulaire pour ajouter une nouvelle personne et pour le choix du sexe je voudrais proposer le choix "Homme" ou "Femme" et récupérer -1 ou 0 selon le sexe dans ma table.

J'ai changé le type de ma variable SEXE en texte dans ma table.
J'ai crée une liste déroulante proposant Homme ou Femme et inscrit le code ci-après lorsque l'on valide/clique sur le bouton nouvel enregistrement :

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
'bouton de nouvel enregistrement/ajout du nouveau personnel
Private Sub BoutonAjouterPersonnel_Click()
 
    'nom du formulaire/nom du champs/valeur du champs
    ChampSexe = Form_PERSONNEL1.choixSexe.Value
 
    If ChampSexe = "Homme" Then
        ChampSexe = "-1"
 
    ElseIf ChampSexe = "Femme" Then
        ChampSexe = "0"
    End If
 
    Form.Recordset.AddNew
 
End Sub

mais rien ne se passe. L'ajout de la personne se fait correctement mais je trouve la valeur "Homme" ou "Femme" dans ma table alors que je voudrais "-1" ou "0"

Si quelqu'un voit ce qui cloche, merci !

[Jérémie Jacquemin]

En fait j'avais oublié de rajouter cette instruction en dessous de End If :

Code :

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

Form_PERSONNEL1.choixSexe.Value = ChampSexe

Maintenant ça marche !