Discussion :

[discretos39]

Bonjour tous le monde,
pour commencer je tiens à dire merci d'avance car je suis novice expérimenté à l'application access.
Voila j'ai une base de données à rendre pour mon travail dans quelques jours et j' ai besoin d' aide vraiment.

Fonctionnement de ma base:
C' est une base qui servira pour la gestion des voyages de chaques salarié avec formulaire de saisie.
L' utilisateur devra rentrer les infos sur le formulaire principal de la table principal (table voyage) et rajouter les données sur les formulaires secondaires en meme temps.
Toutes les saisies se font sur liste déroulante.

mon probleme :
lorsque je rentre une commande sur mon formulaire principal (voyage), je voudrais qu' il me dise qu'elle n'éxiste pas et qu'il me propose de l'ajouter dans le formulaire secondaire (commande).

Voici le code que j'ai éffectué sur "evenement absence dans liste" de la liste modifiable voyages.commande du formulaire principal:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Private Sub VOYAGES_COMMANDE_NotInList(NewData As String, Response As Integer)
Dim intmsgdialogue As Integer, strtitre As String
Dim intnvcommande As Integer, strMsg As String
If IsNull([VOYAGES_COMMANDE]) Then
strtitre = "Commande inconnu dans la table"
strMsg = "Voulez-vous ajouter une commande?"
intmsgdialogue = vbYesNo + vbExclamation
intnvcommande = MsgBox(strMsg, intmsgdialogue, strtitre)
If intnvcommande = vbYes Then
DoCmd.DoMenuItem acFormBar, acEdit, acUndo
DoCmd.OpenForm "[commandes_req]", , , acAdd
forms![COMMANDES_REQ]![commande] = NewData
Response = acDataErrContinue
Else
Response = acDataErrDisplay
DoCmd.DoMenuItem acFormBar, acEdit, acUndo
strMsg = "pour modifier le nom de "
MsgBox strMsg
DoCmd.DoMenuItem acFormBar, acEdit, acUndo
Response = acDataErrAdded
DoCmd.OpenForm "[ORDRE_AFFECTATION]", , , acAdd
forms![ordre_affectation]![commande] = NewData
End If
End Sub
 
End Sub

Merci de votre aide

[FreeAccess]

Bonjour,

Oui...et alors quel est le problème......

Un peu plus d'explication serait bienvenue......avec éventuellement le message d'erreur ou nous expliquer ce qui se passe ou pas.......lorsque tu exécute ton code...

[discretos39]

c' est bien ca le problème, je n' ai aucun message. Aucune demande d' ajout dans la table secondaire. ( ce que j' ai essayer de faire dans mon code :/ )
Le seul message que j' ai est qu'il me dit qu' il ne trouve aucun enregistrement correspondant a la table, normal vu que l' utilisateur rentre les données sur le formulaire principal qui est neutre.

[ilank]

Bonsoir ou bonjour,
le test

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

if Isnull(VOYAGES_COMMANDE)

ne sert à rien et même fausse tout le code. Si l'événement a lieu; le contrôle contient bien une valeur contenue dans le paramètre NewData et cette valeur n'a aucune entrée dans la liste. Essaie en retirant ce test; il y a sûrement d'autres erreurs.

[discretos39]

Toujours pareil, rien se passe et toujours le même message d' erreur. :/
le message est en pièce jointe ...
Si quelqu'un à 1 solution, Merci ..

[ilank]

Bonjour,
comme précisé plus haut, il y a je crois des erreurs de logique dans le code.
D'abord, pourquoi annuler l'événement quelque soit le choix de l'utilisateur.
Il n'y a pas d'ajout dans la liste du nouvel élément.

'Premier partie demande d'insertion d'une nouvelle commande.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 If intnvcommande = vbYes Then
    'Pourquoi annuler ???
    DoCmd.DoMenuItem acFormBar, acEdit, acUndo
 
    'Tu ouvres un formulaire en mode Ajout Nouvel Enregistrement
    ' mais sans attendre la confirmation de l'insertion.
    'Et sans mettre à jour la liste; l'élément n'est donc pas ajouter alors que
    ' l'utilisateur l'a demandé.
    DoCmd.OpenForm "[commandes_req]", , , acAdd
    forms![COMMANDES_REQ]![commande] = NewData
 
    'Ici, tu considères que l'ajout n'a pas eu lieu. 
    Response = acDataErrContinue

'Seconde partie l'utilisateur a répondu Non à la demande d'insertion d'une nouvelle commande

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
Else
    Response = acDataErrDisplay
 
    'Tu annules la saisie par un undo 
    DoCmd.DoMenuItem acFormBar, acEdit, acUndo
 
    'Tu affiches un message incomplet
    strMsg = "pour modifier le nom de "
    MsgBox strMsg
 
    'Tu effectues de nouveau un Undo. sur quoi ?
    DoCmd.DoMenuItem acFormBar, acEdit, acUndo
 
    'Et ici tu renvoies l'information que l'élément a été ajouté à la liste alors
    'que l'utilisateur à demander le contraire et qu'il n'y a eu aucun ajout
    Response = acDataErrAdded
 
    '??????
    DoCmd.OpenForm "[ORDRE_AFFECTATION]", , , acAdd
    forms![ordre_affectation]![commande] = NewData
End If
End Sub

[discretos39]

Merci pour tes réponses..
Sinon voila j' ai essayé de refaire un petit code en suivant tes conseils mais tjs rien ...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub COMMANDE_NotInList(NewData As String, Response As Integer)
Dim intmsgdialogue As Integer, strtitre As String
Dim intnvclient As Integer, strMsg As String
strtitre = "Commande inconnu dans la table"
strMsg = "Voulez-vous ajouter une commande?"
intmsgdialogue = vbYesNo + vbExclamation
intnvclient = MsgBox(strMsg, intmsgdialogue, strtitre)
If intnvclient = vbYes Then
DoCmd.OpenForm "[commandes_req]", , , acAdd
forms![COMMANDES_REQ]![COMMANDE] = NewData
NewData.Requery
Response = acDataErrAdded
Else
Response = acDataErrContinue
COMMANDE.Undo
End If
End Sub

Je commence à désespéré ... :/