Avatar billede t-hviid Nybegynder
04. november 2003 - 11:05 Der er 19 kommentarer og
1 løsning

Password på redigering af tabeller

Jeg er ved at lave et swichboard og vil gerne på knappen redigere tabeller have password på så alle ikke kan gå ind i dette.
Hvordan gør man det?

/Tomms
Avatar billede t-hviid Nybegynder
04. november 2003 - 11:06 #1
Tommas :-)
Avatar billede henrik13 Nybegynder
04. november 2003 - 11:10 #2
Det der svitsborg er det en formular
Avatar billede t-hviid Nybegynder
04. november 2003 - 11:12 #3
jeps!
Avatar billede henrik13 Nybegynder
04. november 2003 - 11:12 #4
Dim intSvar As Integer
     
    intSvar = InputBox("Password er 1234", "Indtast et tal")
   
    Select Case intSvar
   
        Case Is = 1111
            Gem din tabel
              Case Else
            Me.Undo
    End Select
Avatar billede henrik13 Nybegynder
04. november 2003 - 11:13 #5
Det skal stå ved indgang.
Avatar billede henrik13 Nybegynder
04. november 2003 - 11:17 #6
Dim intSvar As Integer
     
    intSvar = InputBox("Password er 1234", "Indtast et tal")
   
    Select Case intSvar
   
        Case Is = 1111

  DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
            Case Else
            Me.Undo
    End Select
Du kan også altid lave passwordet om.
Mvh Henrik13
Avatar billede t-hviid Nybegynder
04. november 2003 - 11:18 #7
Er det på knappen du mener eller hvad? Når der klikkes på knappen redigere kommer man til en ny formular der har knapper til de tabeller der kan redigeres.
Avatar billede henrik13 Nybegynder
04. november 2003 - 11:19 #8
Rettelse:
Dim intSvar As Integer
     
    intSvar = InputBox("Password er 1234", "Indtast et tal")
   
    Select Case intSvar
   
        Case Is = 1234

  DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
            Case Else
            Me.Undo
    End Select
De to passwordet skulle jo gerne være ens.
Mvh Henrik13
Avatar billede henrik13 Nybegynder
04. november 2003 - 11:20 #9
Du kan også bare ligge dem på knappen Ved klik
Avatar billede henrik13 Nybegynder
04. november 2003 - 11:24 #10
Er det for ikke at lave fejlrettelse eller er det for at skjule muglighedderne for andre, er det det, skal du fjerne nummeret i intsvar.
Avatar billede t-hviid Nybegynder
04. november 2003 - 11:35 #11
Det virker perfekt. Lige en lille ting! Kan jeg lave en fejlmeddelse så debug vinduet ikke kommer?
Avatar billede henrik13 Nybegynder
04. november 2003 - 11:39 #12
Dim intSvar As Integer
     
    intSvar = InputBox("Password er 1234", "Indtast et tal")
   
    Select Case intSvar
   
        Case Is = 1234

Msgbox "Password godkent, og posterne er nu retted"
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
            Case Else
Msgbox "Posterne er ikke ændret"
            Me.Undo
    End Select
De to passwordet skulle jo gerne være ens.
Mvh Henrik13
Avatar billede henrik13 Nybegynder
04. november 2003 - 11:40 #13
Debug vindet kommer ikke ved min kode.
Avatar billede t-hviid Nybegynder
04. november 2003 - 11:42 #14
:-) Mange tak for hjælpen !
Avatar billede t-hviid Nybegynder
04. november 2003 - 12:09 #15
Debug kom kun hvis det var forkert kode!
Avatar billede henrik13 Nybegynder
04. november 2003 - 12:11 #16
Kikker på det, har brugt koden mange gange uden problemer.
Avatar billede t-hviid Nybegynder
04. november 2003 - 12:18 #17
Der er ingen problemer! Det var kun da jeg ikke havde meddelses boks på at debug vinduet kom. Nu er der ingen fejl :-)
Avatar billede henrik13 Nybegynder
04. november 2003 - 12:19 #18
>> t-hviid
Jeg må beklage, koden virker perfekt, men jeg lavede en test db, vil du havde den.
Avatar billede henrik13 Nybegynder
04. november 2003 - 12:22 #19
Ok, ellers bare skriv igen.  ;o)
Avatar billede t-hviid Nybegynder
04. november 2003 - 12:22 #20
Ikke nødvendig det kører uden fejl nu :-)
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Dyk ned i databasernes verden på et af vores praksisnære Access-kurser

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester