Kontrol af, om data er tilstede i Access database..

Prøv med Dmax, den skal kunne finde den næste

DMax(Expr, Domain, Criteria)

vInput = Dmax("[FakturaNr]","Belob")+1

Hej kabbak tak for svaret.

Har prøvet, men kan ikke lige se hvor den skal stå i min kode, any hints?

På for hånd tak.

linjen

vInput = Dmax("[FakturaNr]","Belob")+1

skal erstatte

'Do Until bTal = True
        'vInput = InputBox("Angiv fakturanummer: (skal være unikt)")
'      Her skal der checkes i database om fakturanummer allerede findes.

        'If IsNumeric(vInput) Then bTal = True
     
'Loop

du kan bare udkommenterer dem mens du tester

Hej igen Kabbak :-)

1000 tak for at du gider hjælpe, det gør mig glad at nogen gider.
Har prøvet ovennævnte, men den skriver :

Sub or function not defined

og Dmax er indfarvet.

Tror du har gættet at jeg er en newbie ;-)

kan du sende et kopi af databasen og regnearket, så kan jeg teste.

kabbak snapela vip dot cybercity dot dk

Ja, sender med det samme...

Hej Kabbak.
Fik du min mail?

Nej der er intet kommet ;-((

Ok, prøver igen :-)

koden rettet til

ub Makro1()
' Makro1 Makro
' Udskriver og laver '.PDF fil, samt skriver i database "fakturaer.mdb"

Dim vInput
' Dim bTal As Boolean
' Eksporterer aktivt regneark til database
'
Dim cn As ADODB.Connection, rs As ADODB.Recordset, r As Long
'
    ' forbinder til Access database
    Set cn = New ADODB.Connection
    cn.Open "Provider=Microsoft.Jet.OLEDB.4.0; " & _
        "Data Source=C:\faktura\fakturaer.mdb;"
' Denne er placeringen af databasefilen
    ' åbner recordset
    Set rs = New ADODB.Recordset

    On Error GoTo ErrorHandle:


'
' Apostrof skal fjernes, før den skriver ud på printer.
'    ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"
' Denne laver en PDF fil af aktivt regneark
'
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\faktura\" _
      + vInput + ".pdf", Quality:=xlQualityStandard _
        , IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        False
' Åbner databse og skriver værdierne fra aktivt regneark.
'
        rs.Open "Belob", cn, adOpenKeyset, adLockOptimistic, adCmdTable
    ' alle records i tabellen
        With rs
            .AddNew
' opretter ny record
' Tilføjer værdierne i hvert enkelt record.
            .Fields("Dato") = Range("C16").Value
            .Fields("FakturaNr") = Range("L16").Value
            .Fields("ExMoms") = Range("L57").Value
            .Fields("Moms") = Range("L58").Value
            .Fields("Total") = Range("L59").Value
            .Fields("Typ") = Range("A18").Value
            .Update ' Gemmer den nye record.
        End With
    rs.Close
    Set rs = Nothing
    cn.Close
    Set cn = Nothing
    Exit Sub
'
ErrorHandle:
    MsgBox Err.Description & " Procedure BedOmEtTal"
End Sub



Public Sub Hent_Faktura_Nr()
Dim vInput
' Eksporterer aktivt regneark til database
'
Dim cn As ADODB.Connection, rs As ADODB.Recordset, r As Long
'
    ' forbinder til Access database
    Set cn = New ADODB.Connection
    cn.Open "Provider=Microsoft.Jet.OLEDB.4.0; " & _
        "Data Source=C:\faktura\fakturaer.mdb;"
' Denne er placeringen af databasefilen
    ' åbner recordset
    Set rs = New ADODB.Recordset
        vInput = DMax("[FakturaNr]", "Belob") + 1
    'skriver fakturanummer i celle L16
    Range("L16").Value = vInput
      Set rs = Nothing
    cn.Close
    Set cn = Nothing
End Sub

det var ikke den rigtige, den er her

Sub Gem_Faktura()
' Makro1 Makro
' Udskriver og laver '.PDF fil, samt skriver i database "fakturaer.mdb"

    Dim vInput
    ' Dim bTal As Boolean
    ' Eksporterer aktivt regneark til database
    '
    Dim cn As ADODB.Connection, rs As ADODB.Recordset, r As Long
    '
    ' forbinder til Access database
    Set cn = New ADODB.Connection
    cn.Open "Provider=Microsoft.Jet.OLEDB.4.0; " & _
            "Data Source=C:\faktura\fakturaer.mdb;"
    ' Denne er placeringen af databasefilen
    ' åbner recordset
    Set rs = New ADODB.Recordset

    On Error GoTo ErrorHandle:


    '
    ' Apostrof skal fjernes, før den skriver ud på printer.
    '    ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"
    ' Denne laver en PDF fil af aktivt regneark
    '
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\faktura\" _
                                                            + vInput + ".pdf", Quality:=xlQualityStandard _
                                  , IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
                                    False
    ' Åbner databse og skriver værdierne fra aktivt regneark.
    '
    rs.Open "Belob", cn, adOpenKeyset, adLockOptimistic, adCmdTable
    ' alle records i tabellen
    With rs
        .AddNew
        ' opretter ny record
        ' Tilføjer værdierne i hvert enkelt record.
        .Fields("Dato") = Range("C16").Value
        .Fields("FakturaNr") = Range("L16").Value
        .Fields("ExMoms") = Range("L57").Value
        .Fields("Moms") = Range("L58").Value
        .Fields("Total") = Range("L59").Value
        .Fields("Typ") = Range("A18").Value
        .Update    ' Gemmer den nye record.
    End With
    rs.Close
    Set rs = Nothing
    cn.Close
    Set cn = Nothing


    ' her kan du bede om det næste faktura nr, ved at skrive
    Call Hent_Faktura_Nr
    ' så er den klar til næste gang
    'du burde også lave en kode der tømmer faktura arket, så det er klar til en ny.

    Exit Sub
    '
ErrorHandle:
    MsgBox Err.Description & " Procedure BedOmEtTal"

End Sub



Public Sub Hent_Faktura_Nr()
    Dim vInput
    ' Eksporterer aktivt regneark til database
    '
    Dim cn As ADODB.Connection, rs As ADODB.Recordset, r As Long
    '
    ' forbinder til Access database
    Set cn = New ADODB.Connection
    cn.Open "Provider=Microsoft.Jet.OLEDB.4.0; " & _
            "Data Source=C:\faktura\fakturaer.mdb;"
    ' Denne er placeringen af databasefilen
    ' åbner recordset
    Set rs = New ADODB.Recordset
    vInput = DMax("[FakturaNr]", "Belob") + 1
    'skriver fakturanummer i celle L16
    Range("L16").Value = vInput
    Set rs = Nothing
    cn.Close
    Set cn = Nothing
End Sub