Bedingung bei Wert von Kontrollkästchen

[tismo]

Hallo zusammen,

habe folgendes Problem:

Code [Auswählen] Erweitern

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 ?

[markusxy]

Wo 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?

[tismo]

richtig, nur ein Datensatz

[MzKlMu]

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...)

Code [Auswählen] Erweitern

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 ?

[tismo]

mein Fehler falschen wert eingegebn ....

Danke für die Hilfe