Discussion :

[irimi54]

Bonjour,

Dans un programme. En access VBA (Office 2019) J'ai une liste déroulante qui fonctionnait bien quand il s'agissait d'ajouter une ligne , par la procédure "pas présent dans la list".
Mais depuis aujourd'hui, impossible d'ajouter une ligne Par cette procédure ?

En revanche J'ai transféré le programme sur mon portable avec. Microsoft Office 2021, Et l'addition d'une ligne se fait parfaitement.

J'en conclus qu'il y a un problème de configuration sur mon. Microsoft Office 2019

Je joins à tout hasard le code.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Private Sub ID_Lieu_NotInList(Nouveau As String, Response As Integer)
    If MsgBox("Voulez-vous ajouter " & Nouveau & " dans la liste des Villes ?", vbYesNo + vbQuestion + vbDefaultButton2, "Ajout") = vbYes Then
        DoCmd.SetWarnings False
        DoCmd.RunSQL "INSERT INTO Lieu ( Lieu ) SELECT """ & Nouveau & """;"
        DoCmd.SetWarnings True
        Response = acDataErrAdded
    Else
        Response = acDataErrContinue
        Me.ID_Lieu.Undo
    End If
End Sub

et le formulaire



Merci et pour votre aide.

[loufab]

Bonjour,

Tu as mis un point d'arrêt sur la 1ere ligne de la procédure pour savoir si l'évènement s'exécute ?

Cordialement,

[irimi54]

Bonjour,

Oui j'ai mis un point d'arrêt sur la première ligne de la procédure, mais rien ne se passe. l'évènement ne passe pas par là, et donc ne s'exécute pas, pourtant dans la propriété de la liste déroulante il y a bien le lancement de la procédure évènementielle sur "Absence dans liste"

J'ai essayé une autre procedur,e voir ci-dessous, mais le résultat est tout aussi negatif

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Private Sub ID_Lieu_NotInList(Nouveau As String, Response As Integer)
    Dim rst As DAO.Recordset
    If MsgBox("La ville de [" & Nouveau & "] ne figure pas dans la liste. Voulez-vous l'ajouter ?", vbQuestion + vbYesNo) = vbYes Then
        Set rst = CurrentDb.OpenRecordset("Lieu")
        rst.AddNew
        rst!Lieu = Nouveau
        rst.Update
        rst.Close
       Set rst = Nothing
    End If
   Response = acDataErrAdded
End Sub

[irimi54]

en continuant mes recherches, j'ai appuyé par hasard sur la touche "TAB" et la procedure s'est execute .

je ne comprends pas pourquoi.

[irimi54]

Ca y est , j'ai trouvé.
Dans les option de ACCESS la touche "entrée" avait pour effet d'aller à l'enregistrement suivant, j'ai remis au champ suivant. Et tout remarche normalement

Merci pour le temps passé.
(je mets la question comme résolue)