Discussion :

[Lilou974]

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

[vodiem]

salut Lilou974 et bienvenu,

Code SQL :

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

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 :

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

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

[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!

[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 :

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

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".

[Lilou974]

oui oui j'ai bien le bon recordset:

Code :

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

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

[vodiem]

oups...

[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!

[vodiem]

au passage l'erreur était sur rst.montant il fallait rst!montant
et éventuellement retirer la déclaration: Dim rst As Recordset

[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!