Calcul sur salaires

Version imprimable

Calcul sur salaires

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:

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

salut Lilou974 et bienvenu,

Code:

Select [Brut heure] FROM Salaires WHERE [Employé]= '" & Me.txtEmployé & "' AND Année= '" & Me.txtAnnée & "'] ;"

et si année est bien au format texte et non numérique ou date je ne vois pas de pb.
bien que l'on ne fait pas de recherche sur le nom de l'employé mais sur son identifiant.
il est par ailleurs possible d'obtenir directement ce résultat par une seul requete:
Code:

1 2 Set rst1 = db.OpenRecordset("Select [Brut heure]*[heures\jour] as montant FROM Salaires WHERE [Employé]= '" & Me.txtEmployé & "' AND Année= '" & Me.txtAnnée & "'] ;") Me.txtBrutjour =rst1.montant
;)

18/08/2008, 13h09
Lilou974

Bonjour vodiem,

suite à ton message j'ai tout d'abord vérifié que Année est au format texte et c'est le cas.

concernant les [] ils servaient à englober dans le "WHERE" (Employé AND Année) mais je les ai remplacés par des ()

malgré tout ceci çà ne fonctionne tjrs pas, j'ai donc testé tes lignes de codes
et Erreur de compilation -> il ne reconnait pas le ".montant" du "rst.montant"!
je me suis dit il ne comprend peut être pas c'est quoi "montant" donc des () autour du produit mais rien à faire!
18/08/2008, 13h33
vodiem

tu as raison, je n'avais pas vu le crochet final, et il est préférable de mettre des parenthèses.

il faut donc:

Code:

Set rst1 = db.OpenRecordset("Select [Brut heure]*[heures\jour] as montant FROM Salaires WHERE (Employé= '" & Me.txtEmployé & "' AND Année= '" & Me.txtAnnée & "') ;")

est tu sur d'avoir le bon recordset? rst1 ou rst?
<montant> est reconnu dans la requete grace au "AS montant".

oui oui j'ai bien le bon recordset:

Code:

1
2
3
4
5
6
7
Private Sub Form_Current()
Dim db As Database
Set db = CurrentDb
Dim rst As Recordset
Set rst = db.OpenRecordset("Select ([Brut heure]*[heures\jour]) As montant FROM Salaires WHERE ( Employé= '" & Me.txtEmployé & "' AND Année= '" & Me.txtAnnée & "') ;")
Me.txtBrutjour = rst.montant
End Sub

18/08/2008, 14h12
vodiem

oups...
18/08/2008, 14h23
Lilou974

mddrrr j'avoue grosse prise de tête pour rien (pour pas changer!)
un petit source controle et c'est fait!

merci beaucoup j'y aurai encore été demain matin sans toi!
18/08/2008, 14h29
vodiem

au passage l'erreur était sur rst.montant il fallait rst!montant
et éventuellement retirer la déclaration: Dim rst As Recordset
;)
18/08/2008, 14h35
Lilou974

rolalala c moi je suis bête c ce que j'avais fait dans le premier code envoyé rst![qqch]

du coup en 5 secondes mes calculs sont fait avec les "source controle" je cherche tjrs à me compliquer la vie

maintenant je m'attaque aux recherches multi critères
je mettrai sûrement un nouveau post vu que je suis Miss Bêtise Access!