ACCESS -> Renvois d'arguments - variables
Aki
-
Aki -
Aki -
Bonjour,
Dans ma tendre jeunesse avec Access :) , j'avais réalisé un programme qui lorsqu'un élément n'était pas dans la liste déroulante (notinlist), déclenchez l'ouverture d'un formulaire avec des paramètres (openArgs).
La partie que j'ai oublié:
Le formulaire appelé renvoyait des informations, malheureusement, je ne sais plus de quelle façon (Je me souviens juste que c'était simple ... c'est ça le pire :).
Merci d'avance
Ps: j'ai déjà^posté hier mais avec un trés mauvais titre
Dans ma tendre jeunesse avec Access :) , j'avais réalisé un programme qui lorsqu'un élément n'était pas dans la liste déroulante (notinlist), déclenchez l'ouverture d'un formulaire avec des paramètres (openArgs).
La partie que j'ai oublié:
Le formulaire appelé renvoyait des informations, malheureusement, je ne sais plus de quelle façon (Je me souviens juste que c'était simple ... c'est ça le pire :).
Merci d'avance
Ps: j'ai déjà^posté hier mais avec un trés mauvais titre
A voir également:
- ACCESS -> Renvois d'arguments - variables
- Acer quick access - Forum Logiciels
- Access appdata - Guide
- Annuler tous les renvois ooredoo ✓ - Forum Mobile
- Exemple base de données access à télécharger gratuit - Forum Access
- Exemple base de données Access de gestion ✓ - Forum Logiciels
2 réponses
Salut,
Quand tu appelles ton formulaire, tu ne peux pas lui passer des paramètre en IN/OUT? C'est ce qui me vient comme ça mais ma jeunesse avec Access est sans doute encore plus ancienne que la tienne :-D
Quand tu appelles ton formulaire, tu ne peux pas lui passer des paramètre en IN/OUT? C'est ce qui me vient comme ça mais ma jeunesse avec Access est sans doute encore plus ancienne que la tienne :-D
Salut Aki,
pk s'embeter avec un formulaire ?
Private Sub combo1_NotInList(NewData As String, Response As Integer)
Dim SQLstring As String
'désactive les alertes système
DoCmd.SetWarnings False
If MsgBox("Cette truc n'est pas dans la liste. Faut-il l'ajouter ?", vbOKCancel) = vbOK Then
' Ajoute la chaîne de l'argument NouvDonnée au contenu.
SQLstring = "INSERT INTO T_truc ( name ) VALUES ('" & NewData & "')"
DoCmd.RunSQL SQLstring
Response = acDataErrAdded
Else
' Si l'utilisateur choisit Annuler, supprime le message d'erreur
' et annule les modifications.
Response = acDataErrContinue
combo1.Undo
End If
'réactives les alertes système
DoCmd.SetWarnings True
End Sub
et tout est automatisé en plus ça marche je l'ai tester
bonne chance
Thibal
pk s'embeter avec un formulaire ?
Private Sub combo1_NotInList(NewData As String, Response As Integer)
Dim SQLstring As String
'désactive les alertes système
DoCmd.SetWarnings False
If MsgBox("Cette truc n'est pas dans la liste. Faut-il l'ajouter ?", vbOKCancel) = vbOK Then
' Ajoute la chaîne de l'argument NouvDonnée au contenu.
SQLstring = "INSERT INTO T_truc ( name ) VALUES ('" & NewData & "')"
DoCmd.RunSQL SQLstring
Response = acDataErrAdded
Else
' Si l'utilisateur choisit Annuler, supprime le message d'erreur
' et annule les modifications.
Response = acDataErrContinue
combo1.Undo
End If
'réactives les alertes système
DoCmd.SetWarnings True
End Sub
et tout est automatisé en plus ça marche je l'ai tester
bonne chance
Thibal
Tout simplement car ce qui se trouve dans le Combo est une liste de Fournisseur/Client avec un joli formulaire contenant d'autres données.
Dans le cas où je ne trouve pas la réponse, je réaliserais un petit test dans l'évènement Unload pour affecter une variable au formulaire qui l'a appelé. C'est pas compliqué à faire, mais c'est dommage de faire cela alors qu'il existe une propriété prévue pour
Merci tout de même ;)
Dans le cas où je ne trouve pas la réponse, je réaliserais un petit test dans l'évènement Unload pour affecter une variable au formulaire qui l'a appelé. C'est pas compliqué à faire, mais c'est dommage de faire cela alors qu'il existe une propriété prévue pour
Merci tout de même ;)
Et il suffisait d'une seule propriété pour récupérer la valeur.
Merci pour ta réponse rapide (Le déterrage de vieux souvenir de programmation :)