Undgå dubletter ved kopi af post

Why copy if you dont want the same values?
Make a NEW record and enter a new journalnummer

journalnummer sættes til autonummerere. Så er der altid nyt nummer.
VH Henrik

WHY COPY when you WANT a NEW???????????

where do you get a journalnummer from in the first place?

Journalnummer sættes til autonummerere. Så er der altid nyt nummer.
Du kan i din vba kode ved kopi også, alt efter antal poster, + 1000
VH Henrik

Terry> Tabellen indholder en lang række andre felter, som indeholder oplysninger der med fordel kan kopieres (breve, notater m.v.) , for derefter at rette i kopien. Derved sparer man gentagne indtastninger af data.

Henrik13> Tabellen filtreres, så kun dataene for en enkelt sag vises. Journalnummeret skal være fortløbende for hver sag. Derfor kan jeg ikke sætte det til autonummerering, da nummeret så ikke vil vise hvor mange journalposter der er i den enkelte sag, men hvor mange der er i hele tabellen.

IF you have to copy+paste thenI cant see anyway arround it, thats the price you have to pay :o(
If on the other hand you did it in a form then things could be different!
You could MARK (select) a record in the detail and then press a button which took all the fields from your marked record and then asked for a new journalnummer an dthen INSERTED the new record into the table!

BUT thats a bit more tricky!

Terry> Ja det er noget af det jeg er ude efter! Jeg bruger en formular, og jeg har knappen der kopierer. Jeg skal bare have det sidste med:

Jeg skal have den til at kopiere en post, bede om et nyt journalnummer, og så indsætte kopien.

Jeg ville dog helst hvis den selv kunne finde det næste ledige journalnummer inden for den angivne sag, og sætte dette ind (så man var fri for at bede om det).

This is the idea


Dim SQL as String
Dim strInput As String, strMsg As String

    strMsg = "Enter new number."
    strInput = InputBox(Prompt:=strMsg, Title:="Number", XPos:=2000, YPos:=2000

SQL = "INSERT INTO YourTable (Fld1, fld2) VALUES( 1, '"
SQL = SQL & strInput & "')"

Docmd.setwarnings false
Docmd.runsql SQL
Docmd.setwarnings True

how do you find the next number?

!

Tabellen indeholder data fra mange forskellige sager. Posterne filtreres i formularen så kun den valgte sags poster vises. Det næste nummer skal være det næste nummer indenfor den filtrering af poster der vises i formularen. Jeg prøver din sql i morgen.

Det virkede. Tak for hjælpen (endnu en gang)!

selv tak :o)