Warum Access in 2025 noch kein Fall fĂŒr den Schrottplatz ist
Access lebt. Besonders im Mittelstand.
Datenbanklösungen, die laufen. Und laufen. Und laufen.
Aber jetzt willst Du automatisieren. Und intelligenter werden.
Hier kommt Power Automate ins Spiel â mit KI Builder obendrauf.
Ich zeig Dir, wie Du Access an Power Automate + KI Builder andockst.
Ohne groĂe Cloud-Architektur. DafĂŒr mit Pragmatismus, API-Aufrufen und VBA.
Was brauchst Du?
- Microsoft Access (lokal, 32 oder 64 Bit)
- Microsoft 365 Lizenz mit Power Automate + KI Builder
- Einen Power Automate Flow mit HTTP-Empfang
- Einen KI Builder-Modelltyp (z.âŻB. Vorhersage oder Formulardaten extrahieren)
Szenario: Automatisierte Dokumentenanalyse per Access
Du hast einen Access-Formular mit Datei-Upload.
Power Automate extrahiert die Infos per KI und liefert ein Ergebnis zurĂŒck.
Access schreibt das sauber in die Tabelle. Fertig.
Power Automate vorbereiten
- Erstelle einen neuen Flow mit „When an HTTP request is received“
- FĂŒge die Aktion „AI Builder â Analyze form“ oder „Predict“ hinzu
- Verarbeite das Ergebnis (z.âŻB. Textfelder, Checkboxen)
- Antworte mit JSON an den Aufrufer
Beispiel-Response:
{
"Kunde": "BĂ€ckerei Kruse",
"Datum": "2025-05-01",
"Betrag": 127.45,
"Zahlungsziel": "30 Tage"
}
Access: Der VBA-Call zur Power Automate API
Access ruft die Power Automate URL auf, ĂŒbertrĂ€gt Base64-codierte PDFs
und erhĂ€lt KI-analysierte Daten zurĂŒck.
Function CallAIWorkflow(pdfPath As String) As String
Dim http As Object
Dim fileBytes() As Byte
Dim base64 As String
Dim jsonRequest As String
Dim jsonResponse As String
Set http = CreateObject("MSXML2.XMLHTTP")
' PDF einlesen und Base64 kodieren
Open pdfPath For Binary As #1
ReDim fileBytes(LOF(1) - 1)
Get #1, , fileBytes
Close #1
base64 = EncodeBase64(fileBytes)
' JSON Payload vorbereiten
jsonRequest = "{""file"":""" & base64 & """}"
With http
.Open "POST", "https://prod-123.westeurope.logic.azure.com:443/workflows/...", False
.SetRequestHeader "Content-Type", "application/json"
.Send jsonRequest
jsonResponse = .ResponseText
End With
CallAIWorkflow = jsonResponse
End Function
Hilfsfunktion fĂŒr Base64:
Function EncodeBase64(bytes() As Byte) As String
Dim xmlObj As Object
Set xmlObj = CreateObject("MSXML2.DOMDocument").createElement("b64")
xmlObj.DataType = "bin.base64"
xmlObj.nodeTypedValue = bytes
EncodeBase64 = Replace(xmlObj.Text, vbLf, "")
End Function
JSON-Response verarbeiten
Function ParseJson(json As String)
Dim sc As Object
Set sc = CreateObject("ScriptControl")
sc.Language = "JScript"
sc.AddCode "function parse() { return JSON.parse(arguments[0]); }"
Dim result As Object
Set result = sc.Run("parse", json)
Debug.Print "Kunde: " & result.Kunde
Debug.Print "Datum: " & result.Datum
Debug.Print "Betrag: " & result.Betrag
End Function
Wo Du aufpassen musst
- Power Automate URLs laufen ab â kontrollier Deine Trigger regelmĂ€Ăig
- KI Builder braucht Training â nichts funktioniert âeinfach soâ
- Response-GröĂen sind begrenzt (Power Automate kann abwĂŒrgen)
- PDF-Dateien dĂŒrfen nicht zu groĂ sein (max. 4 MB als Faustregel)
Typische Einsatzfelder
Bereich | Automatisierungsidee |
---|---|
Buchhaltung | Eingangsrechnungen auslesen + buchen |
Einkauf | Lieferantenformulare analysieren |
Service | E-Mail-Anfragen klassifizieren per Text-KI |
Vertrieb | Angebotsdaten aus PDFs in Access-Tabelle speichern |
Fazit: Access wird KI-fÀhig
Du brauchst keinen SQL-Server, keine Azure-Funktionen und kein IT-Budget in Millionenhöhe.
Du brauchst nur einen sauberen Flow, ein bisschen JSON und ein paar VBA-Zeilen.
Power Automate + KI Builder + Access:
Das ist Low-Code + Legacy = Zukunft.
Keine Antworten