none
Access.Application OpenCurrentDatabase plus d'affichage des erreurs sur les champs RRS feed

  • Question

  • Bonjour,

    J'utilise depuis longtemps la méthode OpenCurrentDatabase dans des applications VB et VBA.

    Depuis quelques temps, j'ai remarqué lorsqu'une base de données était ouverte avec cette méthode qu'il n'y avait plus d'affichage des messages d'erreurs rencontrés lorsqu'un champ avec une valeur non nulle n'était pas complété.

    Si la base de données est ouverte directement sans passer par la méthode, on a bien l'affichage du message.

    Pour faire l'essai, j'utilise simplement une base de données (EssaiAccess.accdb) avec une table comportant 2 champs avec des valeurs requises et un formulaire pour afficher le contenu de la table. Une autre base de données comportant un formulaire avec un bouton permet d'ouvrir la 1 ère base de données. Le code d'ouverture de la base de données en VBA se trouve ci-dessous. Les 2 bases se trouvent dans le même dossier.

    Les essais en VB.net produisent le même problème. La seule solution qui fonctionne en VB.net est d'utiliser la méthode process.Start.

    dim proc As New System.Diagnostics.Process()

    proc = Process.Start(PathUtilisateur & NameFileCablageITASource)

    Sur cette photo, vous pouvez voir le message normalement affiché en cas de champ non complété et plus visible si la base de données est ouverte avec la méthode OpenCurrentDatabase.  

    La situation est présente sous Access 2016 et 2019.

    Je pense qu'il s'agit d'un problème de mise à jour récente.

    Je rencontre la même situation sur les PC de mon lieu de travail.

    Comment corriger le problème?

    Merci.

    Jacky.

    Option Compare Database
    
    Dim oAccdb As Access.Application
    
    Private Sub btnStart_Click()
    
    Dim NameFileCablageITASource As String, PathUtilisateur As String
    Set oAccdb = CreateObject("Access.Application")
    
    PathUtilisateur = Application.CurrentProject.Path & "\"
    
    NameFileCablageITASource = "EssaiAccess.accdb"
    oAccdb.OpenCurrentDatabase (PathUtilisateur & NameFileCablageITASource)
    oAccdb.RunCommand (10)
    
    End Sub


    mercredi 11 décembre 2019 18:47