Discussion :

[Mada2018]

Bjr. SVP j'ai un formulaire de consultation en access et quand je choisi un identifiant, les données s’affichent, mais j'aimerai que les données restent verrouillées sains pourvoir modifier ni supprimer. Merci

[Ric500]

Bonjour,

Sur l'événement Ouverture du formulaire:

Code :

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

1
2
Me.AllowEdits=0
Me.AllowDeletions=0

PS: Pas la peine de mettre ta question entre des balises code

[Mada2018]

avec ces procédures je n'arrive pas même pas à sélectionner un identifiant, tout est verrouillé

Code :

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

1
2
 Me.AllowEdits=0, 
Me.AllowDeletions=0

. Alors-que, j'aimerai quand je sélectionne un identifiant, toute ses informations s'affichent, mais sans pouvoir les modifier ni supprimer

[Ric500]

Bonjour Mada2018,

L'usage sur ce forum est de :

1/ Dire bonjour,
2/ Essayer d'être explicite quant à la nature de son problème afin d'être aidé

Nous sommes contributeurs de ce forum d'entraide et nous n'y gagnons rien si ce n'est de faire vivre un certain esprit.

Envoie au minimum des copies d'écran et une idée du contexte de recherche dans ton formulaire.

[Mada2018]

Bjr. SVP j'ai un formulaire de consultation en access et quand je choisi un identifiant, les données s’affichent, mais j'aimerai que les données restent verrouillées sains pourvoir modifier ni supprimer. Merci

[tee_grandbois]

bonjour,
une solution:

Code :

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

DoCmd.OpenForm "NomduFormulaire", acNormal, , "Identifiant=" & Me.Identifiant , acFormReadOnly

[hyperion13]

Salut
Et pourquoi ne pas utiliser dans les propriétés du form onglet Données Modif autorisée = non ?

[Mada2018]

Code :

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

DoCmd.OpenForm "FContractuel", acNormal, , "matt=" & Me.matt, acFormReadOnly

[Ric500]

Si ton critère Matt est de type AlphaNumérique, essaie avec:

Code :

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

DoCmd.OpenForm "FContractuel", acNormal, , "matt='" & Me.matt & "'", acFormReadOnly

[Mada2018]

Bien sur c'est en Alphanumérique mais ça refuse toujours

Code :

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

DoCmd.OpenForm "FContractuel", acNormal, , "matt='" & Me.matt & "'", acFormReadOnly

[hyperion13]

Et si vous repreniez depuis le début.
- comment est construit le form ?
- comment l'id est-il sélectionné ?
- où sont les données qui se mettent à jour dans le form ?
Parce que des solutions nous pourrons en balancer à la louche sans connaitre l'essentiel !

[tee_grandbois]

Bien sur c'est en Alphanumérique mais ça refuse toujours

et peut-être y a t-il un message d'erreur ? ce serait bien qu'on sache lequel ...

[tee_grandbois]

Et pourquoi ne pas utiliser dans les propriétés du form onglet Données Modif autorisée = non ?

il y a également Type de Recordset : Instantané
que l'embarras du choix, quoi !

[Mada2018]

Bonjour. Si j’utilise dans les propriétés du form onglet Données Modif autorisée = non, la liste déroulante pour sélectionner un identifiant refuse aussi

[Ric500]

Bonjour,

Apparemment ta liste de recherche repose sur une donnée du recordset (à éviter).

Il y aurait encore une autre solution:

1/ Tu crées une procédure dans le module du formulaire qui passe la propriété "locked" à oui pour tous les contrôles du formulaire, genre:

Code :

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

1
2
3
4
5
sub Lock_me()
   ctl1.locked=-1
   ctl2.locked=-1
...
End Sub

2/ Après mise à jour de la recherche:

Code :

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

1
2
3
4
Sub Recherche_AfterUpdate
   ...Lignes concernant la recherche
   Call Lock_Me
End Sub

3/ Tu fais une Sub UnLock_Me sur le même principe (Ctl1.Locked=0...)
4/ Tu fais un Call UnLock_Me avant de compléter la saisie de ton Formulaire.


C'est très lourd comme programmation et toutes les solutions précédentes auraient été valables sur un formulaire dont la recherche aurait été mieux pensée...

Bonne journée.