CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg

Log ind eller opret profil

Du kan også logge ind via nedenstående tjenester

meiland Mester

19. januar 2018 - 14:10 Der er 5 kommentarer og
1 løsning

Vis største løbenummer i formular

Hej eksperter !!

Jeg sidder med en db som skal bruges til at styre tegningsnummerering.
Tegningsnummeret består i princippet af 2 dele - et sagsnummer XXXXXX og et fortløbende løbenummer YYY, altså XXXXXXYYY
Men sagsnummeret stykkes sammen af 3 grupper - aabbcc.
For enhver kombination af sagsnummeret starter løbenummeret ved 001
Jeg kunne godt tænke mig af jeg i formularen "Opret nyt tegn-nr" fik vist det største løbenummer, der er brugt, med det sagsnummer jeg har "valgt" ?

Jeg har en ide om at jeg skal bruge nogle felter - tegnnr, sagsnummer og løbenummer.
Er der nogle som har gode forslag til hvordan jeg kommer videre?

Synes godt om

terry Ekspert

19. januar 2018 - 14:27 #1

You can use the dmax function to do this

https://www.techonthenet.com/access/functions/domain/dmax.php

Synes godt om

fdata Forsker

19. januar 2018 - 19:48 #2

Du får lige en bid kode at lege med ;O)

Sub Test_Find_Største_Løbenummer()
Debug.Print Find_Største_Løbenummer("aabbcc")
End Sub

Function Find_Største_Løbenummer(Sagsnummer As String) As String
Dim Lbnr As Variant

Lbnr = DMax("Løbenummer", "Tabel3", "Left(Løbenummer,6)='" & Sagsnummer & "'")
If IsNull(Lbnr) Then
Find_Største_Løbenummer = "???"
Else
Find_Største_Løbenummer = Right(Lbnr, 3)
End If
End Function

Synes godt om

meiland Mester

23. januar 2018 - 23:17 #3

Hej.
Tak for jeres kommentarer.

Jeg har prøvet at få tilpasset en dmax til min db, men jeg er ikke kommet i mål.
Den fejler på dmax, og jeg tror, at det er den sidste parameter, der driller mig

Jeg har vedhæftet et link til databasen
https://www.dropbox.com/s/raqxvsnv7ztcndn/Tegningsdb.accdb?dl=0

Synes godt om

terry Ekspert

24. januar 2018 - 10:24 #4

Løbenummer is a text value so you need to put it in''

findværdi = "Sags_Id= '" & Me.sags_ID & "'"

Alos, I'm guessing that you need to add 1 to the current max value and as that is also text you need to format it as text after adding 1

Format(lmax + 1, "000")

Synes godt om

meiland Mester

24. januar 2018 - 20:01 #5

Hej Terry.

Tak for hjælpen - så lykkedes det.

og også tak til dig fdata.

Synes godt om

terry Ekspert

25. januar 2018 - 10:13 #6

selv tak ;-)

Synes godt om

Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Følg dette spørgsmål

Opret Preview

Access kurser

Dyk ned i databasernes verden på et af vores praksisnære Access-kurser

Se alle Access kurser

Flere spørgsmål fra Access kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
query calculated field ? Af fimo i Access	5	03/09/202409:23	03/09/202411:08
Fjernadgang til Access app Af per2edb i Access	5	29/08/202408:21	29/08/202415:07
Filter der lister tomme felter Af per2edb i Access	3	26/08/202421:52	27/08/202415:20
Undgå skærm Filcker Af per2edb i Access	9	21/08/202415:14	22/08/202410:57
Usynlige tabeller, forespørgsler mm i Access Af sigyn i Access	4	18/07/202407:29	18/07/202410:32

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS