A voir également:
- ACCESS -> Renvois d'arguments - variables
- Access appdata - Guide
- Avis stream access ✓ - Forum Virus
- Quick access service - Forum Logiciels
- Access recovery - Télécharger - Sauvegarde
- Bios access - Guide
2 réponses
teebo
Messages postés
33491
Date d'inscription
jeudi 14 octobre 2004
Statut
Modérateur
Dernière intervention
24 février 2011
1 793
10 févr. 2005 à 12:54
10 févr. 2005 à 12:54
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
Thibal_jam
Messages postés
50
Date d'inscription
mardi 14 septembre 2004
Statut
Membre
Dernière intervention
18 mai 2005
3
10 févr. 2005 à 13:38
10 févr. 2005 à 13:38
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 ;)
10 févr. 2005 à 13:07
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 :)