intégration valeur recordset dans msgbox

Version imprimable

Bonjour,

Je débute complétement avec le VBA ... alors tentez d'être cléments si j'ai commis des erreurs grossières...;)

Voici mon pb: je cherche à faire figurer dans le contenu d'un msgbox dans une procédure afterupdate d'une list box une variable que je tente d'appeler avec un recordset ( je ne sais pas très bien où le placer dans mon code ...)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Option Compare Database
Sub DAOOpenRecordset()
    Dim db As DAO.Database, rs1 As DAO.Recordset, fld As DAO.Field
    Dim SQL1 As String
 
    ' Ouverture de la base de données
    Set db = DBEngine.OpenDatabase(".\Nucléus.mdb")
    SQL1 = "SELECT Table_plafond_emploi.quantite FROM Table_plafond_emploi WHERE (((Table_plafond_emploi.id_categorie_contrat)=1) AND ((Table_plafond_emploi.date_début)<=Now()) AND ((Table_plafond_emploi.date_fin)>=Now()));"
    ' Ouverture du recordset
    Set rs1 = db.OpenRecordset(SQL1, dbOpenForwardOnly, dbReadOnly)
    ' Fermeture du Recordset
    rs1.Close
    End Sub
 
 
 
Private Sub type_contrat_AfterUpdate()
 
    Dim a, b As Integer
 
    a = SQL1
    b = 750 - 1
    If type_contrat = 1 Then MsgBox "Il vous reste à ce jour " & a & " ETP disponibles" Else MsgBox "Il vous reste à ce jour " & b & " contrats disponibles"
 
 
End Sub

En vous remerciant par avance pour votre aide.

18/03/2010, 12h08
Invité

Bonjour

Un tuto tout frais à lire, il correspond à ton cas : Résultats dans Labels, Zones de Texte ou MsgBox.

Philippe
18/03/2010, 12h40
wushu29

Bonjour,

Merci pour cette réponse... j'ai parcourru le tuto ... il me faut encore le comprendre...:calim2: (pas gagné)

Je reste partant pour un décriptage de mes erreurs de synthaxe....

Re-bonjour,

J'ai essayé d'appliquer ce que j'ai cru comprendre dans le tuto .... mais visiblement je bug :(

voici mon nouveau code:

1- pour mon module:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Option Compare Database
 
Option Explicit
    Dim oDb As DAO.Database
    Dim oRst As DAO.Recordset
 
Sub RechercheRS1()
 
 
     Dim rs1 As Integer     ' variable donnant le plafond ETP
Set oDb = CurrentDb
 
    'Nous allons chercher la valeur du plafond d'ETP
    Set oRst = oDb.OpenRecordset("SELECT Table_plafond_emploi.quantite FROM Table_plafond_emploi WHERE (((Table_plafond_emploi.id_categorie_contrat)=1) AND ((Table_plafond_emploi.date_début)<=Now()) AND ((Table_plafond_emploi.date_fin)>=Now()));", dbOpenSnapshot)
 
    'Nous appliquons le résultat affiché dans la colonne1 à la variable rs1
rs1 = oRst.Fields(0)
 
'Nous fermons les connexions (dans le cas d'une utilisation DAO)
    oRst.Close
    oDb.Close
    Set oDb = Nothing
    Set oRst = Nothing
 
    Exit Sub
End Sub

2- sur MAJ de ma ZL:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Option Compare Database
 
 
 
Private Sub type_contrat_AfterUpdate()
 
Call RechercheRS1
 
    Dim a, b As Integer
 
    a = rs1
    b = 750 - 1
    If type_contrat = 1 Then MsgBox "Il vous reste à ce jour " & a & " ETP disponibles" Else MsgBox "Il vous reste à ce jour " & b & " contrats disponibles"
 
 
End Sub

En vous remerciant par avance pour vos aiguillages...

Bonsoir
Si tu veux rester dans l'esprit du tuto, et si j'ai bien compris ton problème, il faut changer certaines choses:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
 
Option Compare Database
Option Explicit
    Dim oDb As DAO.Database
    Dim oRst As DAO.Recordset
 
Sub RechercheRS1(Type as Boolean, b as Integer)
   Dim rs1 As Integer     ' variable donnant le plafond ETP
 
 If Type = True
    Set oDb = CurrentDb
 
    'Nous allons chercher la valeur du plafond d'ETP
    Set oRst = oDb.OpenRecordset("SELECT Table_plafond_emploi.quantite FROM Table_plafond_emploi WHERE (((Table_plafond_emploi.id_categorie_contrat)=1) AND ((Table_plafond_emploi.date_début)<=Now()) AND ((Table_plafond_emploi.date_fin)>=Now()));", dbOpenSnapshot)
 
'Nous appliquons le résultat affiché dans la colonne1 à la variable rs1
     If oRst.EOF Then
           MsgBox "Pas d'enregistrements"
      Else
           rs1 = oRst.Fields(0)
          MsgBox "Il vous reste à ce jour " & rs1 & " ETP disponibles"
 
          'Nous fermons les connexions (dans le cas d'une utilisation DAO)
          oRst.Close
          oDb.Close
         Set oDb = Nothing
         Set oRst = Nothing
     End if
Else
 
MsgBox "Il vous reste à ce jour " & b & " contrats disponibles"
End if
End sub

Et sur l'appel de ta routine:

Code:

1
2
3
4
5
6
7
8
 
  Dim b as integer  
  b = 750 - 1
If Me.type_contrat.Value = 1 Then
        Call RechercheRS1(True, b)
    Else
        Call RechercheRS1(False, b) 
End if

Je pense que ce sera mieux.
Par contre il faut être sûr que ta requête est bonne.(je n'ai pas regardé)
Bon courage

19/03/2010, 09h54
wushu29
Bonjour Gayot,

Merci pour cette correction de script... je viens de l'essayer et malheureusement un message d'erreur apparait :

erreur de compilation:
Attendu:identificateur

A priori pb avec "Type"
Code:

1 2 3 4 5 6 Sub RechercheRS1(Type as Boolean, b as Integer) Dim rs1 As Integer ' variable donnant le plafond ETP If Type = True Set oDb = CurrentDb
:?
19/03/2010, 10h11
Invité
Bonjour
Autant pour moi:
Code:

1 2 If type = True Then
19/03/2010, 10h30
wushu29

Merci, j'ai rajouté Then mais les lignes restent en rouge dans la fenêtre du module...

De plus je ne sais pas s'il ya un lien ou pas, mais mes requêtes en mode création n'acceptent plus un critère du type comparaison avec Maintenant () ou Now() 8O
19/03/2010, 10h45
wushu29

Je viens de supprimer tout mon code dans le module et sur MAJ et tout est revenu à la normal concernant les critères SQL de comparaison de date avec Maintenant().

Bon, du coup, il faut se remettre à l'ouvrage pour trouver la bonne syntaxe de procédure....

Si je reprends votre proposition Gayot, où dois-je être attentif ?
19/03/2010, 10h55
wushu29

Compacter je connais , mais pas compiler ... dois-je télécharger ACCESS MDE Compiler ?
19/03/2010, 11h00
Invité

Pour compiler
Alt +F11
Débogage
Compiler...
19/03/2010, 11h04
wushu29

Après MAJ de ma Zl:

Dans l'editeur de code, dans le module, apparait erreur de compilation ( attendu: identificateur) avec Type surligné et les lignes contenant "type" sont en rouge...
Quand je clique sur l'aide, j'y trouve attendu: (divers) mais pas identificateur...

Ceci dit, voici la fin de l'aide:

Attendu : Variable. Il se peut, par exemple, que vous ayez utilisé des mots clés avec restrictions pour des noms de variable. Dans l'exemple suivant, l'instruction Input # attend une variable comme deuxième argument. Type étant un mot clé avec restrictions, il ne peut être utilisé comme nom de variable.
Input # 1, Type ' Mot clé Type utilisé
' incorrectement comme nom de
' variable.
Renommez la variable de façon à éliminer tout conflit avec les mots clés avec restrictions.
19/03/2010, 11h32
Invité

Ah Ok: type est un nom réservé. Remplace le par un autre nom: Mavar par exemple.
19/03/2010, 11h38
wushu29

J'ai remplacé type par var cependant il manque un End If , où dois-je le placer ( deux bloc if , un seul end if) ?

Autant pour moi , mon copie coller de ta procédure était tronqué... en fait ça marche très bien !

Il me reste à ajouter d'autre variable selon la même méthode, puisque dans la msg on récupère un stock auquel il faut encore retrancher la consommation...

En tout état de cause UN GRAND MERCI :P :ccool:

Puis-je abuser un petit peu et te demander une relecture du code du module que je viens de modifier pour aller chercher la valeur d'un second recordset qui viendra se soustraire au premier pour affichage dans la msgbox ? :oops:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
Option Compare Database
Option Explicit
    Dim oDb As DAO.Database
    Dim oRst As DAO.Recordset
 
Sub RechercheRS1(var1 As Boolean, b As Integer)
 
   Dim rs1 As Integer     ' variable donnant le plafond ETP
   Dim rs2 As Integer       ' variable donnant la consommation d'ETP
 
 
 If var1 = True Then
    Set oDb = CurrentDb
 
    'Nous allons chercher la valeur du plafond d'ETP
    Set oRst = oDb.OpenRecordset("SELECT Table_plafond_emploi.quantite FROM Table_plafond_emploi WHERE (((Table_plafond_emploi.id_categorie_contrat)=1) AND ((Table_plafond_emploi.date_début)<=Now()) AND ((Table_plafond_emploi.date_fin)>=Now()));", dbOpenSnapshot)
 'Nous allons chercher la valeur la conso d'ETP
    Set oRst = oDb.OpenRecordset("SELECT DISTINCT (([date_fin_contrat]-[date_debut_contrat])*[quotite_travail]/365) AS ETP FROM Table_annee_scolaire, Table_quotite INNER JOIN ((Table_categorie_contrat INNER JOIN Table_plafond_emploi ON Table_categorie_contrat.id_categorie_contrat = Table_plafond_emploi.id_categorie_contrat) INNER JOIN (Table_personnels INNER JOIN (Table_type_contrat INNER JOIN Table_recrutement ON Table_type_contrat.id_type_contrat = Table_recrutement.id_type_contrat) ON Table_personnels.id_personnel = Table_recrutement.id_personnel) ON Table_categorie_contrat.id_categorie_contrat = Table_type_contrat.id_categorie_contrat) ON Table_quotite.id_quotite = Table_recrutement.id_quotite WHERE (((Table_type_contrat.id_type_contrat)=1) AND ((Table_recrutement.date_debut_contrat)>=[Table_annee_scolaire].[date_debut]) AND ((Table_recrutement.date_fin_contrat)<=[Table_annee_scolaire].[date_fin]) AND ((Table_annee_scolaire.date_debut)<=Now()) AND ((Table_annee_scolaire.date_fin)>=Now()));
", dbOpenSnapshot)
 
 
'Nous appliquons le résultat affiché dans la colonne1 à la variable rs1
     If oRst.EOF Then
           MsgBox "Pas d'enregistrements"
      Else
           rs1 = oRst.Fields(0)
           rs2 = oRst.Fields(0)
          MsgBox "Il vous reste à ce jour " & rs1 - rs2 & " ETP disponibles"
 
          'Nous fermons les connexions (dans le cas d'une utilisation DAO)
          oRst.Close
          oDb.Close
         Set oDb = Nothing
         Set oRst = Nothing
     End If
Else
MsgBox "Il vous reste à ce jour " & b & " contrats disponibles"
End If
End Sub

Sachant que mon second SQL ramène toutes les valeurs d'un champ dont j'aimerai avoir la somme.

19/03/2010, 12h49
Invité

Et bien il semble que tu ais un problème sur ta variable oRst.
Telle que tu l'as définie elle peut avoir deux valeurs et ne peut donc rien calculer.

Il faut donc que tu en déclares 2. par exemple oRst1 et oRst2

Merci, je l'avais présenti , je fais l'essai et te dis si c'est ok et .... c'est pas ok ( j'aurai été trop balaise si j'avais tout pigé du premier coup ..:mrgreen:)

Voici mon nouveau code:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
Sub RechercheRS1(var1 As Boolean, b As Integer)
 
   Dim rs1 As Integer     ' variable donnant le plafond ETP
   Dim rs2 As Integer       ' variable donnant la consommation d'ETP
 
 
 If var1 = True Then
    Set oDb = CurrentDb
 
    'Nous allons chercher la valeur du plafond d'ETP
    Set oRst1 = oDb.OpenRecordset("SELECT Table_plafond_emploi.quantite FROM Table_plafond_emploi WHERE (((Table_plafond_emploi.id_categorie_contrat)=1) AND ((Table_plafond_emploi.date_début)<=Now()) AND ((Table_plafond_emploi.date_fin)>=Now()));", dbOpenSnapshot)
 'Nous allons chercher les valeurs de la conso d'ETP
    Set oRst2 = oDb.OpenRecordset("SELECT DISTINCT (([date_fin_contrat]-[date_debut_contrat])*[quotite_travail]/365) AS ETP" &
    "FROM Table_annee_scolaire, Table_quotite INNER JOIN ((Table_categorie_contrat INNER JOIN Table_plafond_emploi ON Table_categorie_contrat.id_categorie_contrat = Table_plafond_emploi.id_categorie_contrat INNER JOIN (Table_personnels INNER JOIN (Table_type_contrat INNER JOIN Table_recrutement ON Table_type_contrat.id_type_contrat = Table_recrutement.id_type_contrat) ON Table_personnels.id_personnel = Table_recrutement.id_personnel) ON Table_categorie_contrat.id_categorie_contrat = Table_type_contrat.id_categorie_contrat) ON Table_quotite.id_quotite = Table_recrutement.id_quotite" & _
    "WHERE (((Table_type_contrat.id_type_contrat)=1) AND ((Table_recrutement.date_debut_contrat)>=[Table_annee_scolaire].[date_debut]) AND ((Table_recrutement.date_fin_contrat)<=[Table_annee_scolaire].[date_fin]) AND ((Table_annee_scolaire.date_debut)<=Now()) AND ((Table_annee_scolaire.date_fin)>=Now()));", dbOpenSnapshot)
 
 
'Nous appliquons le résultat affiché dans la colonne1 à la variable rs1
     If oRst1.EOF Or oRst2.EOF Then
           MsgBox "Pas d'enregistrements"
      Else
           rs1 = oRst1.Fields(0)
           rs2 = oRst2.Fields(0)   'Il faudait faire la somme de toute les valeurs du champ mais avec quelle commande ?
          MsgBox "Il vous reste à ce jour " & rs1 - rs2 & " ETP disponibles"
 
          'Nous fermons les connexions (dans le cas d'une utilisation DAO)
          oRst1.Close
          oRst2.Close
          oDb.Close
         Set oDb = Nothing
         Set oRst1 = Nothing
         Set oRst2 = Nothing
     End If
Else
MsgBox "Il vous reste à ce jour " & b & " contrats disponibles"
End If
End Sub

19/03/2010, 14h15
Invité

S'il faut que tu fasses la somme des valeurs d'un champ ce n'est plus un simple Select qu'il te faut.
Un peu de lecture: Il y un chapitre qui t'intéressera.
http://starec.developpez.com/tuto/fonctionsdomaines/

Encore une fois Mille Bravo :ccool: :ccool:

ça fonctionne à merveille , pour info mon code:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
Sub RechercheRS1(var1 As Boolean, b As Integer)
 
   Dim rs1 As Integer     ' variable donnant le plafond ETP
   Dim rs2 As Variant       ' variable donnant la consommation d'ETP
 
   rs2 = DSum("ETP", "R_Asen_ETP_annee_n")   'Nous allons chercher les valeurs de la conso d'ETP
 
 If var1 = True Then
    Set oDb = CurrentDb
 
    'Nous allons chercher la valeur du plafond d'ETP
    Set oRst = oDb.OpenRecordset("SELECT Table_plafond_emploi.quantite FROM Table_plafond_emploi WHERE (((Table_plafond_emploi.id_categorie_contrat)=1) AND ((Table_plafond_emploi.date_début)<=Now()) AND ((Table_plafond_emploi.date_fin)>=Now()));", dbOpenSnapshot)
 
 
'Nous appliquons le résultat affiché dans la colonne1 à la variable rs1
     If oRst.EOF Then
           MsgBox "Pas d'enregistrements"
      Else
           rs1 = oRst.Fields(0)
 
          MsgBox "Il vous reste à ce jour " & rs1 - rs2 & " ETP disponibles"
 
          'Nous fermons les connexions (dans le cas d'une utilisation DAO)
          oRst.Close
          oDb.Close
 
         Set oDb = Nothing
         Set oRst = Nothing
 
     End If
Else
MsgBox "Il vous reste à ce jour " & b & " contrats disponibles"
End If
End Sub

Reste un tout petit détail: la msg box m'affiche un résultat avec x chiffres après la virgule , j'imagine qu'il existe une commande pour le limiter à 2 ?

19/03/2010, 16h50
wushu29

Bon tout est ok. Il fallait rajouter la définition du fromat au bon endroit:

Code:

rs2 = Format(DSum("ETP", "R_Asen_ETP_annee_n"), "0.00")

Voilà, encore merci à tous ceux qui donnet un coup de main aux ames en peine de ce forum...:ccool:

Je clos.