Insertion d'un double dans une table
Bonjour,
J'ai créé un formulaire qui permet à des utilisateurs de rentrer le nombre de demi-heure qu'ils passent sur une activité. Afin de le reconvertir en heure je multiplie ce nombre par 0.5. Or l'enregistrement dans ma table ne fonctionne plus (le nombre d'heure est déclaré comme réelle double).
Voici mon code
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
|
champ_secretariat.SetFocus
nb = champ_secretariat.Value
nb_bis = 0.5 * nb
MsgBox (Str(nb_bis))
champ_semaine.SetFocus
sem = champ_semaine.Value
champ_année.SetFocus
an = champ_année.Value
list_nom.SetFocus
ident = list_nom.Text
DoCmd.SetWarnings False
DoCmd.RunSQL "INSERT INTO Liaison_pers_activ_cara (`identifiant`, `ID_act_cara`, `Nb heure`, `Semaine`, `Année`) VALUES " + _
"( '" + ident + "', '1', '" + Str(nb_bis) + "', '" + Str(sem) + "', '" + Str(an) + "' )"
DoCmd.SetWarnings True |
L'enregistrement fonctionnait lorsque l'on rentrait un entier et le nombre dans la messageBox correspond bien au nombre voulu.
Merci de votre aide