28. juli 2006 - 11:18
Der er
9 kommentarer og 1 løsning
blokere knap
Hej, OBS! Jeg har ikke lavet koden selv! Nedenstående giver og blokerer adgang till add, delete osv i en form. Er det muligt at også blokere adgang til en knapp? Endnu bedre!!!! Er det muligt at blokere adgang til en form, så at den slet ikke kan åbnes? Select Case rs!Permission Case 0 'Nothing F.AllowAdditions = False F.AllowDeletions = False F.AllowEdits = False F.CommandEnabled = False Case 2 'Add F.AllowAdditions = True F.AllowDeletions = False F.AllowEdits = False F.CommandEnabled = False Case 4 'Delete F.AllowAdditions = False F.AllowDeletions = True F.AllowEdits = False F.CommandEnabled = False Case 6 'Add+Delete F.AllowAdditions = True F.AllowDeletions = True F.AllowEdits = False F.CommandEnabled = False Case 8 'Edit F.AllowAdditions = False F.AllowDeletions = False F.AllowEdits = True F.CommandEnabled = False Case 10 'Edit+Add F.AllowAdditions = True F.AllowDeletions = False F.AllowEdits = True F.CommandEnabled = False Case 12 'Edit+Delete F.AllowAdditions = False F.AllowDeletions = True F.AllowEdits = True F.CommandEnabled = False Case 14 'Everything F.AllowAdditions = True F.AllowDeletions = True F.AllowEdits = True F.CommandEnabled = True End Select
Annonceindlæg tema
Offentlig digitalisering
Fra effektivisering til digital suverænitet. Hvordan skaber det offentlige en digital fremtid med AI, sikkerhed og kontrol i centrum?
Slettet bruger
28. juli 2006 - 11:21
#1
Private Sub Command1_Click() Me.Knap.Enabled = False End Sub
Funktionaliteten brugerstyring, giver mulighed for individuel adgangsbegrænsning både til formularer og rapporter
Oki! Tak men hvordan bager jeg den ind i koden ovenfor! Den skal jo väre brugerafhängig Feks Nothing = Knapp inaktiv Add+Delete = Knapp aktiv Bedre: Ved du en måde at blokere en hel formel?
Det ser ud som om jensen363 er inde på noget der :-)
Jeg mener Thomas Jepsen har en artikel liggende herinde, som beskriver dette ret uddybende
Slettet bruger
28. juli 2006 - 12:18
#7
Case 0 'Nothing F.AllowAdditions = False F.AllowDeletions = False F.AllowEdits = False F.CommandEnabled = False Form_NavnPåFormular.NavnPåKnap.Enabled = False Case 6 'Add+Delete F.AllowAdditions = True F.AllowDeletions = True F.AllowEdits = False F.CommandEnabled = False Form_NavnPåFormular.NavnPåKnap.Enabled = True
Slettet bruger
28. juli 2006 - 12:19
#8
F er jo nok en variabel for formularen, så du kan sikkert bruge: F.NavnPåKnap.Enableb osv...
Det ser ud til at virke - tak! :-)
Slettet bruger
28. juli 2006 - 13:18
#10
!~)
Dyk ned i databasernes verden på et af vores praksisnære Access-kurser