Thema Datum  Von Nutzer Rating
Antwort
Rot Überlauf VBA
19.07.2022 11:14:02 Jonas Stelter
NotSolved
19.07.2022 11:23:42 Gast26956
NotSolved
19.07.2022 12:49:49 Gast70766
NotSolved
19.07.2022 14:03:38 Gast65764
NotSolved
19.07.2022 14:18:57 Jonas
NotSolved
19.07.2022 14:30:33 Gast93372
NotSolved

Ansicht des Beitrags:
Von:
Jonas Stelter
Datum:
19.07.2022 11:14:02
Views:
123
Rating: Antwort:
  Ja
Thema:
Überlauf VBA

Ich habe ein VBA Script was bei jeden Dokument eine neue fortlaufen Nummer generieren soll.

Nur plötzlich kommt immer ein Überlauffehler den ich mir nicht erklären kann

Der Fehler wird hier beim debuggin gemeldet:

             If oRechnungen.GetSelValCount() > 0 Then
             oRechnungen.ReadSelVals (0)

Eine Idee was das sein kann?

 

Sub Reserve_and_Set_RechNr(ByVal control As IRibbonControl)
    Dim oRechnungen As cPodio_Interface
    Dim oBestellung As cPodio_Interface
    Dim filters As Scripting.Dictionary
    Dim NextRechNr As Long
    
    Set oRechnungen = New cPodio_Interface
    oRechnungen.ClientID = Office_client_id
    oRechnungen.ClientSecret = Office_client_secret
    oRechnungen.AppID = Rechnungen_app_id
    oRechnungen.AppToken = Rechnungen_app_token
    '
    'Rechnungen
    'Felder die verfügbar sein sollen
    Set oRechnungen.SelCols = New Collection
    oRechnungen.SelCols.Add ("rechnungsnummer")
    oRechnungen.SelCols.Add ("kunde")
    oRechnungen.SelCols.Add ("holding")
    oRechnungen.SelCols.Add ("rechnungsdatum")
    oRechnungen.SelCols.Add ("bestellnummer")
    'Verbinden mit Rechnungen App
    If oRechnungen.OAuthAppAuthorization() = True Then
        'höchste Rechnungsnummer ermitteln
        Set filters = New Scripting.Dictionary
        'filters.Add "rechnungsnummer", "200106"
        If oRechnungen.Filter("rechnungsnummer", True, 1, filters) Then
             If oRechnungen.GetSelValCount() > 0 Then
             oRechnungen.ReadSelVals (0)
'                 Debug.Print "rechnungsnummer = " & oRechnungen.SelVals("rechnungsnummer")
               NextRechNr = CLng(oRechnungen.SelVals("rechnungsnummer")) + 1
                Debug.Print "Nächste Rechnungsnummer ist " & CStr(NextRechNr)
             End If
 '       End If
    Else
        oRechnungen.DeleteAppToken
        MsgBox ("Anmeldung fehlgeschlagen")
    End If

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Überlauf VBA
19.07.2022 11:14:02 Jonas Stelter
NotSolved
19.07.2022 11:23:42 Gast26956
NotSolved
19.07.2022 12:49:49 Gast70766
NotSolved
19.07.2022 14:03:38 Gast65764
NotSolved
19.07.2022 14:18:57 Jonas
NotSolved
19.07.2022 14:30:33 Gast93372
NotSolved