calcul entre champs différents

**jclm230759** · 06/03/2014, 16h41

Bonjour à tous,

Voici mom problème
j'ai une requête "R_res" qui contient 3 champs pour calculer le nombre de réservations par mois
Champs 1 'veh' n° du véhicule
champs 2 ' date par mois' regroupement par mois ex fevrier 2014, mars,2014
champs 3 'Nb reservation' somme des réservations par mois
donc dans ma requête je peux avoir le même véhicule avec des mois différents (un ligne par mois)

dans mom formulaire j'ai un contrôle qui calcul le nb de jour entre les dates de réservations
ex; j'enregistre dans mon champ date_de_début "06/03/2014'' date_de_fin "07-03-2014" mon champ total me donne "1"

j'aurais souhaité effectuer une somme (après Maj de la date de fin ) entre le champ de "Nb réservation" de ma requête et le champ Total de mon formulaire . Mais je bloque car d'un côté j'ai le mois (et plusieurs différents) et de l'autre j'ai la date

Pensez vous cela possible

Merci d'avance pour vos réponses

Jclm

**Robert1957** · 06/03/2014, 17h21

Bonjour jclm230759,

Une façon de faire est d'inclure dans ta requête le résultat. Je ne connais pas la structure de tes tables mais tu pourrais le faire quelque chose comme:

Code :

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

1
2
3
SELECT T_Reservations.VEH, Format([Date_debut],"mmmm") AS Mois, Count(T_Reservations.Date_debut) AS Nombre_Reservation, Sum(DateDiff("d",[Date_debut],[Date_fin])) AS Jour
FROM T_Reservations
GROUP BY T_Reservations.VEH, Format([Date_debut],"mmmm");

Bonne journée

**jclm230759** · 07/03/2014, 15h29

Envoyé par Robert1957

Bonjour jclm230759,

Une façon de faire est d'inclure dans ta requête le résultat. Je ne connais pas la structure de tes tables mais tu pourrais le faire quelque chose comme:

Code :

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

1
2
3
SELECT T_Reservations.VEH, Format([Date_debut],"mmmm") AS Mois, Count(T_Reservations.Date_debut) AS Nombre_Reservation, Sum(DateDiff("d",[Date_debut],[Date_fin])) AS Jour
FROM T_Reservations
GROUP BY T_Reservations.VEH, Format([Date_debut],"mmmm");

Bonne journée

Merci pour votre réponse, mais ce n'est pas tout à fait cela que je recherche. Je joins un exemple de table, cela pourrait mieux faire comprendre ma demande

Bon week end

**Robert1957** · 07/03/2014, 20h43

Bonjour jclm230759,

Alors je ne comprend pas ce que tu veux dire par

mais ce n'est pas tout à fait cela que je recherche.

Tu veux savoir le nombre de jours (au total en incluant la location en cours) que le véhicule a été loué dans le mois correspondant à la date du début? C'est exactement ce que fait la requête de l'autre post.

Si ta question est comment actualiser ton formulaire pour que celui-ci affiche le nombre total de jours de location du véhicule pour le mois = date début, je t'ai fait un exemple. Regarde le code dans ton formulaire.

Cependant il faut être prudent avec ce que tu fais. Comme tu fonctionnes avec la date de début, une location qui chevaucherait 2 mois te donnerais de drôle de résultats.

Bonne journée

**jclm230759** · 10/03/2014, 12h33

Envoyé par Robert1957

Bonjour jclm230759,

Alors je ne comprend pas ce que tu veux dire par Tu veux savoir le nombre de jours (au total en incluant la location en cours) que le véhicule a été loué dans le mois correspondant à la date du début? C'est exactement ce que fait la requête de l'autre post.

Si ta question est comment actualiser ton formulaire pour que celui-ci affiche le nombre total de jours de location du véhicule pour le mois = date début, je t'ai fait un exemple. Regarde le code dans ton formulaire.

Cependant il faut être prudent avec ce que tu fais. Comme tu fonctionnes avec la date de début, une location qui chevaucherait 2 mois te donnerais de drôle de résultats.

Bonne journée

Après un super week end recommençont les hostilités :-)

Grand merci pour votre réponse, vous avez compris exactement ce que je souhaitais.
J'ai seulement un problème, j'ai bien adapté le code à mon formulaire mais dans le champ "Nbjourtot" la somme ne se fait pas comme dans votre exemple (j'ai le nombre de jour déjà prévu). J'ai bienretourné le problème dans tous les sens , je ne comprends pas pourquoi

Est ce parce que j'ai du supprimer la fonction 'Me.dirty' car elle m'obligeait à enregistrer directement (après avoir affiché le nb de jour) sans pouvoir accéder à mes autres champs

bien à vous

Jclm

**Robert1957** · 10/03/2014, 12h51

Bonjour jclm230759,

Oui c'est exact. Si tu ne sauvegardes pas tu n'auras pas les valeurs à jour donc il faudrait que tu modifies la fonction pour faire l'addition des anciennes valeurs + la valeur de ton Msg.

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
Private Function fuNomJour(Msg As Integer)
 
    Dim db As DAO.Database
    Dim rst As DAO.Recordset
    Dim strSQL As String
    If Not IsNull(Me.Resveh) And Not IsNull(Me.Date_Res_D) Then
        strSQL = "SELECT T_reservation.Resveh, Format([ResDateDeb],'mmmm') AS Mois, Sum(DateDiff('d',[ResDateDeb],[ResDateRet])) AS Nombre_Jour " _
        & "FROM T_reservation GROUP BY T_reservation.Resveh, Format([ResDateDeb],'mmmm') " _
        & "HAVING (((T_reservation.Resveh)=" & Chr(34) & Me.Resveh & Chr(34) & ") " _
        & "AND ((Format([ResDateDeb],'mmmm'))=" & Chr(34) & Format(Me.Date_Res_D, "mmmm") & Chr(34) & "));"
        Set db = CurrentDb
        Set rst = db.OpenRecordset(strSQL)
        Me.nbjourtot = rst("Nombre_Jour") + Msg
        rst.Close
        Set rst = Nothing
        Set db = Nothing
    End If
 
End Function

Et sur l'événement:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Date_Res_F_AfterUpdate()
Me.Btn_valider.Enabled = False
Me.Btn_ajouter_enregistrement.Enabled = False
 
Dim Msg
 
'Msg = "  " & DateDiff("d", Me.Date_Res_D, Me.Date_Res_F)
Msg = DateDiff("d", Me.Date_Res_D, Me.Date_Res_F)
 
Me.Nbjour = Msg
fuNomJour Msg
 
End Sub

Bonne journée

**jclm230759** · 10/03/2014, 14h26

Envoyé par Robert1957

Bonjour jclm230759,

Oui c'est exact. Si tu ne sauvegardes pas tu n'auras pas les valeurs à jour donc il faudrait que tu modifies la fonction pour faire l'addition des anciennes valeurs + la valeur de ton Msg.

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
Private Function fuNomJour(Msg As Integer)
 
    Dim db As DAO.Database
    Dim rst As DAO.Recordset
    Dim strSQL As String
    If Not IsNull(Me.Resveh) And Not IsNull(Me.Date_Res_D) Then
        strSQL = "SELECT T_reservation.Resveh, Format([ResDateDeb],'mmmm') AS Mois, Sum(DateDiff('d',[ResDateDeb],[ResDateRet])) AS Nombre_Jour " _
        & "FROM T_reservation GROUP BY T_reservation.Resveh, Format([ResDateDeb],'mmmm') " _
        & "HAVING (((T_reservation.Resveh)=" & Chr(34) & Me.Resveh & Chr(34) & ") " _
        & "AND ((Format([ResDateDeb],'mmmm'))=" & Chr(34) & Format(Me.Date_Res_D, "mmmm") & Chr(34) & "));"
        Set db = CurrentDb
        Set rst = db.OpenRecordset(strSQL)
        Me.nbjourtot = rst("Nombre_Jour") + Msg
        rst.Close
        Set rst = Nothing
        Set db = Nothing
    End If
 
End Function

Et sur l'événement:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Date_Res_F_AfterUpdate()
Me.Btn_valider.Enabled = False
Me.Btn_ajouter_enregistrement.Enabled = False
 
Dim Msg
 
'Msg = "  " & DateDiff("d", Me.Date_Res_D, Me.Date_Res_F)
Msg = DateDiff("d", Me.Date_Res_D, Me.Date_Res_F)
 
Me.Nbjour = Msg
fuNomJour Msg
 
End Sub

Bonne journée

Super

cela fonctionne parfaitement.
Merci pour votre aide. Je ne suis qu'un débutant en access et je viens de commencer les cours pour me perfectionner.
Pourrais je profiter une fois encore de votre exprience pour voir si le problème suivant est possible

dans la même base et la même requête j'ai le 'nb de jour' différence entre "Date_Res_D" et "Date_Res_F" prévu mais aussi le 'NB de jour réel' différence entre "Date_res_D" et "Date_Ret_R" Dans l'excercice que l'on vient de faire on c'est basé sur le nombre de jours prévus entre date_Res_D et date_res_F. Est il possible de cumuler les deux soit que le total des jours serait le nb de jours réels (quand il y a une date de retour) + le nb de jours prévus (quand il n'y a pas de date de retour)

Encore un grand merci et bonne fin de journée

**Robert1957** · 10/03/2014, 15h43

Bonjour jclm230759,

Si j'ai bien compris, dans le champ NbJour tu pourrais faire le calcul ainsi:

Code :

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

Iif(IsNull(Date_Ret_R),Date_Res_F,Date_Ret_R)

Ce qui revient à faire: Si Date_Ret_R est nul on choisit Date_Res_F. Tu devras adapter le nom de tes champs parce que dans la base que j'ai ce ne sont pas les même noms.

Bonne journée

**jclm230759** · 11/03/2014, 13h40

Envoyé par Robert1957

Bonjour jclm230759,

Si j'ai bien compris, dans le champ NbJour tu pourrais faire le calcul ainsi:

Code :

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

Iif(IsNull(Date_Ret_R),Date_Res_F,Date_Ret_R)

Ce qui revient à faire: Si Date_Ret_R est nul on choisit Date_Res_F. Tu devras adapter le nom de tes champs parce que dans la base que j'ai ce ne sont pas les même noms.

Bonne journée

Bonjour,

J'ai bien compris votre code.

J'ai remplacé dans la formule (sql) pour obtenir le nb de jou mais quand j'exécute il me donne "erreur d'exécution3061" et me renvoi sur la ligne 'set rst'

Private Function fuNomJour()

Dim db As DAO.Database
Dim rst As DAO.Recordset
Dim strSQL As String
If Not IsNull(Me.Resveh) And Not IsNull(Me.Date_Res_D) Then
strSQL = "SELECT T_reservation.Resveh, Format([ResDateDeb],'mmmm') AS Mois, Sum(DateDiff('d',[ResDateDeb],[Iif(IsNull(ResDateReel),ResDateRet,ResDateReel)])) AS Nombre_Jour " _
& "FROM T_reservation GROUP BY T_reservation.Resveh, Format([ResDateDeb],'mmmm') " _
& "HAVING (((T_reservation.Resveh)=" & Chr(34) & Me.Resveh & Chr(34) & ") " _
& "AND ((Format([ResDateDeb],'mmmm'))=" & Chr(34) & Format(Me.Date_Res_D, "mmmm") & Chr(34) & "));"
Set db = CurrentDb
Set rst = db.OpenRecordset(strSQL) Me.nbjourtot = rst("Nombre_Jour")
rst.Close
Set rst = Nothing
Set db = Nothing
End If

Je pense ne pas avoir oublié de crochets.

Bien à vous

**Robert1957** · 11/03/2014, 15h23

Bonjour jclm230759,

C'est une erreur de syntaxe, tu devrais écrire:

Code :

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

strSQL = "SELECT T_reservation.Resveh, Format([ResDateDeb],'mmmm') AS Mois, Sum(DateDiff('d',[ResDateDeb],Iif(IsNull([ResDateReel]), [ResDateRet], [ResDateReel]))) AS Nombre_Jour " _

Bonne journée

**jclm230759** · 11/03/2014, 16h00

Envoyé par Robert1957

Bonjour jclm230759,

C'est une erreur de syntaxe, tu devrais écrire:

Code :

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

strSQL = "SELECT T_reservation.Resveh, Format([ResDateDeb],'mmmm') AS Mois, Sum(DateDiff('d',[ResDateDeb],Iif(IsNull([ResDateReel]), [ResDateRet], [ResDateReel]))) AS Nombre_Jour " _

Bonne journée

Grand MERCI

cela fonctionne à merveille.

Merci pour votre patience

Bien à vous

**jclm230759** · 12/03/2014, 14h53

Envoyé par jclm230759

Grand MERCI

cela fonctionne à merveille.

Merci pour votre patience

Bien à vous

Bonjour

Un dernier petit problème.

Lorsque je veux enregistrer un véhicule qui n'est pas encore dans la table j'ai une erreur "3021" pas d'enregistrement qui me renvoie sur la ligne "Nbjour.....;
Private Function fuNomJour(Msg As Integer)
Dim db As DAO.Database
Dim rst As DAO.Recordset
Dim strSQL As String
If Not IsNull(Me.Resveh) And Not IsNull(Me.Date_Res_D) Then
strSQL = "SELECT T_reservation.Resveh, Format([ResDateDeb],'mmmm') AS Mois, Sum(DateDiff('d',[ResDateDeb],Iif(IsNull([ResDateReel]), [ResDateRet], [ResDateReel]))) AS Nombre_Jour " _
& "FROM T_reservation GROUP BY T_reservation.Resveh, Format([ResDateDeb],'mmmm') " _
& "HAVING (((T_reservation.Resveh)=" & Chr(34) & Me.Resveh & Chr(34) & ") " _
& "AND ((Format([ResDateDeb],'mmmm'))=" & Chr(34) & Format(Me.Date_Res_D, "mmmm") & Chr(34) & "));"
Set db = CurrentDb
Set rst = db.OpenRecordset(strSQL)
Me.nbjourtot = rst("Nombre_Jour") + Msg rst.Close
Set rst = Nothing
Set db = Nothing
End If

Que puis je faire

Merci d'avance pour vos réponses

jclm

**Robert1957** · 12/03/2014, 15h07

Bonjour jclm230759,

A insérer dans ton code après le "Set rst = db.OpenRecordset(strSQL)":

Code :

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

1
2
3
4
5
6
7
If rst.EOF = False then
Me.nbjourtot = rst("Nombre_Jour") + Msg 
Else
Me.nbjourtot = msg
End if
rst.Close
Set rst = Nothing .....

Bonne journée

**jclm230759** · 12/03/2014, 15h59

Envoyé par Robert1957

Bonjour jclm230759,

A insérer dans ton code après le "Set rst = db.OpenRecordset(strSQL)":

Code :

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

1
2
3
4
5
6
7
If rst.EOF = False then
Me.nbjourtot = rst("Nombre_Jour") + Msg 
Else
Me.nbjourtot = msg
End if
rst.Close
Set rst = Nothing .....

Bonne journée

Bonjour et Merci pour ce coup de main

calcul entre champs différents [AC-2007]

Access

Discussions similaires

Partager

Partager