Bonjour à tous,

me voici de retour avec un nouveau petit soucis sur les bras! après avoir laissé ma base de données problématique de côté pendant quelques temps j'ai pris mon courage à deux mains et l'ai repris là où je l'avais laissé c'est à dire aux calculs sur les salaires où j'ai un joli bug sans comprendre d'où il vient

voici mon code qui a pour but de calculer le salaire Brut par jour à partir du Brut heure et du nombre d'heures travaillés par jour (simple me direz vous sauf que moi tout ce qui est simple plante!):


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
Private Sub Form_Current()
Dim db As Database
Set db = CurrentDb
Dim rst1 As Recordset
Dim rst2 As Recordset
Set rst1 = db.OpenRecordset("Select [Brut heure] FROM Salaires WHERE [Employé= '" & Me.txtEmployé & "' AND Année= '" & Me.txtAnnée & "'] ;")
Set rst2 = db.OpenRecordset("Select [heures\jour] FROM Salaires WHERE [Employé= '" & Me.txtEmployé & "' AND Année= '" & Me.txtAnnée & "'] ;")
Dim nb1 As String
Dim nb2 As String
nb1 = rst1![Brut heure]
nb2 = rst2![heures\jour]
 
Me.txtBrutjour = nb1 * nb2
 
End Sub
une idée de la solution à mon problème?

merci d'avance