× Aidez la recherche contre le COVID-19 avec votre ordi ! Rejoignez l'équipe PC Astuces Folding@home
 > Tous les forums > Forum Bureautique
 Recherche sur formulaire en readonly
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
jlpdep
  Posté le 04/09/2008 @ 07:26 
Aller en bas de la page 
Petit astucien
Bonjour à tous,

J'ai un formulaire que j'ai ouvert en ReadOnly parceque je ne veux pas que les gens changent les données mais ma liste déroulante pour réaliser une recherche/sélection n'est pas accessible. Comment puis-je faire ?

Merci pour vos conseils......
Publicité
stimorol
 Posté le 05/09/2008 à 19:10 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucienne

Une piste ...Mais les explications en anglais...Founies par un MS Access MVP sur Usenet

Source : http://www.tech-archive.net/


> I have a form that I use for order entry and from my frmmain I can
> open the form in edit mode (with a password) or read-only mode.
>
> The code that I use to open the form in read only mode is as
> follows:3
>
> Private Sub Command9_Click()
> DoCmd.OpenForm FormName:="frmOrders", DataMode:=acFormReadOnly ',
> WindowMode:=acDialog
> End Sub
>
> The issue that I am having is that one of my controls on my form is a
> cbolookup that I have set up to search my frmoders, but with the
> above code, it is read only and therefore I cannot search.
>
> Does anyone have any suggestions?


Unfortunately, when a form is read-only, even the unbound controls on it
are read-only. Instead of opening it read-only, you may want to pass an
argument via OpenArgs to tell it that it should be "Read-Only". Then
let code in the form's Open event detect this argument and set all bound
controls to Locked=Yes.


--
Dirk Goldgar, MS Access MVP
www.datagnostics.com

Hi Dirk,

Thanks for the info, I have copied the code into where it belongs in my db.
for the "Public Function fncLockUnlock" code, what do I name the module and
how and where do I call the module from?

Thanks,

Brook

"Dirk Goldgar" wrote:

> "Brook" <Brook@xxxxxxxxxxxxxxxxxxxxxxxxx> wrote in message
> news:563DBFA3-1E7E-4407-8ACB-E3C7F4F6CADD@xxxxxxxxxxxxx
> > Dirk,
> >
> > Thanks for the post.
> >
> > I have never used OpenArgs before? I have over 30 controls on my
> > form, would I have to add each of them as locked or unlocked?

>
> If you want to lock/unlock all bound controls on the form, you can use
> code like this:
>
> '----- start of code -----
> Public Function fncLockUnlockControls(frm As Form, LockIt As Boolean)
>
> ' Lock or unlock all data-bound controls on form <frm>,
> ' depending on the value of <LockIt>: True = lock; False = unlock.

>
> On Error GoTo Err_fncLockUnlockControls
>
> Const conERR_NO_PROPERTY = 438
>
> Dim ctl As Control
>
> For Each ctl In frm.Controls
>
> With ctl
> If Left(.ControlSource & "=", 1) <> "=" Then
> .Locked = LockIt
> End If
> End With
> Skip_Control: ' come here from error if no .ControlSource property
> Next ctl
>
> Exit_fncLockUnlockControls:
> Exit Function
>
> Err_fncLockUnlockControls:
> If Err.Number = conERR_NO_PROPERTY Then
> Resume Skip_Control
> Else
> MsgBox "Error " & Err.Number & ": " & Err.Description
> Resume Exit_fncLockUnlockControls
> End If
>
> End Function
> '----- end of code -----
>
> That function would be saved in a standard module.
>
> Then you'd have code in the form's Open event like this:

>
> '----- start of code for Open event -----
> Private Sub Form_Open(Cancel As Integer)
>
> Dim strArgs As String
>
> strArgs = Me.OpenArgs & vbNullString
>
> If strArgs = "ReadOnly" Then
> fncLockUnlockControls Me, True
> End If
>
> End Sub
> '----- end of code for Open event -----
>
> And in the code where you open the form, you'd write something like
>
> DoCmd.OpenForm "YourFormName", OpenArgs:="ReadOnly"

>
>
> --
> Dirk Goldgar, MS Access MVP
> www.datagnostics.com

Page : [1] 
Page 1 sur 1

Vous devez être connecté pour poster des messages. Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !


Les bons plans du moment PC Astuces

Tous les Bons Plans
9,99 €Adaptateur Bluetooth USB TP-Link UB400 à 9,99 €
Valable jusqu'au 20 Octobre

Amazon fait une promotion sur l'adaptateur Bluetooth USB TP-Link UB400 qui passe à 9,99 €. Cet adaptateur à brancher sur un port USB va vous permettre d'ajouter le bluetooth à votre ordinateur et d'utiliser ensuite sans fil vos périphériques bluetooth : souris, clavier, casque, manette, téléphone, ...


> Voir l'offre
99,99 €Ecran Lenovo 24 pouces D24-20 (Full HD, VA, 75 Hz, FreeSync) à 99,99 €
Valable jusqu'au 21 Octobre

Fnac propose actuellement l'écran 24 pouces Lenovo D24-20 à 99,99 € alors qu'on le trouve ailleurs à plus de 129 €. Cet écran dispose d'une dalle Full HD (1920x1080) à bords fins, avec un temps de réponse de 5 ms et un rafraichissement de 75 Hz. Il possède des entrées VGA et HDMI. Il est compatible Freesync.  


> Voir l'offre
39,90 €Pack de démarrage Lego Super Mario 71360 - Les Aventures de Mario à 39,90 €
Valable jusqu'au 20 Octobre

Amazon fait une promotion sur le pack de démarrage Lego Super Mario 71360 - Les Aventures de Mario qui passe à 39,90 € livré gratuitement alors qu'on le trouve habituellement à partir de 49,99 €.  Le set inclut un personnage LEGO Mario™ qui réagit instantanément et montre ses émotions en utilisant des écrans LCD et un haut-parleur. Les joueurs collectent des pièces virtuelles en faisant évoluer LEGO Mario du tuyau de départ au poteau d’arrivée ; pour cela, il doit passer de plateformes tourbillonnantes en plateformes nuages, sauter sur le bloc ? et affronter le Goomba et Bowser Jr. dans de formidables combats. Les briques peuvent être réorganisées pour créer de nouveaux niveaux à maîtriser ! Une application LEGO Super Mario gratuite compatible avec ce jouet rend l’expérience encore plus complète. Elle dispose de fonctions de zoom et de rotation pour faciliter la construction, suggère d’autres façons créatives de construire et de jouer et propose un forum sécurisé pour partager des idées avec ses amis.


> Voir l'offre

Sujets relatifs
liste déroulante de recherche dans un formulaire
Formulaire de recherche - vba
Formulaire - recherche d'un champ sur sélection li
Recherche à telecharger Custom UI Editor
Recherche écrans 14 ou 15 pouces
recherche la ligne et passe a la suivante
[formulaire+liste déroulante+bouton+requête]
[Image dans formulaire ACCESS 2010]
recherche v
Comment supprimer recherche Laoscript au démarrage Excel ?
Plus de sujets relatifs à Recherche sur formulaire en readonly
 > Tous les forums > Forum Bureautique