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

Flere spørgsmål fra Access kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
DoCmd.OpenForm som ikke PopUp Af per2edb i Access	2	11/04/202411:02	11/04/202411:34
ilter hvor recorden ikke eksisterer Af per2edb i Access	6	05/04/202414:15	06/04/202418:49
Kan ikke sætte bredde på boks i detajlesektion ( baseret på værdi fra felt på formular ) Af martens i Access	2	03/04/202423:18	05/04/202405:59
Fejl 3053 Af per2edb i Access	1	20/03/202409:26	20/03/202410:40
Tilgang til form Af per2edb i Access	6	13/03/202412:07	20/03/202409:11

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