Formulaire dans Access Fermé

Question

Bonjour,
J'ai créé une petite base de données dans laquelle j'ai un formulaire pour entrer des contrats.
Ces contrats sont faits pour des contacts que je choisis dans une liste déroulante, nul interdit.
Quand il n'existe pas, je dois fermer mon formulaire, partir dans le formulaire des contacts et revenir au point de départ pour entrer mon contrat !
Comment pourrai-je commander au formulaire des contacts de s'ouvrir à partir de mon formulaire des contrats afin de créer le contact dont j'ai besoin ?
Merci d'avoir lu !
Bonne nuit !

Jacques · Answer

Bonjour,
Dans les propriétés du champ texte de la liste déroulante de votre formulaire, il convient de créer un évènement
Sur absence dans liste

Voici une syntaxe opérationnelle qu'il vous faut adapter  à votre cas spécifique (faire un copier/coller et ensuite modifier en les  adaptant à votre contexte)
___________________
Private Sub RéfValeur_NotInList(NewData As String, Response As Integer)

'Demande à l'utilisateur s'il veut ajouter une occurrence dans la liste déroulante
    Dim StrMessage As String
    'Dim DbsValeurs As Database
    'Dim RstTypes As DAO.Recordset
    
    StrMessage = "Avez-vous décidé d'ajouter ' " & NewData & " ' à la liste des Valeurs ?"
    If Confirmer(StrMessage) Then
    
        ' Ajout de la nouvelle occurrence dans la table  compte
        Set DbsValeurs = CurrentDb
        Set RstTypes = DbsValeurs.OpenRecordset("Valeurs")
        RstTypes.AddNew
        RstTypes!Valeur = NewData
        RstTypes.Update
        Response = acDataErrAdded 'Màj de la liste
    Else
        Response = acDataErrDisplay 'Affichage de l'erreur
    End If
        
End Sub

Cordialement
La science ne fait que trouver ce qui existe depuis toujours
REEVES Hubert.

Formulaire dans Access

1 réponse

Discussions similaires