![](/forum/profile/get-photo.asp?memberid=27&type=profile&rnd=376) Elite Veteran
Beiträge: 860
![500](http://www.donkarl.com/forum/images/decorations/multiple/500.gif) ![100](http://www.donkarl.com/forum/images/decorations/multiple/100.gif) ![100](http://www.donkarl.com/forum/images/decorations/multiple/100.gif) ![100](http://www.donkarl.com/forum/images/decorations/multiple/100.gif) ![25](http://www.donkarl.com/forum/images/decorations/multiple/25.gif) ![25](http://www.donkarl.com/forum/images/decorations/multiple/25.gif) Ort: Wien | Hallo!
Dreho52 - 29.04.20
...
In einer Tabelle mit den Namen: tbl_Stammdaten (nur ein Datensatz ist erlaubt)
sind Felder, die für jeden User frei nutzbar und auch änderbar sind.
...
Es sind dies Felder wie "FirmaName", "Dokumenten_Pfad", etc.
Wie kann ich mit einem VBA-Befehl beim Start die Variablen wie
Public PublStringFima1 As String
Public PublStringDateipfad As String
füllen mit den obenstehenden Daten.
...
Luftcode, den du beim Öffnen des Startformulares oder im AutoExec-Makro (als Public Function) aufrufen kannst:
Dim db As DAO.Database
Dim rsStamm As DAO.Recordset
Set db = Currentdb
Set rsStamm = db.OpenRecordset("tbl_Stammdaten", dbOpenDynaset)
If Not rsStamm.BOF Then
PublStringFima1 = rsStamm!FirmaName
PublStringDateipfad = rsStamm!Dokumenten_Pfad
End If
----- Servus
Karl
*********
Access-Entwickler-Konferenz: https://www.donkarl.com/?aek
Access DevCon Vienna: https://www.donkarl.com/devcon
Access Forever: https://www.accessforever.org
Access News: https://www.youtube.com/playlist?list=PLVCeBbJIMDvdJ8ghMbEakJ6_EQyvy... |