Discussion :

[CLASSIQUE]

Bonjour,
Je me permets de poser cette question, étant novice sur Access.
J’ai fait un Formulaire Access sur la base d’une demande de Fiches de Besoins, afin de servir des pièces.
Chaque utilisateurs de cette base, crée une fiche de Besoins, sur un ordinateur avec un répertoire (G:\\ partagés, ensuite l’impression de la fiche est envoyé vers mon imprimante (distante).
Comment créer un Bouton_click() qui puisse m’ alerter par un MSGBOX à l’écran de mon ordinateur partagé sur le même réseaux.
Exemple (Vous avez des fiches de Besoins en attente).
Dans le but de regroupées plusieurs demandes de pièces, sur une table d’Ajout.
Et ainsi imprimer une seule feuille de toutes ces demandes, pour économiser du papier.
S’il y a une solution pour recevoir ce msgbox (alert) vers mon écran.
Cordialement
JJacques

[sebing]

Bonsoir,

Pourquoi ne pas mettre un champs calcule sur votre formulaire qui compterait le nombre de fiches de besoins en attente, en arrière plan, vous lancez un timing afin d actualiser le formulaire tous les x minutes.
Puis après vous jouez sur les formes conditionnelles.
Bonne soirée

Seb

[CLASSIQUE]

Bonsoir Seb


Je n'ai pu répondre avant ,car j'ai du refaire ma petite Base, car la première fonctionnait sur 25 lignes.
Actuellement j'ai repris le SQL ci dessous.Mais je suis novice en VBA.
Le problème c'est lorsque je vide le Sous formulaire sur le Bouton Click RAZ_table_Nomenclature
Et que je ferme mon Formulaire.
J’ai le message Erreur
Microsoft Visual Basic
Erreur d’exécution ‘2455’
La référence d’une expression à la propriété Form/Report n’est pas valide.
Si j'ouvre de nouveau le formulaire, que j'ouvre la Table D’ajout et que je mets une valeur exemple 1
Que je ferme le formulaire.
Je sais de nouveau l’ouvrir le formulaire avec le 1 qui apparaît dans le sous formulaire.
Comment faire Un SQL pour supprimer l’Erreur 2455 tout en ayant la possibilité de vider le sous formulaire avec le Bouton RAZ..

S’il y a une solution

si je peux solutionner ce petit bug.
Je pourrais reprends l'aide sur un compteur d'enregistrement par exemple, avec la solution d'un timer qui pourrait m'envoyer un Email sur les demandes de fiches de besoin en attente.
Par Exemple.

Si y a une idée, une solution

Cordialement

JJacques

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
27
28
29
30
31
32
33
34
35
36
37
38
39
Private Sub Entrée_Click()
Me.VUE = Me.recherche
Me.DES10 = DLookup("COULEUR", "MAG", "[ARTICLE]= '" & Forms![PREPARATION PVI]![VUE] & "'")
'Sauvegarder les données recherchées dans la table nomenclature
DoCmd.OpenQuery "Ajout_table_nomenclature"
'Réaffichage du sous-formulaire => met à jour l'affichage
Me![NOMEMCLATURE].Form.RecordSource = Me![NOMEMCLATURE].Form.RecordSource
 
End Sub
 
Private Sub Form_Open(Cancel As Integer)
VALIDER_Click
End Sub
 
Private Sub RAZ_Click()
DoCmd.OpenQuery "RAZ_table_Nomenclature"
'Réaffichage du sous-formulaire => met à jour l'affichage
Me![NOMEMCLATURE].Form.RecordSource = Me![NOMEMCLATURE].Form.RecordSource
End Sub
 
Private Sub Recherche_AfterUpdate()
Me.VUE = Me.recherche
Me.DES10 = DLookup("COULEUR", "MAG", "[ARTICLE]= '" & Forms![PREPARATION PVI]![VUE] & "'")
'Sauvegarder les données recherchées dans la table nomenclature
DoCmd.OpenQuery "Ajout_table_nomenclature"
'Réaffichage du sous-formulaire => met à jour l'affichage
Me![NOMEMCLATURE].Form.RecordSource = Me![NOMEMCLATURE].Form.RecordSource
End Sub
 
Private Sub TypeMag_AfterUpdate()
VALIDER_Click
End Sub
 
Private Sub VALIDER_Click()
Me![NOMEMCLATURE].Form.RecordSource = Me![NOMEMCLATURE].Form.RecordSource
End Sub
Private Sub IMPRIMER_Click()
DoCmd.OpenReport "État3", acViewNormal
End Sub