Formulaire dans Access
galact
-
Jacques -
Jacques -
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 !
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 !
Configuration: Windows XP Access 2003
1 réponse
-
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.
