Discussion :

[yeahyeah]

Bonjour messieurs, dames,

Je suis en train de faire un programme Access dans lequel j'utilise la recherche multi-critère de Caféine (merci au passage!). Il s'agit d'un programme de gestion de la maintenance sur un site industriel.

Cependant, je voudrais faire des choses à partir de cette liste et je n'y arrive pas (j'ai déjà programmé mais je commence à peine le VB) :
- ouvrir le formulaire correspondant à celui sur lequel je double clique. Le prog. de caféine montre comment le faire mais je ne veux pas que ce formulaire soit modifiable car il sera utilisé en mode utilisateur (formulaire modifiable lors de son enregistrement mais non modifiable après recherche).
- créer un état en fonction de cette liste. càd que par exemple, je choisis les opérations entre telle date et telle date, ou celles d'un technicien précis, et je peux générer un état à partir de la liste.

Peut-être est-il possible de créer une nouvelles table automatiquement avec juste les résultats de la liste? Je pourrais donc créer un nouveau formulaire (excatement le même que celui de saisie mais en le protégant et en empêchant la modification) et il serait peut-être plus facile de créer l'état si celui-ci utilise toutes les entrées de la nouvelle table.

Je ne sais pas si j'ai été clair et si mon idée de créer un nvelle table automatiquement et bonne et faisable.

Merci de votre lecture et n'ésitez pas à m'aider !

[Heureux-oli]

Pourquoi créer une nouvelle table ?

Le résultat d'une requête ne te convient pas ?

Pour le formulaire modifiable ou non, j'ai pas très bien compris.

[jean-paul lepetit]

Salut,

Pour le formulaire modifiable ou non, tu veux un formulaire de consultation pour les agents et un te permettant de faire des modifs de données pour d'autres personnes ?

Il suffit de jouer sur les propriétés de données du Formulaire :
modif autorisées
supp autorisées
ajout autorisés

[yeahyeah]

J'ai déjà fait ma recherche multicritère telle celle de caféine que j'ai trouvé sur ce site. J'ai fait ce type de recherche car elle est facilement utilisable par n'importe qui. Celle-ci me crée une liste.

Pourquoi je ne veux pas que le formulaire ouvert soir modifiable? Une fois un formulaire rempli par un technicien, je ne veux pas qu'un autre puisse s'amuser à changer des informations (comme le tps passé à réparer une machine par exemple).

[yeahyeah]

Salut,

Pour le formulaire modifiable ou non, tu veux un formulaire de consultation pour les agents et un te permettant de faire des modifs de données pour d'autres personnes ?

Il suffit de jouer sur les propriétés de données du Formulaire :
modif autorisées
supp autorisées
ajout autorisés

J'y ai pensé. Mais je ne sais pas si c'est possible. Je ne sais pas comment faire pour ouvrir le formulaire en consultation (modif interdite après entrée initiale)

[Heureux-oli]

Code :

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

Me.AllowEdit = False

[yeahyeah]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Private Sub listResult_DblClick(Cancel As Integer)
 
   Dim stDocName As String
    Dim stLinkCriteria As String
 
    stDocName = "Maintenance"
    DoCmd.OpenForm stDocName, , , stLinkCriteria
 
    DoCmd.GoToRecord stDocName, , first, "[ID] = " & Me.Listresult
 
   Me.AllowEdits = False

Je n'arrive pas aller au formulaire correspondant à mon double click.
Et je peux toujours modifier le formulaire.

[jean-paul lepetit]

Ton Me.AllowEdits bloque les modifs sur le formulaire appelant

Il faut que tu mettes à la place

Code :

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

Forms!Maintenance.AllowEdits=False

[yeahyeah]

[QUOTE

Me.Listresult.RowSource = SQL
Me.Listresult.Requery

[/QUOTE]

Dans la fonction qui permet de générer la liste.

[Heureux-oli]

Il y a quelques petits problème sur la forme et le fond.

Code :

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

Dim stLinkCriteria As String

Pas de valeur attribuée

C'est là que tu dois mettre

"[ID] = " & Me.Listresult

le Docmd.gotorecord n'est pas utile.

[yeahyeah]

Le "Forms!Maintenance.AllowEdits=False" fonctionne.

Cependant, je ne comprends pas où tu me dis de mette ""[ID] = " & Me.Listresult ".

merci

[yeahyeah]

Il m'amène automatiquement à la première entrée et non celle sur laquelle j'ai cliqué

[jean-paul lepetit]

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub listResult_DblClick(Cancel As Integer)
 
   Dim stDocName As String
    Dim stLinkCriteria As String
 
    stDocName = "Maintenance"
    stLinkCriteria ="[ID] = " & Me.Listresult
    DoCmd.OpenForm stDocName, , , stLinkCriteria
 
    Forms!Maintenance.AllowEdits=False

[yeahyeah]

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub listResult_DblClick(Cancel As Integer)
 
   Dim stDocName As String
    Dim stLinkCriteria As String
 
    stDocName = "Maintenance"
    stLinkCriteria ="[ID] = " & Me.Listresult
    DoCmd.OpenForm stDocName, , , stLinkCriteria
 
    Forms!Maintenance.AllowEdits=False

Quand je fais ça, j'arrive à un formulaire vierge que je peux remplir et enregistrer.

[yeahyeah]

En tout cas ça fait plaisir de voir des gens qui s'y connaissent et qui n'hésitent pas à aider.

[yeahyeah]

Il doit y avoir un problème avec stLinkCriteria ="[ID] = " & Me.Listresult.

Quand je ne le met pas, j'arrive à la première entrée.
Quand je le met, j'arrive à un formulaire vierge.

[Heureux-oli]

Ton Id, c'est un nombre ou un texte ?

[yeahyeah]

ID est un nombre qui s'incrémente automatiquement à chaque nouvelle entrée.

[Heureux-oli]

Essaie de mettre des " de chaque coté, ou alors tu supprimes ton stLinkCriteria et tu mets directement sa valeur

Code :

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

DoCmd.OpenForm stDocName, , , "[ID] = " & Me.Listresult

[yeahyeah]

Il y a déjà des " : "[ID] = " & Me.Listresult

Tester en mettant le numéro directement n'est pas bête du tout. Quand je remplace "[ID] = " & Me.Listresult directement par un nombre (DoCmd.OpenForm stDocName, acNormal, , 17), le programme m'amène encore automatiquement à le première entrée.

Le pb ne vient donc pas de "[ID] = " & Me.Listresult