Kære alle

Simsalabim skrev: Felterne "Selskab" og afdeling er tekstfelter og autonummer er tal. Det færdige resultat skulle gerne se ud om dette: 01-78-245 (selskab-afdeling-autonummer). værdien skal automatisk lægges over i feltet "uniknøgle" når feltet Afdeling opdateres (hændelsen "efter opdatering").

Jeg ved ikke om jeg har forstået dig korrekt, men hvis det drejer sig om at få samlet felterne i et nyt felt med den viste formatering, kunne det gøres sådan.

Function Opret_Unik_Key()
if nz(me!selskab)<> "" then
   msgbox "Selskab er ikke oplyst!"
   me!selskab.setfocus
   exit sub
end if

if nz(me!Afdeling)<> "" then
   msgbox "afdelinger ikke oplyst!"
   me!afdeling.setfocus
   exit function
end if

me!uniknøgle=right("00" & me!selskab,2) & "-" & right("00" & me!afdeling,2) & "-" & right("000" & me!autonummer,3)
end function

Først kontrolleres om selskab eller afdeling er indtastet. Hvis ikke afbrydes og focus flyttes til feltet.

uniknøgle er feltet der skal indeholde resultatet.
right("00" & selskab,2) sikrer, at der bliver foranstillet nul i selskabsnummeret, hvis det er nødvendigt.
right("00" & afdeling,2) sikrer, at der bliver foranstillet nul i afdelingsnummeret, hvis det er nødvendigt.
right("000" & autonummer,3) sikrer, at der bliver foranstillet nuller i autonummeret, hvis det er nødvendigt.

Koden kan oprettes i en function eller sub rutine
hvis der benyttes en function kan følgende benyttes i felterne selskab og afdelings efter opdatering.
=Function Opret_Unik_Key()

funktionen skal ligge i formularens kode, ellers skal formularens henvisning med i stedet for me!

Som udgangspunkt, syntes jeg det er en dårlig ide, ikke at bruge autonummer som nøglefelt, men for at gøre feltet tydeligere for brugerne kan det fungere.
I tabellen bag bør uniknøgle være indekseret og unikt, i feltets uniknøgle før opdatering kan evt. oprettes en fejlkontrol.