Hallo!
Ich habe ein Problem. Ich möchte zu einem Datensatz Fotos anzeigen lassen . Das funktioniert dzt. nur mit der Einschränkung, dass der Ordner wo die Fotos liegen hinter den 6 Stellen der Datensatznummer (rekla_AM_Nr) nichts mehr stehen darf (steht dahinter ein Beschreibungstext zum Datensatz wird dieser nicht angezeigt). Es soll jeodch möglich sein, dahinter etwas anzuzeigen damit weitere Informationen zu den FOtos hier zur Ordnerbezeichnung hingeschrieben werden können.
rekla_AM_Nr = Das ist eine 6-stellige Nummer des Datensatzes sowie auch die Nummer des Ordners mit den Fotos im Verzeichnis "P:\QW\Reklamationen\Datenbank\".
Derzeitiger Code:
Private Sub Befehl2080_Click()
On Error GoTo Err_Befehl2080_Click
Dim Adresse As String
Adresse = "P:\QW\Reklamationen\Datenbank\" & Me![rekla_AM_Nr]
Shell Environ("windir") & "\system32\rundll32.exe " & _
"C:\WINDOWS\system32\shimgvw.dll,ImageView_Fullscreen " & Adresse
Exit_Befehl2080_Click:
Exit Sub
Err_Befehl2080_Click:
MsgBox Err.Description
Resume Exit_Befehl2080_Click
Danke für jede Unterstützung!
P.S.: Ich sollte einiges in Access (VBA) machen, wo gibt es gute u. günstige Lektüre (www)?
|