Bekræft string inden sletning i AccessBD 2000

et eksempel fra en af mine db\'er


Private Sub slet_Click()
On Error GoTo Err_slet_Click
Dim kon As String
If Me.Køn = \"dreng\" Then
kon = (\"Hans\")
ElseIf Me.Køn = \"pige\" Then
kon = (\"Hendes\")
Else
kon = \"\"
End If
Dim msg, style, title, response
msg = \" Er du sikker på at du vil slette \" & Forms!redigersvoemmer!Fornavn & \" \" & Forms!redigersvoemmer!Efternavn & \" ?\" & vbNewLine & \"\" & vbNewLine & \"Alle \" & kon & \" data slettes !!!\"
style = vbQuestion + vbYesNo + vbCritical
title = \"                                  Slette bruger\"
response = MsgBox(msg, style, title)

If response = vbYes Then


    DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
    DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
Else
End If
Exit_slet_Click:
    Exit Sub

Err_slet_Click:
MsgBox Error$
      Exit Sub

hvis min bruger er ved at slette et medlem kommer der en msgbox og spørger om brugeren er sikker på at medlemmet skal slettes.

skulle være et svar

Wooooe  Det kan jeg ikke gennemskue. Det kan være du kan se hvad der skal gøre når jeg har koder der ser sådan her ud:

(Et valg om sletning fra en tidliger side sendes til disse koder på en ny side)

<%If Request.QueryString <> \"\" Then
hvilken = Request.QueryString(\"ID\")
Dim objRecSlet
Set objRecSlet = Server.CreateObject (\"ADODB.Recordset\")
objRecSlet.Open \"DELETE FROM viebe where OrderID=\" & hvilken, Session(\"vie\")
Set objRecSlet = Nothing
End If%>

Er det muligt at sætte din msgBox ind her et sted?

vh Skjold??:)

*LOL* det er jo ASP... :-)

Well, så er du i den forkerte kategori... (du skal over i ASP - Active Server Pages)


:-)

//Rune

hehe  OK  lol :)

Dette skulle være muligt:

<%If Request.QueryString <> \"\" Then
hvilken = Request.QueryString(\"ID\")
Dim objRecSlet
Set objRecSlet = Server.CreateObject (\"ADODB.Recordset\")
Dim msg, style, title, response
msg = \"Meddelelse til bruger\"
style = vbQuestion + vbYesNo + vbCritical
title = \"Titel på meddelelsesboks\"
response = MsgBox(msg, style, title)
If response = vbYes Then
objRecSlet.Open \"DELETE FROM viebe where OrderID=\" & hvilken, Session(\"vie\")
Set objRecSlet = Nothing
else
end if
End If%>

prøver....

det skal jo nok liiiige tilpasses ASP som jeg ikke aner squad about

Svaret for mig blev at lave en confirm botton, hvori asp er indflettet i ja og nej knapperne, ikke asp med indflettet java.

vh skjold