Kategori: VBA-kod

När datumsträngar ska användas i accessprogram är det många gånger viktigt att rätt formatsträng användas. Speciellt om programmet ska användas i olika länder. Då kan man inte använda ”svenska” formatering: Format(dat, "yyyy-mm-dd")
Istället kan man använda nedanstående funktion för att ta reda på vilken formatsträng som ska användas, anropet ser då ut så här: Format(dat, datumFmt())

OBS! Med hjälp av denna funktion kommer datum automatiskt få samma datumformat som datorn använder för datum. Om programmet används på en dator med finska inställningar kommer datumen visas med finska formatet 31.11.2019 istället för 2019-11-31

' Ruturnerar en formatsträng
' som tex kan användas till funktionen Format()
' Exempel på svar:
' 1) "yyyy-mm-dd" om svenskt  datumformat används
' 2) "d.m.yyyy"   om finskt   datumformat används
' 3) "dd-mm-yyyy" om spanskt  datumformat används
' 4) "m/d/yyyy"   om USAs     datumformat används
' 5) "dd/mm/yyyy" om Engelskt datumformat används

Function datumFmt()
    Dim Dat$, ch$, fmt$
    Dat = CStr(DateSerial(2012, 1, 9))
    If InStr(Dat, "-") Then ch = "-": Dat = Replace(Dat, "-", "-")
    If InStr(Dat, ".") Then ch = ".": Dat = Replace(Dat, ".", "-")
    If InStr(Dat, "/") Then ch = "/": Dat = Replace(Dat, "/", "-")
    Select Case Dat
        Case "2012-01-09": fmt = "yyyy-mm-dd"   ' Sverige,Polen
        Case "2012-09-01": fmt = "yyyy-dd-mm"   '
        Case "2012-1-9":   fmt = "yyyy-m-d"   '
        Case "2012-9-1":   fmt = "yyyy-d-m"   '
        Case "09-01-2012": fmt = "dd-mm-yyyy"   ' Spanien
        Case "01-09-2012": fmt = "mm-dd-yyyy"   ' Österrike
        Case "9-1-2012":   fmt = "d-m-yyyy"      ' Finland
        Case "1-9-2012":   fmt = "m-d-yyyy"      ' Usa
        Case Else: MsgBox "Okänt datumformat.": Stop
    End Select
    datumFmt = Replace(fmt, "-", ch)
End Function

Hej !

Söker med ljus och lykta efter en lösning på mitt bekymmer men inte hittat något.

Jag behöver skapa en numrering av posterna i en fråga (skulle även kunna vara en tabell). Det vore inga problem om det bara skulle vara en enkel stigande numrering, det löses med en räknare.

Mitt önskemål är att numreringen ska börja om för varje nytt värde i ett av fälten.

T ex:
Kundgrupp – Kund – Num:
X — A — 1
X — B — 2
X — C — 3
Y — D — 1
Y — E — 2
Z — F — 1
Z — G — 2
Z — H — 3

Så i fältet ”Num” vill jag få in en funktion som skapar en ny numrering för varje förändring i ”Kundgrupp”

Finns det någon SQL kod som kan skapa en sådan alternativt någon annan funktion?

Mvh // Håkan

Ibland vill man ha veta sökvägarna till bl.a Mina dokumnet (My Documents) och till programmappen. Sökvägarna skiljer sig ju mellan olika användare och olika operativsystem. Här är lite kod för det.

Accesskod till Mina dokument:

Function sMyDocumentsPath()
    Const MY_DOCUMENTS = &H5&
    Dim objShell
    Dim objFolder
    Dim objFolderItem
    Set objShell = CreateObject(”Shell.Application”)
    Set objFolder = objShell.Namespace(MY_DOCUMENTS)
    Set objFolderItem = objFolder.Self
    'My Documents path
    sMyDocumentsPath = objFolderItem.path
End Function

Accesskod till programmappen:

Function sProgramPath()
    Const PROGRAM_FILES = &H26&
    Dim objShell
    Dim objFolder
    Dim objFolderItem
    Set objShell = CreateObject("Shell.Application")
    Set objFolder = objShell.Namespace(PROGRAM_FILES)
    Set objFolderItem = objFolder.Self
    sProgramPath = objFolderItem.path
End Function