ACCESS - Renvois d'arguments - variables Fermé

Question

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

teebo · Answer

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

Thibal_jam · Answer

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

ACCESS -> Renvois d'arguments - variables

2 réponses

Discussions similaires