Discussion :

[cluster26]

Bonsoir,

J'arrive au terme du développement d'une petite application.

La compilation s'est bien déroulée et après plusieurs tests cette application fonctionne bien.

J'ai donc essayé de la tester en fonction runtime.

En fin de ligne de commande du lancement de l'application, j'ai donc ajouté : /runtime.

A un certain stade de l'application, je suis amené à consulter des enregistrements qui remplissent certaines conditions.

Si l'enregistrement est validé, ses champs apparaissent dans le formulaire. Si l'enregistrement n'est pas validé, un message prévient l'utilisateur qu'il ne répond pas aux critères d'affichage.

Après avoir appuyé sur la touche OK de la msgbox, une fenêtre apparaît et me signale que :

Cette application a été arrêtée à cause d'une erreur d'exécution.
Elle ne peut pas continuer et va être fermée

Avez-vous une solution pour cibler cette erreur d'exécution SVP.

Merci à l'avance.

[cluster26]

J'ajoute un complément à mon message.

En effet, je viens de m'apercevoir que ce message apparaît à chaque fois que j'utilise une msgbox personnalisée.

En effet, pour utiliser cette msgbox, j'ai créé :

Code :

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

1
2
3
4
5
6
7
8
9
Global Const MB_OK = 0, MB_OKANNULER = 1    ' Définit les boutons.
Global Const MB_OUINONANNULER = 3, MB_OUINON = 4
Global Const MB_ICONSTOP = 16, MB_ICONQUESTION = 32    ' Définit les icônes.
Global Const MB_ICONEXCLAMATION = 48, MB_ICONINFORMATION = 64
Global Const MB_DEFBOUTON2 = 0, IDOUI = 6, IDNON = 7    ' Autres définitions.
Global Const défBd = MB_OK + MB_OKANNULER + MB_ICONSTOP + MB_DEFBOUTON2
Global Const DéfBd2 = MB_OK + MB_ICONSTOP
Global Const Défbd3 = MB_OK + MB_OUINON
Global Const Titre = "SUIVI DES STOCKS"

Ensuite après déclaration des variables :

Code :

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

Public msg As String, réponse as integer

Je gère mon code de cette façon :

Code :

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

1
2
msg = "ENREGISTREMENT NON DETECTE !... "
        réponse = MsgBox(msg, DéfBd2, Titre)

Et c'est à ce stade que l'application "coule" !...

J'ai utilisé la syntaxe :

Code :

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

MsgBox "Enregistrement non détecté !..

aucun problème !..

Avez-vous une petite idée pour résoudre ce dysfonctionnement.

Merci

[cluster26]

Je reviens de nouveau dans cette discussion !..

En effet, j'avais pris une très mauvaise piste! ...

L'erreur ne découle pas de la boite de message, mais de la ligne de code :

Code :

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

DoCmd.GoToControl "ctr1"

Le fait de mettre ctr1 entre " ", génére l'erreur d'exécution runtime.

J'ai donc adapté et j'obtiens maintenant :

Code :

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

DoCmd.GoToControl ctr1

Toutefois, après avoir procédé de cette façon, l'exécution de cette ligne ne se réalise pas !..

Pouvez-vous me conseiller à ce sujet.

Merci à l'avance

[cluster26]

je viens de tester l'application une bonne partie de l'après-midi et je viens de m'apercevoir que le runtime est beaucoup plus rigide dans le déroulement d'une application.

Il s'agit en l'occurrence d'un petit détail de programmation (contrôle paramétré dans le formulaire à "activé : oui" et "verrouillé :non" qui posait problème).

Je suis confus de m'être un peu trop précipité et de m'être "étendu" dans le développement de cette discussion tout en étant manifestement "à coté de la plaque" .

Toutefois, ceci n'explique pas cela : le programme fonctionnait lorsqu'il n'était pas en mode runtime !..

Avec mes excuses.

[argyronet]

Bonjour,

Il est (absolument) inutile de recréer des constantes qui existent déjà :

Global Const MB_OK = 0, MB_OKANNULER = 1 ' Définit les boutons.
Global Const MB_OUINONANNULER = 3, MB_OUINON = 4....

qui plus est en public avec le mot obsolète Global...
Dans un cas extrême, tu peux si vraiment cela te "gonfle" d'écrire les vbExclamation+vbYesNo+vbDefaultButton2 de contruire des combinaisons, par exemple :

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
Const MB_EXCLQUEST_OKCNC_CNC                   As Integer = 305
Const MB_CRITQUEST_YN_YES                     As Integer = 276
 
Sub testExclam()
    If MsgBox("Ouh là là..." & vbCrLf & "On va dans le mur !", _
              MB_EXCLQUEST_OKCNC_OK, "Confirmer") = vbCancel Then
        Exit Sub
    End If
End Sub
 
Sub testQuest()
    If MsgBox("Ouh là là..." & vbCrLf & "On continue ?", _
              MB_CRITQUEST_YN_YES, "Confirmer") = vbNo Then
        Exit Sub
    End If
End Sub

Evite aussi le

Code :

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

DoCmd.GotoControl

mais choisi plutôt

Code :

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

MonControl.SetFocus

Argy

[cluster26]

Bonsoir,

Merci pour ces conseils.

Je viens de passer 3 ans sans programmer et de plus c'était avec access97 !..

Toutefois, ce site me donne à nouveau beaucoup d'envie pour m'immerger dans la programmation.

J'en profite pour remercier l'ensemble des rédacteurs/modérateurs qui nous apportent véritablement et systématiquement l'aide technique dont nous avons besoin !...

Encore merci.