Avatar billede knudj Nybegynder
31. januar 2005 - 20:45 Der er 9 kommentarer og
1 løsning

'Me.AllowAdditions = False' efter oprettelse af ny post

Hej..
Jeg har i en formular sat egenskab "TilladTilføjelser" til "Nej", da jeg ikke vil have at man vha. navigationsknapperne skal kunne oprette en ny post.
JEg har så i stedet i min formular tilføjet en kommandoknap til "Opret ny post" handlingen, og i dennes VBA kode har jeg skrevet "Me.AllowAdditions = True" for nu at tillade at kunne oprette en ny post. Det er nu bare sådan at jeg skal have "Me.AllowAdditions = False" sat på igen så snart den nye post er oprettet, men dette kan jeg ikke få til at fungere. JEg har prøvet at lægge følgende kode ind under AfterUpdate eventen:

Private Sub Form_AfterUpdate(Cancel As Integer)

    If Me.NewRecord = False Then
        Me.AllowAdditions = False
    End If

End Sub

Hvad er det jeg gør galt?

Mvh.
Knud
Avatar billede terry Ekspert
31. januar 2005 - 21:01 #1
If Me.NewRecord = Then
        Me.AllowAdditions = False
    End If
Avatar billede terry Ekspert
31. januar 2005 - 21:02 #2
If Me.NewRecord Then
        Me.AllowAdditions = False
    End If
Avatar billede terry Ekspert
31. januar 2005 - 21:23 #3
After checking this Me.NewRecord is True in the before update event an dfals ein the after update event.

I think the easies is just to set it to false no matter what (without test Me.newrecord)

Me.AllowAdditions = False
Avatar billede knudj Nybegynder
31. januar 2005 - 21:29 #4
Men hvis jeg hele tiden har Me.AllowAdditions = False, så kan jeg jo ikke oprette en ny post. Og hvis jeg blot skriver Me.AllowAdditions = False i AfterUpdate, så skal jeg trykke to gange på min 'Opret ny post' knap før at jeg egentlig kommer til at oprette en ny. OG der kommer samtidigt med en meddelelse op som jeg har sat på hvis der mangler at blive udfyldt nogle felter.
31. januar 2005 - 21:40 #5
koden på knappen:

docmd.runcommand accmdsaverecord
Me.Allowadditions = true
docmd.Gotorecord,,acnewrec


På Form_AfterInsert:

Me.Allowadditions = False
Avatar billede terry Ekspert
01. februar 2005 - 09:00 #6
knudj>You said that you have a button which sets me.alloweditions to true. If this is correct then you will be able to add a record after pressing the button and then as soon as the record is written to the database you will NOT be allowed to add any more new records until you press the button again.

If this assumption is incorrect then can you explain what you want.'

This code works, I added the button with the button wizard and add me.alloweditions


Private Sub Command6_Click()
On Error GoTo Err_Command6_Click

    Me.AllowAdditions = True
   
    DoCmd.GoToRecord , , acNewRec

Exit_Command6_Click:
    Exit Sub

Err_Command6_Click:
    MsgBox Err.Description
    Resume Exit_Command6_Click
   
End Sub

Private Sub Form_AfterUpdate()
Me.AllowAdditions = False

End Sub
Avatar billede knudj Nybegynder
01. februar 2005 - 19:15 #7
Hej igen..
Har lige prøvet de forskellige muligheder af.
Det er tilsyneladende kun thomasjepsen's forslag som virker som det skal.

Terry > Den mulighed du skriver er også den jeg selv startede med at bruge, men den giver et problem fordi den sætter sig op imod noget andet kode. Lige helt præcist hvad, er jeg ikke sikker på, men hvis jeg bruger den metode du skriver, så skal jeg trykke to gange på min 'ny post' knap. Og første gang jeg trykker kommer der en meddelse op der siger "Du kan ikke gå til den angivne post!" en meddelse access har liggende som standard tror jeg.

Men det virker i hvert fald indtil videre med thomasjepsen's forslag. Jeg kører lige lidt test på det, og hvis det forsættet med at køre lige så godt, så må jeg jo hellere smide nogle point afsted :D

mvh.
Knud
Avatar billede terry Ekspert
01. februar 2005 - 19:24 #8
You get this error "Du kan ikke gå til den angivne post" BECAUSE Me.allowAdditions is set to false! If it is set to True BEFORE running the code to add a new record then you should not get this. And this also explains why you need to press the buttion twice!

But if Thomas's code works then thats what you should use :o)
Avatar billede knudj Nybegynder
01. februar 2005 - 19:32 #9
Jeg tænkte nok det var noget lignende.
Men det virker som det skal nu.

Mange tak for hjælpen begge af jer :D
01. februar 2005 - 19:33 #10
godt, at du fik det løst!

Og tak for point :o)
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