Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Kontrollkästchen soll anzeigen, ob externe Datei existiert
zurück: Nachschlagespalte konzipieren weiter: Formular über Button öffnen Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Feedback Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Bernd Bergmann
Gast


Verfasst am:
01. Dez 2010, 09:35
Rufname:

Kontrollkästchen soll anzeigen, ob externe Datei existiert - Kontrollkästchen soll anzeigen, ob externe Datei existiert

Nach oben
       Version: Office 2003

Ich habe zu jedem Datensatz einer Tabelle ein Foto extern abgelegt (weil ich die Fotos separat verwalten will), welches immer die zugehörige ID als Dateinamen hat. Nun möchte ich in einem Formular mittels Kontrollkästchen anzeigen, ob zu einem Datensatz eine Foto vorhanden ist oder nicht. Ich war davon ausgegangen, dass das möglich ist und hatte mir "Beim Hingehen" folgenden Code ausgedacht, der aber leider nicht funktioniert:
Code:
Private Sub Fotoexistenz_Enter()
    Dim strBildpfad As String
    strBildpfad = Nz("N:\MOST\MOST32\GWMS_" & Format(Me!ID, "000") & ".JPG", "")
    If strBildpfad <> "" Then
        If Dir(strBildpfad) = "" Then
            Me.Fotoexistenz.Enabled = True
          Else
            Me.Fotoexistenz.Enabled = False
        End If
      Else
        Me.Fotoexistenz.Enabled = False
    End If
End Sub

Ich bin eigentlich ein Access-Laie, wie ihr möglicherweise erkannt habt. Wäre nett, wenn mir jemand helfen kann.
kyron9000
Practitioner :)


Verfasst am:
01. Dez 2010, 14:45
Rufname:
Wohnort: Wien


AW: Kontrollkästchen soll anzeigen, ob externe Datei existie - AW: Kontrollkästchen soll anzeigen, ob externe Datei existie

Nach oben
       Version: Office 2003

Hallo,

also, wenn du ein Modul erstellst und diese Funktion einfügst...
Code:
Function fncIstDateiVorhanden( _
    strDateiname As String, _
    strPfad As String) _
 As Boolean
    Dim strDatei As String
    Dim bolReturnValue As Boolean
    If Not IsMissing(strPfad) Then
        If Right(strPfad, 1) <> "\" Then
            strPfad = strPfad & "\"
        End If
    End If
    strDatei = strPfad & strDateiname
    If Len(Dir(strDatei)) > 0 Then
        bolReturnValue = True
    Else
        bolReturnValue = False
    End If
    fncIstDateiVorhanden = bolReturnValue
 End Function

...anschließend kannst das so aufrufen...
Code:
Private Sub Fotoexistenz_Enter()
    Dim strBildpfad As String
    Dim strDatei As String
           strBildpfad = "N:\MOST\MOST32\"
           strDatei = "GWMS_" & Format(Me!ID, "000") & ".JPG"
            Me.Fotoexistenz = fncIstDateiVorhanden(strDatei, strBildpfad)
End Sub

...aber du kannst das auch ohne Modul erstellen...
Code:
Private Sub Fotoexistenz_Enter()
    Dim strBildpfad As String
          strBildpfad = "N:\MOST\MOST32\GWMS_" & Format(Me!ID, "000") & ".JPG"
  If Len(Dir(strBildpfad )) > 0 Then
     Me.Fotoexistenz = True
  Else
     Me.Fotoexistenz = False
  End If
End Sub

Aber "Beim Hingehen" ist nicht die beste Lösung.
Vielleicht wäre "Beim Anzeigen" vom Formular besser.

_________________
Gruß Alfred...

Es ist nicht immer alles so einfach wie es sich im Moment darstellt...
Bernd Bergmann
Neuling


Verfasst am:
01. Dez 2010, 15:27
Rufname:

AW: Kontrollkästchen soll anzeigen, ob externe Datei existie - AW: Kontrollkästchen soll anzeigen, ob externe Datei existie

Nach oben
       Version: Office 2003

Danke für die Mühe, aber das funktioniert leider auch nicht.
"Beim Anzeigen" gibt es für Formulare nicht...
kyron9000
Practitioner :)


Verfasst am:
01. Dez 2010, 15:42
Rufname:
Wohnort: Wien

AW: Kontrollkästchen soll anzeigen, ob externe Datei existie - AW: Kontrollkästchen soll anzeigen, ob externe Datei existie

Nach oben
       Version: Office 2003

Hallo,

dann hast du anscheinend ein anderes Access wie ich Smile.
"Beim Anzeigen" gibt es 100%ig für ein Formular aber nicht für ein Feld oder Checkbox!!!.
Eine Idee hätte ich (obwohl die ersten Versionen auch funktionieren, zumindest
bei mir unter AC03, AC07, AC10) ...die Idee ist aber ungetestet!.
In der Abfrage eingeben...
Code:
Fotoexistenz: Wenn(Länge(Verz("N:\MOST\MOST32\GWMS_" & Format(Me!ID, "000") & ".JPG", ""))>0;Wahr;Falsch)

...in SQL könnte es so aussehen...
Code:
SELECT Felder, IIf(Len(Dir(("N:\MOST\MOST32\GWMS_" & Format(Me!ID, "000") ))>0,True,False) AS Fotoexistenz
FROM   DeineTabelle;

_________________
Gruß Alfred...

Es ist nicht immer alles so einfach wie es sich im Moment darstellt...
Bernd Bergmann
Neuling


Verfasst am:
01. Dez 2010, 16:35
Rufname:

AW: Kontrollkästchen soll anzeigen, ob externe Datei existie - AW: Kontrollkästchen soll anzeigen, ob externe Datei existie

Nach oben
       Version: Office 2003

OK, du hast recht. Aber "Beim Anzeigen" lieferte nur leere Kontrollkästchen.
Vielleicht habe ich auch noch ein Winzigkeit falsch bei mir.

Jedenfalls erschien mir die letzte Variante (mit der SQL-Abfrage) eleganter. Und sie funktioniert auch.
Herzlichen Dank!
Gast



Verfasst am:
01. Dez 2010, 17:23
Rufname:


AW: Kontrollkästchen soll anzeigen, ob externe Datei existie - AW: Kontrollkästchen soll anzeigen, ob externe Datei existie

Nach oben
       Version: Office 2003

Hallo,

bist anscheinen selber auf meinen Kopierfehler draufgekommen Very Happy ...
Me! gibt es in der Abfrage natürlich nicht.
Na ja, Hauptsache es funktioniert so wie du möchtest Smile .
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Access Tabellen & Abfragen: nur einmal anzeigen 4 bohne 674 21. Okt 2005, 16:22
bohne nur einmal anzeigen
Keine neuen Beiträge Access Tabellen & Abfragen: Berechnung im Listenfeld anzeigen? 3 Schnoop 804 20. Okt 2005, 08:24
Timbo Berechnung im Listenfeld anzeigen?
Keine neuen Beiträge Access Tabellen & Abfragen: Datei in Tabelle ablegen 3 joker11 568 19. Okt 2005, 11:32
joker11 Datei in Tabelle ablegen
Keine neuen Beiträge Access Tabellen & Abfragen: Abos die ablaufen Anzeigen lassen ? 1 reneschaub 477 04. Okt 2005, 18:56
jens05 Abos die ablaufen Anzeigen lassen ?
Keine neuen Beiträge Access Tabellen & Abfragen: Abfrage in Formular anzeigen, und dann sortieren 1 christian_10 597 22. Aug 2005, 13:28
lothi Abfrage in Formular anzeigen, und dann sortieren
Keine neuen Beiträge Access Tabellen & Abfragen: gruppieren-beide texteintraege anzeigen 7 paty 1196 14. Jun 2005, 02:54
tobes gruppieren-beide texteintraege anzeigen
Keine neuen Beiträge Access Tabellen & Abfragen: Abfrageergebnis als neues Formular anzeigen 2 mila 3034 12. Apr 2005, 12:38
mila Abfrageergebnis als neues Formular anzeigen
Keine neuen Beiträge Access Tabellen & Abfragen: alle Kunden mit letzter Rechnung anzeigen 2 Dalmatinchen 1109 08. März 2005, 20:58
Dalmatinchen alle Kunden mit letzter Rechnung anzeigen
Keine neuen Beiträge Access Tabellen & Abfragen: Wert von Kontrollkästchen für Abfrage verwenden? 1 JoHo 1690 21. Jan 2005, 11:41
JoHo Wert von Kontrollkästchen für Abfrage verwenden?
Keine neuen Beiträge Access Tabellen & Abfragen: wenn ein datenfeld 0 ist dann ds nicht anzeigen 4 drum_sax 872 14. Jan 2005, 13:30
drum_sax wenn ein datenfeld 0 ist dann ds nicht anzeigen
Keine neuen Beiträge Access Tabellen & Abfragen: Abfrage mit sum, max Wert und verhätnis summe/max anzeigen? 1 IV 2531 04. Nov 2004, 18:14
Skogafoss Abfrage mit sum, max Wert und verhätnis summe/max anzeigen?
Keine neuen Beiträge Access Tabellen & Abfragen: eingefügte Bilder wieder als datei speichern ?! 2 icke 1210 22. Okt 2004, 07:19
Gast eingefügte Bilder wieder als datei speichern ?!
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: HTML Editoren Forum