Dansk Access Forum : Generere unik id v. hj�lp af tesktstreng

Generere unik id v. hj�lp af tesktstreng : Simsalabim skrev:Felterne "Selskab"...

Thu, 04 Sep 2014 22:19:05 +0000

Forfatter: hkh
Emne: 45
Sendt: 04-Sep-2014 kl. 22:19

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.

Generere unik id v. hj�lp af tesktstreng : PS. jeg bruger Access 2007allan...

Thu, 04 Sep 2014 20:35:05 +0000

Forfatter: Simsalabim
Emne: 45
Sendt: 04-Sep-2014 kl. 20:35

PS. jeg bruger Access 2007

allan s

Generere unik id v. hj�lp af tesktstreng : Kære alleJeg er ny bruger her...

Thu, 04 Sep 2014 20:25:54 +0000

Forfatter: Simsalabim
Emne: 45
Sendt: 04-Sep-2014 kl. 20:25

K�re alle

Jeg er ny bruger her og besk�ftigede mig for ca. 20 �r siden en del med access vers. 2.0 . Desv�rre har jeg ikke rigtig holdt min viden opdateret, da jeg fik anden besk�ftigelse og derfor ikke havde brug for at arbejde med databaser.

Nu st�r jeg imidlertid med en opgave, hvor jeg skal bruge en databasel�sning og er selvf�lgelig straks l�bet ind i en masse problemer idet MS selvf�lgelig ogs� har forandret Access til noget n�sten ukendeligt, ligesom de har gjort med stort set alle de �vrige programmer. S� jeg kan desv�rre ikke rigtig bruge ret meget af min tidligere erhvervede viden til noget udover selve forst�elsen af opbygningen af databaser.

Jeg skal genere en unik v�rdi til en post i forbindelse med at den indtastes, ved at sammenl�gge flere felter. Jeg har oprettet en autonummerering, som skal sammenl�gges med 2 andre felter "Selskab" og Afdeling" for at skabe en unik v�rdi i feltet "Unikn�gle"der er nem identificerbar.

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 mener at have styr p� tekststrenge fra excel, men jeg kan knagme ikke huske, hvordan jeg f�r selve h�ndelsen til at foreg�, h�ber der er nogen der kan hj�lpe mig.

P� forh�nd tak

allan s