Discussion :

[wushu29]

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 :

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

[Invité]

Bonjour

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

Philippe

[wushu29]

Bonjour,

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

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

[wushu29]

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 :

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

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

[Invité]

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 :

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

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

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

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

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

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