On error resume next - virker ikke

Flyt din:

On Error Resume Next

- op før at du udføre din SQL.

Det har ingen betydning hvor On Error Resume Next står. Det har vel ikke noget at gør med hvilken version af access jeg bruger?

Det har helt bestemt en betydning hvor on-error står henne. Derimod burde versionen af din database derimod ikke betyde noget.

Det jeg mener med det er at uanset hvor on error står henne så virker det ikke.

Fjern .Number efter din Err:

If Err <> 0 Then
    oplys = "<b>Du har skrevet et puljenavn som allerede eksistere - du må skrive et nyt - benyt tilbageknappen.</b><br>"
end if

Fejlen er der stadig...den reagere stadig ikke på on error. Koden er nu:

SQL1 = "INSERT INTO PULJE (puljeNavn,puljeEjer,puljebeskriv,pulje_aaben) VALUES ('" & puljenavn & "','" & rs("ejernavn") & "','" & puljebeskriv & "','" & puljejanej & "')"
On Error Resume Next
set rs1 = conn.Execute(SQL1)

If Err <> 0 then
    oplys = "<b>Du har skrevet et puljenavn som allerede eksistere - du må skrive et nyt - benyt tilbageknappen.</b><br>"
end if

Fejlen er denne:
Microsoft JET Database Engine (0x80004005)
De ønskede ændringer af tabellen blev ikke gennemført, fordi de ville give dublerede værdier i indekset, den primære nøgle eller relationen. Rediger dataene i det eller de felter, der indeholder dublerede data, fjern indekset, eller omdefiner indekset, så dublerede indtastninger tillades, og forsøg igen.

Er du sikker på at der er noget i rs("ejernavn"), som du bruger til at opbygge dit SQL-statement med?

Yeps...jeg får et ejernavn hvis jeg opretter en pulje med andet puljenavn som ikke er i databasen.

er spørgsmålet ikke snarer om der er et "puljenavn" ? , for det er vel det som skal give fejlen

Mystikken breder sig. Nu ser koden i hvert fald rigtig ud. :^|

Jeg ville nok råde dig til at gøre det på den rigtige måde; Tjek først om der ville være tale om en dublet og reager på en passende måde hvis det er tilfældet. Det er ikke særligt pænt at basere sin kode på at der bliver smidt en fejl.

jeg synes det ser rigtig nok ud...så jeg ville nok tro at der ikke sker en fejl, men ok er måske tjekket i hoved og "bib" allerede ;o)
Men ellers så udskriv din sql sætning og sikre dig om den er ok eller ej

Hvad med sådan her ?

SQL1 = "INSERT INTO PULJE (puljeNavn,puljeEjer,puljebeskriv,pulje_aaben) VALUES ('" & puljenavn & "','" & rs("ejernavn") & "','" & puljebeskriv & "','" & puljejanej & "')"
On Error Resume Next
set rs1 = conn.Execute(SQL1)

If Err Then
    oplys = "<b>Du har skrevet et puljenavn som allerede eksistere - du må skrive et nyt - benyt tilbageknappen.</b><br>"
end if

Jeg har nu fået den til at virke...jeg havde kludret lidt i en variabel...sengen kalder vist.
Takker for hjælpen...svar lige så point kan blive omdelt.

Svar :^)

Ingen point til mig...