Discussion :

[gwent]

Bonjour

malgré le debogage et la compilation sous access 2007 (complet), mon appli se plante sur un poste dont seul la version runtime 2007 est installée.
idem sur poste avec runtim2007 et office 2007 familiale

sur le poste de dev, la version accdr fonctionne bien

comment debugguer pour trouver ces problemes avec access 2007 complet?

[Tonioyo]

Bonjour,

Il existe plusieurs méthodes de débuggage. Dans le VBE avant de lancer l'application il est possible de placer des "break points" dans le code grace à la touche F9. L'execution s'arrêtra sur la ligne où a été posé le break point. Il suffit de réappuyer sur la même touche pour l'enlever (il faut au préalable que le curseur se trouve sur la ligne avant de faire la modification).

Il est possible aussi de positionner des instructions "Stop" dans le code qui ont le même effet.

Ensuite la touche F8 sert à executer les instructions les une après les autres. MAj + F8 Permet d'executer un appel complet de méthode(s) situé sur la ligne qui doit être executée.

Autres points utiles sont les fenêtres de déboguage, Affichage->Fenetre Espion et Affichage->Fenetre d'execution.

La fenetre espion permet de voir l'état d'une variable ou d'un objet en faisant un glisser déplacer du nom de la variable / objet dans cette fenetre.

La fenetre d'execution permet de voir la sortie de débuggage. Par exemple l'instruction suivante

Code :

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

Debug.print "xxx"

écrit xxx dans cette fenêtre.
Cette fenêtre est aussi très utile pour tester/executer des méthodes ou avoir la valeur d'une variable, par exemple ceci :

Code :

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

?CurrentProject.Path

retourne le chemin du projet courrant

Il ne faut pas oublier les tests unitaires avec l'instruction "Assert". Les tests unitaires doivent être écrit avant d'écrire le code pour vérifier les contraintes métiers et applicatives. Pour faire simple cette instruction permet de vérifier l'état / la valeur d'une variable en la placant dans un certain contexte.
Le but du jeu est de couvrir un maximum de contexte possible pour un objet / variable pour s'assurer de son bon fonctionnement dans toutes les situations de l'application.

voici un exemple de test unitaire :

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
Private onglet As GestOnglet
 
Public Sub runTests()
  initializations
  testsAEffectuer
  fermetureDesObjets
  Debug.Print "tests completed"
End Sub
 
Private Sub initializations()
  Set onglet = New GestOngletMenu
  DoCmd.OpenForm "Frm_Menu", acDesign
  DoCmd.OpenForm "Frm_Ecouteur_UI", acDesign
  onglet.create getOngletVideStructure, "TestOnglet"
End Sub
 
Private Sub testsAEffectuer()
  Debug.Assert testName
End Sub
 
Private Function getOngletVideStructure() As ONGLET_COMPOSE
  With getOngletVideStructure
    Set .objets.imageDebut = Forms("Frm_Menu").Controls("I_Onglet1_Debut")
    Set .objets.imageMilieu = Forms("Frm_Menu").Controls("I_Onglet1_Milieu")
    Set .objets.imageFin = Forms("Frm_Menu").Controls("I_Onglet1_Fin")
    Set .objets.Label = Forms("Frm_Menu").Controls("Lbl_Onglet1")
    Set .objets.bouton = Forms("Frm_Menu").Controls("Btn_Onglet1")
    .placement.haut = 0
    .placement.gauche = 1235
    .placement.largeur = 1230
    .placement.hauteur = 225
    .std.debut = "Img_OngletDebutStd"
    .std.milieu = "Img_OngletMillieuStd"
    .std.fin = "Img_OngletFinStd"
    .survol.debut = "Img_OngletDebutSurvol"
    .survol.milieu = "Img_OngletMillieuSurvol"
    .survol.fin = "Img_OngletFinSurvol"
    .actif.debut = "Img_OngletDebutActif"
    .actif.milieu = "Img_OngletMillieuActif"
    .actif.fin = "Img_OngletFinActif"
  End With
End Function
 
Private Function testName() As Boolean
On Error GoTo Err
  onglet.Name = "Test"
  If onglet.Name = "Test" Then
    testName = True
  Else: messageDeTest "testName", onglet.Name, "Test"
  End If
  Exit Function
Err:
  Debug.Print "testName " & Err.Description
  testName = False
End Function

Cet exemple (qui ne comprends qu'un seul test ici) test un objet qui gère des onglets.

Pour plus de détails une recherche s'impose.

[gwent]

à prori, en ayant mis un certain nombre de données entre debug, mon pb serait peut être lié à un pb SQL et vba .....

le message runtime est le suivant :
Fonction non disponible dans les expressions "Mid([table_devis]![devis_num],1,len([table_devis]![devis_num])-4"

la requete est la suivante :

Code :

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

1
2
3
4
5
6
7
8
9
SELECT Mid([Table_DEVIS]![Devis_Num]
,1,Len([Table_DEVIS]![Devis_Num])-4) AS numv
, Max(Right([Table_DEVIS]![Devis_Num],3)) AS NUMDEV 
FROM Table_DEVIS 
GROUP BY Mid([Table_DEVIS]![Devis_Num]
,1,Len([Devis_Num])-4) 
HAVING ((Mid([Table_DEVIS]![Devis_Num]
,1
,Len([Table_DEVIS]![Devis_Num])-4))='" & NUM_DEVIS_EN_COURS & "');

je ne comprends pas !!!!

[Tonioyo]

On dirait qu'il manque des parenthèses et une fonction entre la deuxième et troisième ligne de code.

[gwent]

On dirait qu'il manque des parenthèses et une fonction entre la deuxième et troisième ligne de code.

je vais regarder.... mais ça n'explique pas pourquoi ça fonctionne très bien en version complète access.

[gwent]

je vais regarder.... mais ça n'explique pas pourquoi ça fonctionne très bien en version complète access.

A priori, il ne manque pas de paranthèse !!!!

Code :

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

1
2
3
4
5
6
7
8
9
10
11
SELECT 
Mid([Devis_Num],1,Len([Devis_Num])-4) AS numv, 
Max(Right([Devis_Num],3)) AS NUMDEV 
FROM 
Table_DEVIS 
GROUP BY 
Mid([Devis_Num],1,Len([Devis_Num])-4) 
HAVING 
((
(Mid([Devis_Num],1,Len([Devis_Num])-4))
='" & NUM_DEVIS_EN_COURS & "'));

je ne comprend pas !!!!


ps, assert, ça sert à quoi exactement?