Erreur 2766 - Erreur automation "C"

**HABILER** · 09/07/2019, 16h46

Bonjour la Communauté,

Dans le code ci-dessous j'ai ajouté le parametre lve pour faire une selection supplementaire mais depuis il m'affiche une erreur:

Envoyé par Erreur 2766

l'objet ne contient pas d'objet Automation <<C>>

Mais je ne vois pas où access veut en venir?

Ligne d'erreur :

Code :

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

 If Nz(DCount("*", "Employee_Data", sSQL)) = 0 Then

Quelqu'un pourrait-il m'aider?

Merci d'avance

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
 
Public Function nbJ(nP As Long, lve As String, d1 As Date)
 
   Dim n As Long
   Dim sSQL As String
 
   sSQL = "[Employee Number] = " & nP & " And [Leave] = " & lve & " And [Date_Leave] = #" & Format(DateAdd("d", n, d1), "yyyy-mm-dd") & "#"
   If Nz(DCount("*", "Employee_Data", sSQL)) = 0 Then
      '--- jour précédent est contigu
      nbJ = 1
   Else
      '--- jour précédent n'est pas contigu
      n = 0
      While True
         n = n + 1
      sSQL = "[Employee Number] = " & nP & " And [Leave] = " & lve & " And [Date_Leave] = #" & Format(DateAdd("d", n, d1), "yyyy-mm-dd") & "#"
      Debug.Print sSQL,
      Debug.Print Nz(DCount("*", "Employee_Data", sSQL))
         If Nz(DCount("*", "Employee_Data", sSQL)) = 0 Then
            nbJ = n
      Debug.Print "Nbr j :"; nbJ,
            Exit Function
         End If
      Wend
   End If
End Function

**Arkham46** · 09/07/2019, 17h04

Bonjour,

C'est une chaîne de caractères, il faut l'encadrer par des guillemets :

Code sql :

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

And [Leave] = """ & lve & """ And

Sous réserve que lve ne contiennent pas de guillemets, sinon il faut les doubler dans la variable.

**HABILER** · 09/07/2019, 21h29

Ok mon code erreur a disparu mais j'ai des 1 partout. En fait il ne reconnait pas & lve & qui est un texte court

Comprends vraiment pas.

**Arkham46** · 09/07/2019, 22h58

Envoyé par HABILER

Ok mon code erreur a disparu mais j'ai des 1 partout. En fait il ne reconnait pas & lve & qui est un texte court

Comprends vraiment pas.

Bonsoir,

Je ne comprends rien...

Des 1 partout, un texte court...

Vu de l'extérieur c'est difficile.

**HABILER** · 09/07/2019, 23h28

Le champs Leave a texte court comme type de donnee deans ma table Employee_Data.
Et le résultat du

Code :

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

    Debug.Print sSQL,

est

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
Nbr j : 1     [Employee Number] = 4682 And [Leave] = ' & lve & ' And [Date_Leave] = #2019-04-23#   0 
……………………………………………………………………………………………………………………………………………..
 
Public Function nbJ(nP As Long, lve As String, d1 As Date)
 
   Dim n As Long
   Dim sSQL As String
 
   sSQL = "[Employee Number] = " & nP & " And [Leave] = '& lve &' And [Date_Leave] = #" & Format(DateAdd("d", n, d1), "yyyy-mm-dd") & "#"
   If Nz(DCount("*", "Employee_Data", sSQL)) = 1 Then
      '--- jour pr?c?dent est contigu
      nbJ = 0
    Debug.Print "Nbr j 0:"; nbJ,
   Else
      '--- jour pr?c?dent n'est pas contigu
      n = 0
      While True
         n = n + 1
      sSQL = "[Employee Number] = " & nP & " And [Leave] = ' & lve & ' And [Date_Leave] = #" & Format(DateAdd("d", n, d1), "yyyy-mm-dd") & "#"
      Debug.Print sSQL,
      Debug.Print Nz(DCount("*", "Employee_Data", sSQL))
         If Nz(DCount("*", "Employee_Data", sSQL)) = 0 Then
            nbJ = n
      Debug.Print "Nbr j :"; nbJ,
            Exit Function
         End If
      Wend
   End If
End Function

**Arkham46** · 10/07/2019, 07h50

Ok, texte court c'est le type de colonne de la table.
lve est une variable string.

Et l'encadrement avec guillemets doubles que j'avais proposé est passé en guillemets simples, ce qui est possible, mais là c'est mal écrit .
La variable doit être sortie de la chaîne de caractères pour être évaluée.

**HABILER** · 10/07/2019, 11h14

Ok. Cela marche mais comment faire pour ne retenir ou mettre en evidence le nombre maximum.
En fait cela équivaudrait a mon sens de tester que si si n-1 existe alors n-1 egale 0
Ou ma logique est elle erronée.?Et comme mon code foctionne ai peur de le bousiller.

**HABILER** · 11/07/2019, 14h02

Bonjour à tous,

Lorsque j'analyse le debug.print de mon sSql je constate que mon code repasse la condition autant de fois qu'il y a de possibilités de dates contigües ce qui avec un fichier avec un miller d'enregistrement l'amène a bloquer le PC. Est_ce normal. Ou est-ce dû à l'ecriture de mon code. ?

Merci d'avance pour votre aide.

Habiler

Code :

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

1
2
3
4
5
6
7
8
9
10
SQL :[Employee Number] = 4682 And [Leave] = "CS1" And [Date_Leave] = #2019-04-17#  DCount :  1   Nbr n: 1 
sSQL :[Employee Number] = 4682 And [Leave] = "CS1" And [Date_Leave] = #2019-04-18#  DCount :  1   Nbr n: 2 
sSQL :[Employee Number] = 4682 And [Leave] = "CS1" And [Date_Leave] = #2019-04-19#  DCount :  1   Nbr n: 3 
sSQL :[Employee Number] = 4682 And [Leave] = "CS1" And [Date_Leave] = #2019-04-20#  DCount :  0   Nbr n: 4 
sSQL :[Employee Number] = 4682 And [Leave] = "CS1" And [Date_Leave] = #2019-04-18#  DCount :  1   Nbr n: 1 
sSQL :[Employee Number] = 4682 And [Leave] = "CS1" And [Date_Leave] = #2019-04-19#  DCount :  1   Nbr n: 2 
sSQL :[Employee Number] = 4682 And [Leave] = "CS1" And [Date_Leave] = #2019-04-20#  DCount :  0   Nbr n: 3 
sSQL :[Employee Number] = 4682 And [Leave] = "CS1" And [Date_Leave] = #2019-04-19#  DCount :  1   Nbr n: 1 
sSQL :[Employee Number] = 4682 And [Leave] = "CS1" And [Date_Leave] = #2019-04-20#  DCount :  0   Nbr n: 2 
sSQL :[Employee Number] = 4682 And [Leave] = "CS1" And [Date_Leave] = #2019-04-20#  DCount :  0   Nbr n: 1

**Arkham46** · 11/07/2019, 15h00

Bonjour,

Je n'ai pas étudié tout le code, mais il certain que des DCount dans une boucle ce n'est pas performant.
Il y a sans doute mieux à faire avec un recordset, en inversant la logique.
Plutôt que de requêter jour par jour, faire une seule requête et la parcourir.

**HABILER** · 16/07/2019, 14h03

Bonjour,

J'essaye de chercher si plusieurs dates se souvent pour les additionner mais ma fonction Dateadd n'a pas l'air de fonctionner.
J'avais un code utilisant Dcount mais il m'a été conseiller d'utiliser DAO. Mais comme n'y connait rien j'ai fabrique quelque chose.
Si quelqu'un pouvait m'aider?

Merci d'avance

Habiler

Code :

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

[Date_Leave] = #" & Format(DateAdd("d", n, d1), "yyyy-mm-dd") & "#")

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
34
Public Function nbJrs(nP As Long, lve As String, d1 As Date)
    Dim dbs As DAO.Database
    Dim rst As DAO.Recordset
    Dim strDateLeave As String
    Dim n As Long
    Set dbs = CurrentDb
    n = 0
    '
    Set rst = dbs.OpenRecordset("SELECT * FROM qryMain WHERE [Employee Number] = " & nP & " And [Leave] = """ & lve & """ And [Date_Leave] = #" & Format(DateAdd("d", n, d1), "yyyy-mm-dd") & "#")
       Debug.Print n
    'Begin row processing
    Do While Not rst.EOF
 
 
        strDateLeave = rst!Date_Leave
 
    n = n + 1
        'Now filter the Recordset to return only the customers from that city
 
       'rst.Filter = "Date_Leave = " & Format(DateAdd("d", n, d1), "yyyy-mm-dd") & ""
        Debug.Print "n :"; n
        Debug.Print "D1 :"; d1
        Debug.Print "strDateLeave :"; strDateLeave
 
        Exit Do
        rst.MoveNext
 
    Loop
 
    rst.Close
 
 
    Set rst = Nothing
 End Function

**marot_r** · 16/07/2019, 18h24

Bonjour.

Pourquoi il y a un Exit Do non conditionné au beau milieu de ton Do While ?

Ça va arrêter le code dés la 1ère itération donc tu vas lire le 1er enregistrement et sortir après.
En principe on ne sert du Exit Do que si on ne veut pas lire tous les enregistrements et selon une condition particulière.
Je pense qu'il faut le supprimer.

A+

**HABILER** · 16/07/2019, 20h07

juste
J'ai corrigé mais le dateAdd et mon itération ne fonctionnent pas.
Quelque chose m’échappe. Ne parvient a écrire la logique à suivre

**tee_grandbois** · 16/07/2019, 21h09

bonsoir,
Peux-tu expliquer ce que tu souhaites faire avec ce code (exemple à l'appui si possible) ? car, pour le moment, je pense que personne n'a compris à quoi il sert ...

**HABILER** · 17/07/2019, 09h03

Bonjour à tous,

le but est de comptabiliser les périodes. Donc si plusieurs dates se suivent les comptabiliser.
J'avais essayé avec un DCOUNT mais cela prenait un temps fou et on m'a conseillé de le faire via DAO. Mais comme je suis nul en vba, je m’emmêle les pinceaux et je ne trouve pas la logique.
Si date + 1 jour existe alors on comptabilise jusqu'à ce que date+1 n'existe pas.
J'ai essayé avec DateAdd mais il n'ajoute pas de 1 à ma date.

En fait j'ai les données suivantes :

Employee Number	Leave	Date_Leave.
0002	xyz	01/04/2019
0002	xyz	02/04/2019
0002	xyz	03/04/2019
0002	xyz	10/04/2019
0002	xyz	11/04/2019
0002	abc	27/04/2019
0002	abc	28/04/2019
0002	abc	30/04/2019
0002	xyz	01/05/2019

et je voudrais obtenir :

Employee Number	Leave	Date_Leave.	Contigous days
0002	xyz	01/04/2019	3
0002	xyz	10/04/2019	2
0002	abc	27/04/2019	2
0002	abc	30/04/2019	1
0002	xyz	01/05/2019	1
0003	……...

**tee_grandbois** · 17/07/2019, 19h53

bonjour,
c'est nettement plus lumineux avec un exemple ...
Une question: le résultat de sortie doit-il être dans une nouvelle table ? Car autrement, ce serait plus compliqué ...

**User** · 17/07/2019, 21h28

Bonsoir,

Il faudrait intégrer dans la boucle principale, une autre boucle pour comptabiliser les jours qui se suivent.

On ajoute le nombre de jours contigus associé à une date et à un employé dans une table T_NbJoursPeriode :

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
34
35
36
37
38
39
40
41
42
43
44
Dim rst as DAO.RecordSet
Dim rst2 as DAO.RecordSet
Dim EmployeeNumber as string, Leave as string, DateLeave as Date
 
...
 
DoCmd.SetWarnings false
DoCmd.RunSQL"delete from T_NbJoursPeriode;" ' on vide la table temporaire
DoCmd.SetWarnings true
 
Set rst2 = dbs.OpenRecordset("T_NbJoursPeriode",dbopendynaset) ' on ouvre le recordset lié à la table temporaire pour la mettre à jour
 
Do While Not rst.EOF
 
    EmployeeNumber= rst![Employee Number]  
    Leave = rst![Leave]
    DateLeave = rst![Date_Leave]
 
    dt=  rst![Date_Leave]
 
        do while (EmployeeNumber= rst![Employee Number]) and (Leave = rst![Leave]) and (dt=rst![Date_Leave]) ' on parcourt les jours qui se suivent pour un même employé
             dt=dt+1
             rst.MoveNext
                 if rst.eof then exit do
        Loop
 
        rst2.addnew ' ajout d'une ligne dans la table temporaire T_NbJoursPeriode
        rst2![Employee Number]=EmployeeNumber
        rst2![Leave]=Leave
        rst2![Date_Leave]=DateLeave
        rst2![Contigous days]=(dt-DateLeave) ' nombre de jours contigus
        rst2.Update
 
    Loop
 
....
 
rst.Close
rst2.Close
 
set rst=Nothing
set rst2=Nothing
 
....

Cdlt,

Erreur 2766 - Erreur automation "C"

VBA Access

Discussions similaires

Partager

Partager