Generering af stregkode

Kan du ikke bruge noget fra dengang jeg lavede løbende skadenr per dato:

Private Sub nytskadenr_Click()
   
Dim db As Database, rst1 As Recordset
Dim Qrylbnr As QueryDef
Set db = CurrentDb()
Set Qrylbnr = db.QueryDefs("qry-dagenmaxlbnr")
Set rst1 = Qrylbnr.OpenRecordset()
    'opret en ny post
    DoCmd.GoToRecord , , acNewRec
    ' hent nyt skadenr
        Me.skadenr = Format$(Now(), "yymmdd") & "-" & Format$(Val(NullTilNul(rst1!lbnr)) + 1, "000")
    'gem posten
    DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
    'luk ned igen
    rst1.close
    db.close  'henrik
    Me.LkUpSkadenr.Requery
End Sub

qry-dagenmaxlbnr:

SELECT Max(Right([skadenr],3)) AS lbnr
FROM T02
WHERE (((Left([skadenr],6))=Format(Now(),"yymmdd")));

Der er i princippet det samme du skal igennem.
Udskift dato med EAN '5705524'
Henrik

hmm..måske.. men det kan jeg ikke lige finde ud af..

Jo du skal tage tallet ud af EAN - kontrolnummer. Noget i retning af dette:

SELECT Max(Midt([EANnr],7,12)) AS lbnr
FROM Tabeleannr
WHERE (Left([EANnr],7)="5705524"); ' altså hvis du har flere startnumre

.....
Me.EANNR= "5705524"& Format$(Val(NullTilNul(rst1!lbnr)) + 1, "000000000000")

Ups pas lige på at vi skal have sat kontrolnr i enden

har du fået det til at funke. Havde noget funktionelt kørende inden lukketid.

Har selv lavet en løsning. Tak for indsatsen...

Ok - men jeg syntes lige du skal have min løsning:

forespørgsel trækker det sidste nr frem:

SELECT Max(Mid([EANnr],8,12)) AS lbnr
FROM tblprodukt
WHERE (((Left([EANnr],7))="5705524"));

En knap på en formular danner det næste EAN nr i rækken ved en klikfunktion:

Private Sub NytEANnr_Click()
Dim db As dao.Database, rst1 As dao.Recordset
Dim Qrylbnr As dao.QueryDef, StregNr As String
Set db = CurrentDb()
Set Qrylbnr = db.QueryDefs("QRYMaxLbnr")
Set rst1 = Qrylbnr.OpenRecordset()
    'opret en ny post
    DoCmd.GoToRecord , , acNewRec
    ' hent nyt skadenr
        StregNr = Format$(Val(NullTilNul(rst1!lbnr)) + 1, "000000000000")
        Me.EANNR = "5705524" & strEAN(StregNr)
    'gem posten
    DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
    'luk ned igen
    rst1.Close
    db.Close  'henrik
   
End Sub
Function NullTilNul(xEnhverVærdi As Variant) As Variant
' Parametre:    en værdi af typen Variant
' Formål:      Konverterer Null-værdien til nul.
' Returnerer:  Nul eller en værdi, der ikke er Null
' Reference:    Henrik Nielsen

    If IsNull(xEnhverVærdi) Then
        NullTilNul = 0
    Else
        NullTilNul = xEnhverVærdi
    End If


End Function

Hav en god dag

tak..

Takker selv - der var lige en udfordring, der skulle afprøves.
Det kunne jo være, at man engang fik brug for sligt stregkode.
Så magler vi lige noget, der kan lave stregkoden.