Verabschiede dich vom altbackenen Access-Splash-Screen! In unserem neuen Blogpost zeigen wir dir, wie du mit einfachen Mitteln einen modernen, professionellen Startbildschirm erstellst â ganz ohne Zusatztools. Lass dein Access mit Stil starten! #AccessUpdate #ProfessionellStarten
Bist du sicher, welche Access-Version in deinem Projekt im Einsatz ist? Nicht alle Versionen unterstĂŒtzen jedes Feature! Finde heraus, wie du mit VBA die genaue Version und Buildnummer deiner Access-Datenbank ermittelst, um effizienter und fehlerfreier zu arbeiten. Lerne die Tricks in unserem neuesten Blogbeitrag. #AccessVBA #Softwareentwicklung #KMU
Entdecke, wie manuelle Routineaufgaben effizient automatisiert werden können, um Deine besten Talente fĂŒr wichtigere Herausforderungen freizusetzen. Von Power Apps bis VBA â ich zeige Dir, wie es geht. Befreie Dein Team von der Monotonie und spare dabei Kosten!
Risikoalarm in Access! Ohne Rollen- und Rechtemanagement kann jeder Nutzer alles machen â Ă€ndern, löschen, exportieren. Klingt gefĂ€hrlich? Ist es auch! In meinem neuesten Beitrag zeige ich Dir, wie Du mit VBA ein sicheres Rechtemodell selbst strickst. Neugierig geworden? Dann klick dich rein und lerne, wie man das Chaos verhindert! #Datenschutz #MicrosoftAccess #VBA
Entdecke die Warnsignale, die Dir zeigen, wann Microsoft Access an seine Grenzen stöĂt und wie Du clever auf robustere Alternativen umsteigst. Lerne, wann es Zeit ist, die Komfortzone zu verlassen, um PerformanceeinbrĂŒche und Datenchaos zu vermeiden. Ideal fĂŒr alle, die mehr wollen! #Datenmanagement #MicrosoftAccess #ITLösungen
Entdecke, wie du mit Lazy Loading in VBA groĂe Kombinationsfelder effizient verwaltest, ohne dass deine Access-Anwendung ins Stocken gerĂ€t. Lass Daten nur dann laden, wenn sie auch wirklich gebraucht werden. Mehr Tipps und Tricks findest du auf dem Blog des DatenschĂ€fers. #VBA #LazyLoading #PerformanceOptimierung
Entdecke, wie Du Deine Access-Datenbanken DSGVO-fit machst, bevor die Aufsichtsbehörde klingelt. Personenbezogene Daten sicher verwalten â lokal und konform! Klicke hier, um zu erfahren, was Du genau tun musst. #Datenschutz #Access #DSGVO
Erfahre, wie Du Microsoft Lists geschickt in Access integrierst! Entdecke praktische Tipps, um Listen aus Office 365 nahtlos in Deine Access-Datenbank einzubinden. Optimal fĂŒr KMUs! Neugierig, wie das geht? Klicke hier und tauche ein in die Welt der Datenintegration! #MicrosoftLists #AccessTips #Datenintegration
Lerne, wie Du direkt aus Access E-Mails verschickst â simpel oder mit voller Kontrolle ĂŒber AnhĂ€nge und Formatierungen. Perfekt fĂŒr Rechnungen und Updates! Klick rein und optimiere Deinen E-Mail-Workflow. #AccessTipps #OutlookAutomation #EffizienzSteigern
Entdecke, wie Du die Kraft von Microsoft Access und Teams vereinen kannst! Lerne, Access-Daten nahtlos in Teams zu integrieren, ohne sie in die Cloud zu verlagern. Ideal fĂŒr KMU, die ihre Prozesse effizienter gestalten wollen. Mehr Details im neuesten Beitrag auf DatenschĂ€fer! #MSAccess #MSTeams #KMU
Warum ich das ĂŒberhaupt mache
Access-Frontends, die mit Webdiensten oder SQL-Servern kommunizieren, sind oft schmerzhaft offen.Aber: Ich will keine vollwertige Authentifizierungsplattform bauen.Ich will einfache Regeln.Wer darf, wann, von wo.
Also: IP-Check, Benutzerkennung, Zeitfenster.Direkt in VBA und im Backend.
1. IP-Adressen filtern (Client-seitig)
In VBA kannst Du die IP des Rechners ermitteln und mit einer Whitelist abgleichen.
IP holen (funktioniert meistens intern)
Function HoleIP() As String
Dim wmi As Object, obj As Object
Set wmi = GetObject("winmgmts:\\.\root\cimv2")
For Each obj In wmi.ExecQuery("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
If Not IsNull(obj.IPAddress) Then
HoleIP = obj.IPAddress(0)
Exit Function
End If
Next
End Function
PrĂŒfung gegen einfache Whitelist
Function CheckIP() As Boolean
Dim erlaubteIPs As Variant
erlaubteIPs = Array("192.168.1.100", "192.168.1.101")
Dim ip As String
ip = HoleIP()
Dim i As Integer
For i = LBound(erlaubteIPs) To UBound(erlaubteIPs)
If ip = erlaubteIPs(i) Then
CheckIP = True
Exit Function
End If
Next
MsgBox "Zugriff verweigert. Deine IP ist nicht zugelassen.", vbCritical
CheckIP = False
End Function
Am besten rufst Du CheckIP direkt im Startformular auf und beendest die App bei Ablehnung.
2. Benutzerkonten & Zeitsperren aus zentraler Tabelle
Ich lege mir eine kleine Tabelle im Backend an:
benutzergueltig_vongueltig_bisaktivip_erwartetSCHMIDT2025-05-012025-06-30 23:59Ja192.168.1.100
PrĂŒfung bei Login
Function CheckZugang(Benutzer As String) As Boolean
Dim rs As DAO.Recordset
Dim sql As String
sql = "SELECT * FROM zugangskontrolle WHERE benutzer = '" & Benutzer & "' AND aktiv = TRUE"
Set rs = CurrentDb.OpenRecordset(sql)
If rs.EOF Then
MsgBox "Zugang verweigert: Benutzer nicht aktiv.", vbCritical
CheckZugang = False
Exit Function
End If
Dim jetzt As Date
jetzt = Now
If jetzt < rs!gueltig_von Or jetzt > rs!gueltig_bis Then
MsgBox "Zugang verweigert: AuĂerhalb des Zeitfensters.", vbCritical
CheckZugang = False
Exit Function
End If
If Nz(rs!ip_erwartet, "") <> "" Then
If HoleIP() <> rs!ip_erwartet Then
MsgBox "Zugang verweigert: IP nicht erlaubt.", vbCritical
CheckZugang = False
Exit Function
End If
End If
CheckZugang = True
End Function
Aufruf z. B. im Autoexec-Modul
If Not CheckZugang(Environ("USERNAME")) Then
DoCmd.Quit
End If
3. Serverseitig absichern
Wenn Du mit einem Webdienst oder SQL Server arbeitest, kannst Du auch serverseitig filtern.
Beispiel in PHP (REST-Endpunkt)
$remote_ip = $_SERVER['REMOTE_ADDR'];
$erlaubt = ['192.168.1.100', '203.0.113.55'];
if (!in_array($remote_ip, $erlaubt)) {
http_response_code(403);
exit('IP nicht erlaubt');
}
SQL-Trigger bei INSERT aus Access
CREATE TRIGGER trg_block_unerlaubten_zugriff
ON dbo.import_tabelle
AFTER INSERT
AS
BEGIN
IF EXISTS (
SELECT * FROM inserted WHERE session_user NOT IN ('support_user', 'access_user')
)
BEGIN
RAISERROR ('Nicht autorisierter Benutzer', 16, 1)
ROLLBACK
END
END
4. Logging: Wer versucht's trotzdem?
Leg Dir ein einfaches Audit-Log an:
Sub LogZugriffsversuch(Benutzer As String, IP As String, Erfolg As Boolean)
CurrentDb.Execute "INSERT INTO zugriffslog (zeitpunkt, benutzer, ip, erfolg) VALUES (Now(), '" & Benutzer & "', '" & IP & "', " & Erfolg & ")"
End Sub
Ich nutze das spÀter, um bruteforce-artige Zugriffe zu erkennen oder IP-Ranges zu blocken.
Access ist kein Sicherheitswunder.
Aber mit IP-Check, Benutzerliste und Zeitsperren kannst Du schon viel verhindern.Gerade wenn Webdienste oder Cloudsysteme angebunden sind, brauchst Du sowas.
Entdecke, wie du moderne Icons (SVG/PNG) geschickt in deine VBA-Projekte einbindest, um deine Anwendungen visuell aufzupeppen! Mehr Tipps und Tricks findest du auf unserer Website. Klick rein und bring deine UI-Designs auf das nÀchste Level!
Entdecke, wie Du mit VBA ĂŒber ODBC eine robuste Verbindung zu Azure SQL herstellst. Praktische Tipps fĂŒr mehr Effizienz in Deinen Datenprojekten â gleich reinlesen! #SQL #VBA #Azure #DatenschĂ€fer
Erfahre, wie du mit Large Address Aware in VBA mehr Speicher fĂŒr deine Anwendungen nutzt und die Performance steigerst. Ideal fĂŒr speicherintensive Prozesse! Klick hier fĂŒr die technischen Details.
Entdecke, wie Du den Trusted Location-Pfad Deiner Anwendung mit VBA automatisch setzen oder prĂŒfen kannst. Ein Must-Have fĂŒr jeden, der Sicherheit und Effizienz in seinen Projekten steigern will. Klick rein und sicher Dir smarte Tipps! #VBA #Automatisierung #DatenschĂ€fer
Entdecke, wie du in VBA mit Long Texts und Unicode effizient arbeitest. Optimiere deine Datenverarbeitung mit praxisnahen Tipps, die deine Skripte auf das nÀchste Level bringen. Klick rein und erfahre mehr!
Entdecke, wie Du das Scrollen in Endlosformularen flĂŒssiger gestaltest und die UI optimierst â fĂŒr eine bessere Performance und Nutzererfahrung. Ein Muss fĂŒr jeden Entwickler! Klick rein und erfahre mehr auf dem Blog des DatenschĂ€fers.
Entdecke, wie Du mit VBA nicht nur Daten manipulierst, sondern auch Zeit sparst! Unser neuester Blogartikel fĂŒhrt Dich durch die Nutzung moderner Datumsfunktionen. Perfektioniere Deine Skills auf effiziente Weise! Klick hier und erfahre mehr. #VBA #Datumsfunktionen #EffizienzBoost