Autonummerering som primær nøgle

Du vil altså kunne slette flere poster af gangen....

for each tempID in request.form("chkb")
  conn.execute("delete from DinTabel where id="& tempID)
next

Også har du en stave/skrive fejl:
<input type="checkbox" name="chkb" value="<%=rs("id")%>">

Jeg kan ikke huske om Access understøtter IN metoden, men den er mere effektiv, da der kun oprettes en forbindelse til databasen:

conn.execute("delete from DinTabel where id in ("& request.form("chkb")
&")")

jeg har gjordt det på følerne måde:

If not IsEmpty(Request.Form("chkb")) Then

strList = trim(request.form("chkb")) & ","
arrBrev = split(strList,",")

for i = 0 to ubound(arrBrev) -1
            brev=trim(arrBrev(i))

strSQL = "DELETE * FROM brev Where id= '" & brev & "'"

' SQL sætning eksekveres
Conn.Execute(strSQL)
Next
End If
' Lukker forbindelse til databasen
Conn.Close
Set Conn = Nothing       

men da typen er autonummerering, den give fejl......

Det skal ikke i ', da det er et tal, og du skal ikke have * med (nogle databaser godtager det dog, men det er ikke nødvendigt).

strSQL = "DELETE FROM brev Where id= " & brev

i er en variable til at køre gennem mit array som indeholde altså værdier af checkbox. Og jeg har sletet * fra sætningen...men det er ikke fejlen.

Datatyperne stemmer ikke overens i kriterieudtrykket - er fejlen

Det var ' (pling) jeg mente :o)
Dem skal du ikke bruge da ID (i databasen er tal). Det er kun tekst fleterne der skal have ' omkring.

strSQL = "DELETE FROM brev Where id= '" & brev & "'"
skal være:
strSQL = "DELETE FROM brev Where id= " & brev

Nå…jeg har læst alt for hurtigt :))

Tusind tak, den virker nu perfekt ….. hvordan uddeler jeg point til dig?

Det var vist også mig der ikke formulerede mig så godt :o)
Nu kan du give point.

.o) <-- One Eyed Jack

sådan... og tak en gang til :))

Du kunne også afprøve IN metoden:

Dette:
************
If not IsEmpty(Request.Form("chkb")) Then

strList = trim(request.form("chkb")) & ","
arrBrev = split(strList,",")

for i = 0 to ubound(arrBrev) -1
            brev=trim(arrBrev(i))

strSQL = "DELETE * FROM brev Where id= '" & brev & "'"

' SQL sætning eksekveres
Conn.Execute(strSQL)
Next
End If
*************

Skal så bare være:
If not IsEmpty(Request.Form("chkb")) Then
  strSQL = "DELETE FROM brev Where id IN ("& Request.Form("chkb") &")"
  Conn.Execute(strSQL)
end if

Det giver en mindre kode, der er mere effektiv :o)

Du skal lige vælge mig på listen til venstre og trykke accepter, ellers bliver point ikke tildelt....

ja, den giver en mindre kode....så vil jeg nok prøve med det :)

håber du få point nu.... jeg er ikke så vant til det, sorry :))