Tilføje en sletteforespørgsel til en kommandoknap?

Til inspiration :

Private Sub Sletknap_Click()
Dim msg, Style, Title, Ctxt, Response
Dim strSQL As String
Dim db As DAO.Database

    Set db = CurrentDb()

    msg = "Du har aktiveret Slettefunktionen. Vil du fortsætte ?"
    Style = vbYesNo + vbCritical + vbDefaultButton2    ' Define buttons.
    Title = "Slet Data"    ' Define title.
    Ctxt = 1000    ' Define topic
    Response = MsgBox(msg, Style, , Title, Ctxt)
   
    If Response = vbYes Then    ' User chose Yes.
   
    strSQL = "DELETE *.* FROM tblData"
       
        db.Execute strSQL
   
   
    Else
   
    MsgBox ("Du har valgt at afbryde Slettefunktionen.")
   
    End If

End Sub

Du kan bare vælge en anden forespørgsel, og efterfølgende selv gå ind og rette koden for knappens VedKlik-hændelse. Det skulle virke og er da rimeligt enkelt.

Kodeord kan f.eks. laves i knappens VedKlik-hændelse:

If InputBox("Indtast kodeord", "AUTHORIZED PERSONNEL ONLY!") = "kontrolkodeordnr12345" Then
    DoCmd.OpenQuery "NavnPåSletteforespørgsel"
End If

Okay, jeg har lidt problemer med at ændre den on click event procedure så den passer til min database.. Min databaserapport hedder bare "database" og min tabel hedder også "database". Når jeg klikker på knappen sker der intet.

hvad svarer din "DAO.Database" til? Jeg får compile error på denne.

Når jeg sletter "Dim strSQL As String, Dim db As DAO.Database" når jeg ned til FROM sætningen hvor jeg får en fejl. Skal navnet på min tabel stå her?

I VBA editoren skal du vælge menuen Tools/References og her skal du så sætte et flueben i "Microsoft DAO 3.6 Object Library" (der kan stå et andet nummer end 3.6). Så skulle det virke.

Okay, det er fint nu. Problemet er bare at nu slettede den hele min tabel??

Var det ikke det, der var hensigten?

Nej, jeg ville kunne slette en enkelt titel. Sådan noget med et vindue der siger "Slet titel", og så skriver man en titel og så bliver den slettet..

Kan man ikke laven en msgbox efter "If Response = vbYes Then"?

Øjeblik, så kommer der en lille udvikling af mit oprindelige forslag.

Erstat hele dit program med nedenstående:

Private Sub Sletknap_Click()
Dim strSletTitel As String
Dim strSQL As String
Dim db As DAO.Database

Set db = CurrentDb()

If InputBox("Indtast kodeord", "AUTHORIZED PERSONNEL ONLY!") = "kodeord" Then
    strSletTitel = InputBox("Titel, der skal slettes", "SLET titel")
    If strSletTitel <> "" Then
        strSQL = "DELETE *.* FROM tblData WHERE Titel='" & strSletTitel & "';"
        db.Execute strSQL
    End If
End If

End Sub

Tusind tak, det virker perfekt nu. 60 point til dig.

Det var så lidt. :0)

Giv også lidt til jensen363 - Han kom trods alt med lidt inspiration til opgavens løsning.

Hehe, ja ok.

Kan man ikke lave adgangskoden så den viser ***** i stedet for teksten?? Hehe.

Det er ulempen ved at bruge InputBox funktionen. Hvis du vil undgå at vise passwordet, er du nødt til at lave en formular til formålet.

Det går nok. Tak for hjælpen.

Alternativt kan du jo bare lave kodeordet lidt "flydende":

"KinaKode" & WeekDay(Now()) & Format(Time, "h")

Her bliver kodeordet Kinakode efterfulgt (uden mellemrum) af ugedagens nummer (søndag er 1) og efterfulgt (uden mellemrum) af den aktulle klokketime. Lige nu vil koden altså blive KinaKode523. Selvfølgelig kan den "knækkes", men det er ikke helt ligetil. Nu har du fået en ide, så kan det jo være at du er mere kreativ end jeg.  :0)

Giv bare sjap alle poínt ... det er ok med mig c",)

Marcus1911 > Skulle du ikke se at få lukket det her spørgsmål?