Neueste Beiträge

#1

Bericht / Re: Ausgangsrechnung im Format...

Letzter Beitrag von Christian72 - Oktober 27, 2026, 14:06:53

Hallo Josef, hallo Knobbi38,
 
besten Dank für eure Antworten.
Werde das Thema Anfang ´27 angehen und dann hier berichten, wie das Ergebnis war.
 
Gruß
 
Christian

#2

Bericht / Re: Ausgangsrechnung im Format...

Letzter Beitrag von Knobbi38 - Oktober 14, 2026, 14:18:31

Hallo Christian,

im Internet mit "VBA ZUGFreRD" findest du mit Sicherheit einige Lösungen, sowohl ONLINE- als auch lokale Lösungen für ACCESS; die meisten davon sind kommerzielle Lösungen. Es kommt also darauf an, was du dir vorgestellt hast und welche Kenntnisse bezüglich ACCESS vorhanden sind.

Wichtig dabei ist der angebotene Support, damit Releaseänderungen  auch zeitnah umgesetzt werden können.

Eigene Lösungen sind eventuell auch realisierbar, setzen jedoch ein hohes Maß an Fachwissen voraus und, was nicht zu vernachlässigen ist, erfordern einen gewissen Wartungsaufwand für die Software.

Knobbi38

#3

Bericht / Re: Ausgangsrechnung im Format...

Letzter Beitrag von Josef P. - Oktober 14, 2026, 12:33:32

Hallo!

Die Frage ist, wie man das in Access hin bekommt.

Es gibt für Access mittlerweile fertige Bibliotheken - zumindest für XRechnung.
Einige davon wurden auf der AEK (z. B. heuer auf der AEK 28) vorgestellt (siehe www.donkarl.com).

Der Trend scheint Richtung XRechung zu gehen. (Ich gebe nur die Info weiter, wie ich sie in der AEK hörte/interpretierte. Ich selbst beschäftige mich damit nicht.)

LG
Josef

#4

Bericht / Ausgangsrechnung im Format "ZU...

Letzter Beitrag von Christian72 - Oktober 14, 2026, 12:11:28

Guten Tag,

habe Access im Einsatz mit folgender Version:
Microsoft® Access® LTSC MSO (Version 2408 Build 16.0.17932.20252) 64 Bit
 
Diese benutze ich unter anderem dazu, Kundenrechnungen zu erzeugen.
Dazu gibt es einen Bericht, aus dem eine PDF-Datei erzeugt wird.
Die erzeugten PDF-Dateien haben folgende Version: 1.7 (Acrobat 8.x)
Habe diese Version nicht aktiv ausgewählt (Wüsste auch nicht, wie das geht.).
 
Die Rechnungserzeugung klappt einwandfrei.
 
In absehbarer Zeit, ist man als Unternehmen ja verpflichtet, Ausgangsrechnungen in elektronischer Form auszustellen. Dazu gibt es unter anderem die folgenden Formate:
- ZUGFeRD
- XRechnungen
 
Habe mich für "ZUGFeRD" entschieden.
Die Frage ist, wie man das in Access hin bekommt.

Vielen Dank vorab!
 
Christian

[Codex]

#5

Access-Hilfe / Re: Claude und Access: MCP-Ser...

Letzter Beitrag von Josef P. - Oktober 14, 2026, 08:58:05

Update:

Mittlerweile testet ich auch Codex und GitHub CoPilot. (Beide testete ich über deren VS Code Integration.)

Codex
Log: Sie dürfen in diesem Board keine Dateianhänge sehen.
Ergebnis: Sie dürfen in diesem Board keine Dateianhänge sehen.
Ich musste an einer Stelle nacharbeiten: die Filter-Ausdrücke wurden nicht für DAO eingestellt. Es wurde % statt * wurde für like verwendet, weil der SQL-Dialekt nicht eingestellt wurde. (Claude erkannte das selbst.)
Anm.: Abweichende Namen von den anderen Tests hab ich verursacht, da ich vergaß, das im Chat vorzugeben. (gelernt: so etwas muss in die AGENTS.md rein)

CoPilot
Log: Sie dürfen in diesem Board keine Dateianhänge sehen.
Ergebnis: Sie dürfen in diesem Board keine Dateianhänge sehen.
Ich musste eine Formulareigenschaft (AllowEdit) nacharbeiten, die war auf False eingestellt.
Die Filter-Ausdrücke wurden für DAO eingestellt. CoPilot erkannte das wie Claude von selbst.


Zusammengefasst
Alle drei liefern brauchbare Ergebnisse.
Mit Claude war für mich das gestalten (gefühlt) übersichtlicher.

Der Code ist bei allen 3 ok.
Der Code von Claude gefällt mir etwas besser, da auch Konstanten verwendet wurden. Damit sieht man z. B. beeits oben im Codemodul die Select-Anweisung.
Das Filter-Framework setzten alle 3 ordentlich um Die fehlende Dialekt-Auswahl bei Codex sehe ich nicht so kritisch. So etwas lässt sich über die Projektkonfiguration (Agents.md im Projektordner) gut vermeiden.

Bezüglich Feature-Erkennung des Filter-Frameworks sind Claude und CoPilot etwas vor Codex: die ersten 2 erkannten die Möglichkeit, dass nach Eingabe eines Filterwertes in einem Steuerelement die Filterung ausgelöst werden kann. Codex erstellte dafür einen extra Button (nur nach Klick auf den Button wird gefiltert).
CoPilot fragte nach, welche Variante ich möchte - zur Auswahl kam "Button Click" oder "Direkt während Eingabe" .. hier gab ich indirekt den Hinweis für das Framework, da ich mit "Nach der Eingabe eines Filterwertes (AfterUpdate), nicht nach jedem Zeichen beim Tippen" antwortete.

Review
Hier ist das Review von Claude zur Arbeit von CoPilot:

Review: CoPilotTest.accdb
Vorher habe ich den Quelltext neu exportiert (Fast Save).

Umfang: 2 Tabellen (tKunden mit 10 Datensätzen, tLieferanten mit 8 Datensätzen), 4 Formulare, 8 ACLib-Module. Abfragen und Berichte gibt es keine.

🔴 Hoch
Ereignisprozeduren enthalten Logik (fKunde.cls, fLieferant.cls). Das widerspricht eurer Vorgabe.

Form_BeforeUpdate prüft selbst die Eingaben. Besser wäre z. B. Cancel = Not IsRecordValid().
cmdLoeschen_Click enthält den ganzen Löschablauf. Besser DeleteCurrentRecord bzw. DiscardNewRecord.
cmdNeu_Click und cmdSchliessen_Click sind grenzwertig, sollten aber ebenfalls nur eine sprechend benannte Prozedur aufrufen (GoToNewRecord, SaveAndClose).
fKundenliste.cls hält die Regel dagegen sauber ein.

🟠 Mittel
Die Kundenliste ist nicht sortiert. UpdateKundenliste setzt SELECT * FROM tKunden WHERE ... ohne ORDER BY, die Reihenfolge ist also zufällig. Empfehlung: ORDER BY Nachname, Firma oder ORDER BY Kundennummer.

SELECT * in der Liste. Die Liste zeigt nur 5 Felder, lädt aber alle, auch das Memofeld Bemerkung. Besser die Felder ausdrücklich angeben (KundeID, Kundennummer, Firma, Nachname, Ort, Aktiv).

🟡 Niedrig / Hinweise
Die Bedingung 1=0 steht an drei Stellen: in der RecordSource von fKundenlisteDatensaetze, in UpdateKundenliste und in ResetKundenFilter. Eine Konstante wie Private Const NO_RECORDS_CRITERIA As String = "1=0" würde das vereinfachen.

Funktionale Lücke: Aus der Liste kann man keinen Kunden öffnen. Ein Doppelklick, der fKunde mit KundeID öffnet, liegt nahe.

Nach dem Löschen springt Me.Requery in fKunde und fLieferant zum ersten Datensatz. Für den Benutzer wäre es angenehmer, auf dem nächsten Datensatz zu landen.

Einige ACLib-Module verwenden Option Compare Database statt Text. Das ist Fremdcode und sollte nicht angepasst werden. Ich würde es als bewusste Ausnahme stehen lassen.

Positiv:

Der Filter wird über ACLib FilterControlManager/SqlTools gebaut, es gibt kein selbst zusammengesetztes SQL.
Datumsformat ist ISO, Boolean-Werte sind korrekt formatiert.
Beim Start werden wirklich keine Datensätze geladen.
SaveRecord reicht Fehler sauber weiter, mit gesicherten Fehlerinfos und Err.Raise, ohne MsgBox.
ErstelltAm hat den Standardwert Now(), Aktiv den Standardwert True.
Die Referenzen sind minimal (DAO, stdole).

#6

Access-Hilfe / Re: Claude und Access: MCP-Ser...

Letzter Beitrag von Josef P. - Oktober 13, 2026, 14:53:19

   

Claude greift auf GitHub zu.
Dafür hab ich mit Claude einen Katalog und Rezepte eingerichtet, damit nicht jedes Codemodule durchgelesen werden muss.

Die Information darüber läuft über einen Skill.

LG
Josef

#7

Smalltalk / Re: Probleme mit dem Forum

Letzter Beitrag von PhilS - Oktober 13, 2026, 12:56:18

das Problem mit dem 503er tritt bei mir in den letzten Tagen wieder gehäuft auf.

Irgendwelche Erkenntnisse oder ist das nur bei mir so?

Wir hatten vom 08.10. bis 12.10. tausende Fehlermeldungen im Log, die aus meiner Sicher daher kommen, dass anonyme User versuchen irgendwelche unsinnigen Aktionen durchzuführen. - Vermutlich Bots, die versuchen neue Accounts zu erstellen und/oder anderweitig irgendwelchen Müll/Spam auf die Webseite zu bringen.
Das triggert dann wiederum Resource-Limits bei unserem Provider, die sich auf der Webseite dann als 503 Server Errors bemerkbar machen können.

Alles unschön. Gegenmaßnahme erscheinen erstmal aufwändig und/oder teuer.
Ich werde, sobald ich Zeit dafür finde, das Forum auf die neuste Version der Foren-Software zu aktualisieren und hoffe, dass damit die Problem wenigstens etwas entschärft werden.

#8

Access-Hilfe / Re: Claude und Access: MCP-Ser...

Letzter Beitrag von PhilS - Oktober 13, 2026, 12:47:51

und dafür meine wiederverwendbaren Codemodule der Access CodeLib nutzen.

Hast du Claude vorher oder auf anderem Weg weitergehende Informationen zur Access CodeLib gegeben?

Oder ist Claude der Grund dass jetzt auf https://access-codelib.net/ ein "508 - Resource Limit Is Reached"-Error angezeigt wird? ;-)

[Test-Szenario]

#9

Access-Hilfe / Claude und Access: MCP-Server ...

Letzter Beitrag von Josef P. - Oktober 13, 2026, 10:29:08

Hallo!

Wie jedes Jahr gab es Vorträge auf der AEK, die zum Ausprobieren anregten.
Und da ich immer etwas länger mit der Bahn fahren darf, war auch die Zeit dafür verfügbar, MCP-Server besser kennen zu lernen.

Test-Szenario
Claude code soll ein Formular zum Anzeigen und Filtern von Kunden erstellen und dafür meine wiederverwendbaren Codemodule der Access CodeLib nutzen.

Ziel
Ich wollte wissen, wie der erzeugte Code aussehen wird. (Bin ein Freund von Clean Code.)

Vorarbeit
Tabelle und Bearbeitungsformular in Test-Datenbank bereitgestellt (auch von Claude Code erstellt, aber ohne spezielle MCP-Server und Skills. (Anhang: Sie dürfen in diesem Board keine Dateianhänge sehen.)
MCP-Server eingerichtet (https://github.com/unmateria/MCP-Access und https://github.com/joyfullservice/msaccess-vcs-mcp)
Eigenen MCP-Server und Skill für den Zugriff auf meine Code-Bibliothek erstellt (auch mit Claude).

Arbeit mit Claude Code
Einstieg mit einer (abgsichtlich) sehr unpräzisen Anweisung:

Erstelle eine Formular zum Anzeigen in Listenform und Filtern der Kunden

[...]
Claude:

Ich habe mir die Ausgangslage angesehen:

  - tKunden: KundeID, Kundennummer, Firma, Anrede, Titel, Vorname, Nachname,
    Strasse, PLZ, Ort, Land, Telefon, Mobil, Email, UID, Bemerkung, Aktiv,
    ErstelltAm, GeaendertAm
  - fKunde: Einzelformular zum Bearbeiten, mit Speichern/Neu/Löschen/Schließen
  - Es gibt noch keine Standardmodule, also auch keine ACLib-Module, und nur die
    Referenz auf DAO.

  Plan: fKundenListe

  Layout (als Endlosformular, Datenquelle tKunden, nur lesend:
  AllowEdits/Additions/Deletions = Nein)
  - Formularkopf, Filterbereich:
    - txtFilterSuche: Suche über Kundennummer, Firma, Nachname, Vorname
      (Teiltreffer)
    - txtFilterPLZ und txtFilterOrt
    - cboFilterLand: Werteliste aus den vorhandenen Ländern
    - cboFilterAktiv: Alle / Aktiv / Inaktiv (Standard: Aktiv)
    - cmdFilterAnwenden, cmdFilterZuruecksetzen, lblAnzahl (Anzahl der Treffer)
  - Spaltenköpfe im Kopf, Detailbereich: Kundennummer, Firma, Nachname, Vorname,
    PLZ, Ort, Land, Telefon, Email, Aktiv
  - Buttons: cmdNeu öffnet fKunde mit einem neuen Datensatz, cmdOeffnen und ein
    Doppelklick auf eine Zeile öffnen fKunde mit dem gewählten Kunden (KundeID =
    ...)
  - Wenn fKunde geschlossen wird, aktualisiere ich die Liste (Requery) und
    behalte dabei die aktuelle Position.

  Umsetzung
  1. Formular und Steuerelemente mit dem MCP-Server access anlegen, dann
    access_close und vcs_export_object
  2. Code in forms/fKundenListe.cls schreiben, dann vcs_import_object,
    vcs_compile_vba, Log prüfen und vcs_export_object
  3. Ein Screenshot zur Kontrolle

[...]
... ich trenne lieber die Datenanzeige und die Steuerung in Hauptformular und Unterformular auf =>

jetzt hätte ich noch gerne diesen Aufbau: ein ungebundens Hauptformular mit 
  den Filter-Feldern im Formularkopf und im Detailbereich ein Endlosformular   
  mit den angzeigten Datensätzen. Beim Starten des Hauptformulars sollen keine 
  Datensätze angezeigt (und natürlich auch nicht geladen) werden 

Claude:

Gut, dann baue ich das Ganze als Hauptformular mit Unterformular auf.

  Aufbau

  Hauptformular fKundenSuche (ungebunden)
  - Kopfbereich: die Filterfelder txtFilterSuche, txtFilterPLZ, txtFilterOrt,
    cboFilterLand und cboFilterAktiv, die Buttons cmdFilterZuruecksetzen, cmdNeu
    und cmdOeffnen sowie lblAnzahl für die Trefferanzahl.
  - Detailbereich: das Unterformular-Steuerelement sfrKundenListe, ohne
    Verknüpfungsfelder.
  - Code-Behind: hält WithEvents FilterManager As FilterControlManager und
    registriert in Form_Load die Filter-Steuerelemente. Im Event
    FilterStringChanged setzt es die Datenquelle des Unterformulars neu.

  Unterformular fKundenListe (Endlosformular)
  - Spaltenköpfe im Formularkopf, darunter die Zeilen mit Kundennummer, Firma,
    Nachname, Vorname, PLZ, Ort, Land, Telefon, Email und Aktiv.
  - Nur lesend: AllowEdits, AllowAdditions und AllowDeletions stehen auf Nein.
  - Ein Doppelklick auf eine Zeile öffnet fKunde mit diesem Kunden.

  Keine Datensätze beim Start
  - Die Datenquelle des Unterformulars ist im Entwurf SELECT ... FROM tKunden
    WHERE False. Die Datenbank-Engine liefert dafür keine Zeilen, es wird also
    nichts geladen. Die gebundenen Felder zeigen trotzdem kein #Name?, was bei
    einer leeren Datenquelle passieren würde.
  - Erst wenn ein Filter gesetzt ist, setzt das Hauptformular die Datenquelle
    auf SELECT ... FROM tKunden WHERE <Filter> ORDER BY .... Den Filterstring
    erzeugt die ACLib, er ist also gegen SQL-Injection abgesichert.
  - Ich setze die Datenquelle direkt statt Filter/FilterOn. Sonst würde das
    Unterformular zuerst alle Datensätze laden und erst danach filtern.

  Ablauf
  [...]

Where mehr mitlesen will, ich hänge den vollständigen Text an. (Anhang: Sie dürfen in diesem Board keine Dateianhänge sehen.)

Ergebnis
Sie dürfen in diesem Board keine Dateianhänge sehen.
Code im Formular (gekürzt):

Code [Auswählen] Erweitern

Option Compare Text
Option Explicit

Private Const MSG_TITLE As String = "Kundenliste"
Private Const CUSTOMER_FORM_NAME As String = "fKunde"

Private Const ITEMS_SELECT_SQL As String = _
    "SELECT KundeID, Kundennummer, Firma, Nachname, Vorname, PLZ, Ort, Land, Telefon, Email, Aktiv FROM tKunden"
Private Const ITEMS_ORDER_BY_SQL As String = " ORDER BY Firma, Nachname, Vorname"
Private Const NO_RECORDS_CRITERIA As String = "1=0"

' Bound values of cboFilterAktiv (value list "-1;Aktiv;0;Inaktiv;1;Alle")
Private Const STATUS_ACTIVE As Long = -1
Private Const STATUS_ALL As Long = 1

Private WithEvents FilterManager As FilterControlManager
Private WithEvents ItemsForm As Form_fKundenListe_SF_Items

Private ActiveCriteria As String

'---------------------------------------------------------------------------------------
' Form events
'---------------------------------------------------------------------------------------

Private Sub Form_Load()
    InitItemsForm
    InitFilterManager
End Sub

[...]

Private Sub FilterManager_FilterStringChanged(ByVal NewFilterString As String)
    ApplyItemsCriteria GetItemsCriteria(NewFilterString)
End Sub

Private Sub ItemsForm_ItemSelected(ByVal KundeID As Long)
    OpenCustomer KundeID
End Sub

'---------------------------------------------------------------------------------------
' Initialization
'---------------------------------------------------------------------------------------

Private Sub InitItemsForm()
    Set ItemsForm = Me.sfrItems.Form
    ApplyItemsCriteria NO_RECORDS_CRITERIA
End Sub

Private Sub InitFilterManager()
    Set FilterManager = New FilterControlManager
    Set FilterManager.SqlTool = SqlTools.DAO
    AddFilterControls FilterManager.FilterControls
    FilterManager.AutoFilterOn = True
End Sub

Private Sub AddFilterControls(ByVal FilterControls As FilterControlCollection)
    AddSearchTextFilter FilterControls.AddGroup(SQL_Or)

    With FilterControls
        .Add "PLZ", SQL_Text, SQL_Like + SQL_Add_WildCardSuffix, Me.txtFilterPLZ
        .Add "Ort", SQL_Text, SQL_Like + SQL_Add_WildCardSuffix, Me.txtFilterOrt
        .Add "Land", SQL_Text, SQL_Equal, Me.cboFilterLand
        ' Null (cleared combobox) is ignored as well, otherwise it would filter "Aktiv Is Null"
        .Add "Aktiv", SQL_Numeric, SQL_Equal, Me.cboFilterAktiv, , Array(STATUS_ALL, Null)
    End With
End Sub

' txtFilterSuche matches a part of any of these fields.
Private Sub AddSearchTextFilter(ByVal SearchGroup As FilterControlCollection)
    Dim FieldName As Variant

    For Each FieldName In Array("Kundennummer", "Firma", "Nachname", "Vorname")
        SearchGroup.Add CStr(FieldName), SQL_Text, _
                        SQL_Like + SQL_Add_WildCardPrefix + SQL_Add_WildCardSuffix, Me.txtFilterSuche
    Next
End Sub

'---------------------------------------------------------------------------------------
' Filter
'---------------------------------------------------------------------------------------

Private Sub ResetFilter()
    FilterManager.RemoveFilter
    Me.cboFilterAktiv.Value = STATUS_ACTIVE
End Sub

[...]

'---------------------------------------------------------------------------------------
' Customer form
'---------------------------------------------------------------------------------------

Private Sub OpenSelectedCustomer()
    Dim KundeID As Variant

    KundeID = ItemsForm.SelectedKundeID
    If IsNull(KundeID) Then
        MsgBox "Bitte zuerst einen Kunden auswählen.", vbInformation, MSG_TITLE
        Exit Sub
    End If

    OpenCustomer KundeID
End Sub
[...]
Anm.: Das Ergebnis (ClaudeTest.accdb) ist absichtlich nicht nachbearbeitet. Es fehlt z. B. das Verankern des Unterformulars u.ä.
Das wäre mit ein paar weiteren Anweisungen oder manuellem Eingriff schnell behoben, aber ich wollte nur das Ergebnis sehen, das als erstes in die Anwendung eingebaut wurde - also ohne Nachbesserungen. Die Nachbesserungen machte ich nur im Plan (Chat mit Claude).

Ich behaupte: Test bestanden.

--
Josef

#10

Smalltalk / Re: Probleme mit dem Forum

Letzter Beitrag von Knobbi38 - Oktober 12, 2026, 13:05:58

zur Zeit habe ich auch keine Probleme mehr.

Knobbi38