15. januar 2014 - 14:07Der er
10 kommentarer og 1 løsning
Sletning af poster via indtastningsformular
Bruger access 2010
Har en database hvor der på en indtastningsformular er en knap hvor den aktuelle post kan slettes. Når sidste post er slettet, og der igen bliver trykket på knappen "Slet post" kommer der en fejlmeddelelse vedr. makroen som sletter poster. Hvordan laves en makro som blot meddeler at der ikke er flere poster som kan slettes? Håber lige nogen kan hjælpe !
Øhhh, på min indtastningsformular har jeg en knap "Slet post" koden der tilhører knappen er ikke lavet i VBA, men der er brugt et par af access's færdige makroer, ved i designvisning og højreklikke på knappen og så vælge "generer hændelsesprocedure", makroen som er brugt hedder blot "slet post", men det giver et problem når der klikkes på knappen efter sidste post er slettet. Jeg ville gerne have at der kom en meddelelseboks som gav besked om at der ikke var flere poster og slette.
Private Sub DinKnap_Click() If Me.NewRecord Then Call MsgBox("Du kan ikke slette denne post", vbOKOnly, "Slet") Else If MsgBox("Vil du slette posten?", vbQuestion + vbYesNo, "Slet") = vbNo Then Exit Sub DoCmd.SetWarnings False DoCmd.RunCommand acCmdSelectRecord DoCmd.RunCommand acCmdDeleteRecord DoCmd.SetWarnings True End If End Sub
fdata Tusind tak for dit forslag, det var lige det jeg manglede, jeg har lagt koden i VBA under mine indtastningsformularer, har kun rettet lidt på meddelelsesteksterne. Alt fungerer nu tilfredsstillende på alle formularerne. Tak for hjælpen Point er dine.
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.