Discussion :

[lecaire]

Bonjour
Je cherche comment renseigner un champ de type oui /non d’une table via du code vba
Pour ce faire, je mets en place une base de données qui comprend 3 champs (nom,prenom,present)
Les champs nom et prenom sont de type texte et le champ present est de type oui/non
Dans mon formulaire j’ai deux zones de texte pour le champ nom et prenom et une case à cocher
je veux que si la case à cocher (chkpres) du formulaire est cochée également le champ oui/non dans ma table soit coché

Voila un bout de code pour renseigner les champs nom et prenom de ma table

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 Commande6_Click()
Dim db As DAO.Database
Set db = DBEngine.OpenDatabase("C:\appli\bdtest")
If Me.chkpres.Value = True Then
    MsgBox "present"
    db.Execute " insert into Table1 (nom,prenom) values ('" & Me.txtnom& "','"& Me.txtprenom & "')"
'je veux pouvoir ajouter le troisième champ present une sorte de 
'db.Execute " insert into Table1 (nom,prenom,present) values ('" & Me.txtnom & "','" & ‘Me.txtprenom & "', “machin) à mettre pour decocher le champ present dans ma table)"
 
 Else
    MsgBox "absent"
db.Execute " insert into Table1 (nom,prenom) values ('" & Me.txtnom & "','" & Me.txtprenom & "')"
'je veux pouvoir ajouter le troisième champ present une sorte de 
'db.Execute " insert into Table1 (nom,prenom,present) values ('" & Me.txtnom & "','" & ‘Me.txtprenom & "', machin) " à mettre pour decocher le champ present dans ma table    
End If
End Sub

Je veux bien que vous m’aidiez à compléter ce code pour renseigner le champ present

Merci
Je suis aussi preneur de tout tutoriel ou lien sur l’utilisation du champ oui/non en mode programmation

[FreeAccess]

Bonjour,

Et bien utilise la propriété Value de ta case à cocher...

Et dans ton cas (à mon avis), tu n'as pas besoin d'utiliser d'instruction If....Then..... puisque dans tous les cas le champ [chkpres] de ta table sera le reflet de la valeur de ta case à cocher contenue sur ton formulaire....

[pgz]

Bonjour.

J'imagine que le formulaire est indépendant, sinon effectivement cela n'a pas de sens.

Par contre le If, c'est sûr, il ne sert à rien.

Essaie ceci

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Commande6_Click()
Dim db As DAO.Database
 
Set db = DBEngine.OpenDatabase("C:\appli\bdtest")
 
db.Execute "INSERT INTO Table1 (nom,prenom) VALUES (""" & Me.txtnom & """,""" & Me.txtprenom & """," & iif(Me.ChkPres,"True","False") & ");"
 
Set dB = Nothing
End Sub

Cordialement,

PGZ

[lecaire]

Merci pour vos reponses,
Mon formulaire est en effet indépendant

Code :

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

1
2
3
4
5
6
7
Private Sub Commande6_Click()
Dim db As DAO.Database
 Set db = DBEngine.OpenDatabase("C:\appli\bdtest")
 db.Execute "INSERT INTO Table1 (nom,prenom,present) VALUES (""" & Me.txtnom & """,""" & Me.txtprenom & """," & iif(Me.ChkPres,"-1","0") & ");"
 
Set dB = Nothing
End Sub

marche super