Password på redigering af tabeller

Tommas :-)

Det der svitsborg er det en formular

jeps!

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

Det skal stå ved indgang.

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

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.

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

Du kan også bare ligge dem på knappen Ved klik

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.

Det virker perfekt. Lige en lille ting! Kan jeg lave en fejlmeddelse så debug vinduet ikke kommer?

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

Debug vindet kommer ikke ved min kode.

:-) Mange tak for hjælpen !

Debug kom kun hvis det var forkert kode!

Kikker på det, har brugt koden mange gange uden problemer.

Der er ingen problemer! Det var kun da jeg ikke havde meddelses boks på at debug vinduet kom. Nu er der ingen fejl :-)

>> t-hviid
Jeg må beklage, koden virker perfekt, men jeg lavede en test db, vil du havde den.

Ok, ellers bare skriv igen.  ;o)

Ikke nødvendig det kører uden fejl nu :-)