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 codeL'enregistrement fonctionnait lorsque l'on rentrait un entier et le nombre dans la messageBox correspond bien au nombre voulu.
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 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
Merci de votre aide
Partager