Hallo zusammen,
habe folgendes Problem:
Dim WertKontrolle As String
WertKontrolle = DLookup("Auswahl1", "01Systemdaten")
If WertKontrolle = True Then
Dim strAutoPfad As String
Dim DateiAutoPfad As String
DateiAutoPfad = DLookup("Vorname", "Personal") & " " & DLookup("Name", "Personal")
strAutoPfad = "C:\Users\" & DateiAutoPfad & "\OneDrive"
FollowHyperlink strAutoPfad
Else
Dim strPfad As String
Dim DateiPfad As String
DateiPfad = DLookup("pdfPfad", "01Systemdaten")
strPfad = DateiPfad & Me.RechnungsnummerDruck & "-" & Me.Name
FollowHyperlink strPfad
End If
sollte das Kontrollkästchen (Auswahl1) aus Tabelle (01Systemdaten) aktiviert sein, dann soll
der Pfad C:\users\Vorname Name\OneDrive geöffnet werden
ansonsten soll der Pfad aus dem Textfeld (PdfPfad) der Tabelle (01Systemdaten) geöffnert werden.
Das Öffnen des Pfades aus dem Textfeld funktioniert einwandfei. Jedoch leider nicht die Bedingung.
Wo liegt mein Fehler ?
Zitat von: tismo am Dezember 10, 2022, 15:35:50Wo liegt mein Fehler ?
Ernsthaft jetzt?
Du sitzt doch davor.
Einfach debuggen und schauen wo das Problem liegt.
Hast du in den Tabellen Systemdaten und Personal jeweils nur einen Datensatz?
richtig, nur ein Datensatz
Hallo,
füge mal an den geeigneten Stellen ein Debug.Print ein.
Z.B. was liefert die WertKontrolle ?
Außerdem geht der Code auch deutlich kompakter und ohne die Deklarationsflut (Dim...)
Dim strPfadDatei As String
If DLookup("Auswahl1", "01Systemdaten") = True Then
Debug.Print DLookup("Auswahl1", "01Systemdaten") 'nach Fehlersuche löschen
Stop 'nach Fehlersuche löschen
strPfadDatei = "C:\Users\" & DLookup("Vorname", "Personal") & DLookup("Name", "Personal") & "\OneDrive"
Else
strPfadDatei = DLookup("pdfPfad", "01Systemdaten") & Me.RechnungsnummerDruck & "-" & Me.name
End If
FollowHyperlink strPfadDateiMe.Name liefert den Namen des Formulars, willst Du das ?
Außerdem würde ich niemals in Pfad und/oder Dateinamen ein Leerzeichen einfügen (auch wenn es funktioniert), das braucht man an der Stelle nicht.
Und eines Tages hast Du eine Person mit gleichem Vor und Nachnamen, was dann ?
mein Fehler falschen wert eingegebn ....
Danke für die Hilfe