[VBA] information sur une méthode

**stolx_10** · 19/09/2006, 14h26

Bonjour ,

Je travaille actuellement sur une BD déjà créée et je dois ajouter des données à celle-ci. Cependant, après avoir modifié certains points qui fonctionnent où il faut, j'ai des soucis ( bugs ) lors de l'édition des Etats, et j'ai le mode débugage qui s'arrète sur cette ligne :

Code :

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

1
2
3
4
5
6
7
If Forms("FEdit").ChxPer.Value = 1 Then 
 MaDateDeb = Short2Long(Forms("FEdit").TxtDeb)
  MaDateFin = Short2Long(Forms("FEdit").TxtFin)
Else
  MaDateDeb = Forms("FEdit").LabClotDeb.Caption
  MaDateFin = Forms("FEdit").LabClotFin.Caption
End If

Que veut elle dire ?
je comprends que Forms("FEdit") c'est le formulaire du nom de FEdit mais ChxPer.value je ne sais pas ce que c'est !

pouvez vous m'éclairer svp ? merci

**léti07** · 19/09/2006, 14h31

salut

je dirai que chxper est une variable de l'état
si c'est pas ca je vois pas ce que ca peut etre

**stolx_10** · 19/09/2006, 14h40

chxper est une variable de l'état

hummm .... ok

Je vais pas être vieux jeu ou médisant mais je crois pas que ça m'aide énormément

Que veux tu dire par variable de l'état ?? c'est qq chose de créer par le programmeur ou une variable déjà existante ?

**léti07** · 19/09/2006, 14h41

je veux dire une variable qui a été crée dans ton état par le programmeur

**milia** · 19/09/2006, 14h41

Bonjour, c'est peut-être le nom d'un contrôle, dans ce cas là ça serait:

Forms(FEdit).Controls(ChxPer)
essaye avec me, mais il faut que tu essaye de comprendre la logique de ton formulaire, quel champ lorsqu'il est égale à 1 prendre les dates du temps ...

Je pense que sur ce coup là on peut pas trop d'aider, il faut que adapte une certaine logique propre à chacun.

**stolx_10** · 19/09/2006, 14h45

quand je fais " me. .... " deja il ne me trouve pas FEdit

alors que dans la liste de projets je le vois bien --> Form_FEdit

**léti07** · 19/09/2006, 14h50

ton code est dans le formulaire FEdit ou dans un autre??

**stolx_10** · 19/09/2006, 15h35

Là où le bug apparait, il se trouve dans l'événement
"Private Sub Report_Open(Cancel As Integer)" de l'Etat.

Cet Etat apparait grâce à un bouton "ajouter" se trouvant sur le formulaire "FEdit". Et ce bug apparaît depuis que j'ai ajouté une colonne dans la BD, et j'ai bien modifié tous les paramètres dans le VBA concernant cette colonne en faisant bien attention aux noms que j'ai donné à des champs textes, à des valeurs calculées ainsi qu'aux champs dans les requêtes SQL.

J'ai pourtant fait les modifs minutieusement en faisant gaffe aux paramètres etc, me je crois que je me perds au niveau de ça :

Code :

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

1
2
3
4
5
 DoCmd.RunSQL ("INSERT INTO DEFICIT VALUES (" & Cpt & ", '" & Appos(R1.Fields(0)) & "', '" _
                & Appos(R1.Fields(1)) & "', '" & R1.Fields(2) & "', " & R1.Fields(3) & ", " _
                & R1.Fields(4) & ", " & R1.Fields(5) & "," & R1.Fields(6) & ", " & (R1.Fields(4) - R1.Fields(5)) & ", '" _
                & LaReq & "');")
    R1.MoveNext

Les camps Fields me donnent mal au crâne mais apres avoir bien regardé, je ne vois pas la faille

**léti07** · 19/09/2006, 15h40

je pense pas que ca vienne de ton sql
essaye ca

Code :

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

me.ChxPer.Value = 1

**stolx_10** · 19/09/2006, 15h48

No c'est pir ^^

Mais le truc, c'est que cette méthode est utilisé un bon nombre de fois, et il n'y a qu'a ce niveau que ça bug

**DMboup** · 19/09/2006, 15h50

Que veut elle dire ?
je comprends que Forms("FEdit") c'est le formulaire du nom de FEdit mais ChxPer.value je ne sais pas ce que c'est !

ChxPer doit forcément être un champ de ton formulaire. Regarde s'il est bien présent.

Ensuite moi j'aurais fais tout simplement comme ca

Code :

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

1
2
 
If Forms!FEdit!ChxPer.Value = 1 Then

et au lieu d'utiliser Report_Open pour le code, je le mettrais bien dans l'évenement Au formatage.

**stolx_10** · 19/09/2006, 15h54

Ouais c'est bien un élément de mon formulaire ^^
J'essaie ce que tu me dis et je te dis quoi !

**stolx_10** · 19/09/2006, 15h56

Ca ne change rien :s mais au moins je sais ce qu'est ChxPer ^^

**cafeine** · 19/09/2006, 15h57

Un Debug.Print s'impose pour ton SQL ...

Sinon, je ne suis pas trop d'accord avec léti07 ...
ChxPer n'est pas une variable, c'est le nom d'un contrôle du formulaire.

Assure toi que le formulaire est ouvert au moment où ce code est exécuté.

**stolx_10** · 19/09/2006, 15h57

voila le bloc !

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
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
Private Sub Report_Open(Cancel As Integer)
 
Dim MaDateDeb As String
Dim MaDateFin As String
Dim R1 As Object
Dim LaReq As String
Dim Cpt As Integer
 
If Forms!FEdit!ChxPer.Value = 1 Then
  MaDateDeb = Short2Long(Forms("FEdit").TxtDeb)
  MaDateFin = Short2Long(Forms("FEdit").TxtFin)
Else
  MaDateDeb = Forms("FEdit").LabClotDeb.Caption
  MaDateFin = Forms("FEdit").LabClotFin.Caption
End If
 
'*************************************************************************************
'************************ Création de la vue DEFICIT *********************************
'*************************************************************************************
 
'formate table DEFICIT
DoCmd.SetWarnings False
DoCmd.RunSQL ("DELETE FROM DEFICIT;")
 
'SELECTionne les clients non groupés
Set R1 = CurrentDb.OpenRecordset("" _
    & "SELECT CliAS400, NomClient, IDDep, SUM(EntréeBr) AS [SomEB], " _
    & "SUM(EntréeTr) AS [SomET], SUM(Sortie) AS [SomSor], SUM(A_broyer) AS [SomAbroyer]" _
    & "FROM RETOUR, CLIENT " _
    & "WHERE RETOUR.IDClient = CLIENT.IDClient " _
    & "AND CLIENT.IDGr = 0 " _
    & "AND DateRetour BETWEEN #" & CDat(MaDateDeb) & "# AND #" & CDat(MaDateFin) & "# " _
    & "GROUP BY CliAS400, NomClient, IDDep;")
 
 
'INSERT ds vue
If R1.EOF = False Then
  Cpt = 1
  Do While R1.EOF = False
    If R1.Fields(5) = 0 Then
      LaReq = "Ø"
    Else
      LaReq = CStr(CLng(-(R1.Fields(4) - R1.Fields(5)) / R1.Fields(5) * 100)) & "%"
    End If
    DoCmd.RunSQL ("INSERT INTO DEFICIT VALUES (" & Cpt & ", '" & Appos(R1.Fields(0)) & "', '" _
                & Appos(R1.Fields(1)) & "', '" & R1.Fields(2) & "', " & R1.Fields(3) & ", " _
                & R1.Fields(4) & ", " & R1.Fields(5) & "," & R1.Fields(6) & ", " & (R1.Fields(4) - R1.Fields(5)) & ", '" _
                & LaReq & "');")
    R1.MoveNext
    Cpt = Cpt + 1
  Loop
  R1.Close
End If
 
'SELECTionne clients groupés
Set R1 = CurrentDb.OpenRecordset("" _
    & "SELECT NomGr, SUM(EntréeBr) AS SomEB, SUM(EntréeTr) AS SomET, SUM(Sortie) AS SomSor, " _
    & "SUM(A_broyer) AS SomAbroyer" _
    & "FROM RETOUR, CLIENT, GROUPE " _
    & "WHERE RETOUR.IDClient = CLIENT.IDClient " _
    & "AND CLIENT.IDGr = GROUPE.IDGr " _
    & "AND CLIENT.IDGr <> 0 " _
    & "AND DateRetour BETWEEN #" & CDat(MaDateDeb) & "# AND #" & CDat(MaDateFin) & "# " _
    & "GROUP BY GROUPE.IDGr, NomGr;")
 
'INSERT ds vue
If R1.EOF = False Then
  Do While R1.EOF = False
    If R1.Fields(3) = 0 Then
      LaReq = "Ø"
    Else
      LaReq = CStr(CLng(-(R1.Fields(2) - R1.Fields(3)) / R1.Fields(3) * 100)) & "%"
    End If
    DoCmd.RunSQL ("INSERT INTO DEFICIT VALUES (" & Cpt & ", '', '" _
                & Appos(R1.Fields(0)) & "', '', " & R1.Fields(1) & ", " _
                & R1.Fields(2) & ", " & R1.Fields(3) & "," & R1.Fields(4) & "," _
                & (R1.Fields(2) - R1.Fields(3)) & ", '" _
                & LaReq & "');")
    R1.MoveNext
    Cpt = Cpt + 1
  Loop
  R1.Close
End If
 
 
 
End Sub

Table DEFICIT 10 champs au total
1 Num
3 Text
5 Num
1 Text

**léti07** · 19/09/2006, 16h03

Envoyé par cafeine

Sinon, je ne suis pas trop d'accord avec léti07 ...
ChxPer n'est pas une variable, c'est le nom d'un contrôle du formulaire.

désolé maitre

je merite d'etre

pour ne pas avoir utiliser le bon terme

**stolx_10** · 19/09/2006, 16h10

Ca va paraitre un peu stupide, mais je n'arrive pas a utiliser le Debug.Print

Je suis a moitié débutant, je comprends le code, je sais manip de la BD mais je ne suis pas du tout habitué au VB et VBA qui se ressemblent

**cafeine** · 19/09/2006, 16h14

Hello,

Code :

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

1
2
3
4
Debug.Print "INSERT INTO DEFICIT VALUES (" & Cpt & ", '" & Appos(R1.Fields(0)) & "', '" _
                & Appos(R1.Fields(1)) & "', '" & R1.Fields(2) & "', " & R1.Fields(3) & ", " _
                & R1.Fields(4) & ", " & R1.Fields(5) & "," & R1.Fields(6) & ", " & (R1.Fields(4) - R1.Fields(5)) & ", '" _
                & LaReq & "');"

va afficher dans la fenetre exécution le code SQL, tu pourras le Copier/Coller dans une requete vierge pour voir s'il marche.

Pour le déboguer, tu peux regarder mon tutoriel
http://cafeine.developpez.com/access...el/debugprint/

**stolx_10** · 19/09/2006, 16h16

Ok merci !!

Apres je sais comment utiliser la console debug, c'est pas un probleme

Sinon je pense donner suite demain car ma journée se termine, et bouffer du code tte la journée c'est un peu chiant ^^, je prefere avoir l'esprit tranquil le soir !
C'est pour cela en géné ral que je m'énerve rapidement sur le forum, pgz en a déjà fait les frais

**stolx_10** · 19/09/2006, 16h34

Ca me retourne :

"INSERT INTO DEFICIT VALUES (1, '00147', 'SNV (ch gontier)', '53', 209, 209, 31,, 178, '-574%');"

^^ je remarque la virgule en trop

[VBA] information sur une méthode

Access

Discussions similaires

Partager

Partager