title image


Smiley ...noch ne Frage...
Hallo Karl-Heinz,



danke erstmal für die Linksammlung...

hab mir das ganze die letzte halbe stunde mal angesehen...



Aber: Ich würde eigentlich nur die Zeile in meinem "Durchsuchen" Button benötigen, die mir das Bild anzeigt...



Hier mal der Code des Buttons:



Private Sub Datei_open_Click()

On Error GoTo Err_Öffnen_Click



Dim Path As String

Dim Dateinummer As Integer

Dim Bild ** Name des Feldes für das Bild,

Dateipfad ist der Name des Textfeldes für den Pfand **



If ((IsNull(Me![Dateipfad])) Or (Me![Dateipfad] = "")) Then

Me![Dateipfad] = DateiOeffnen("C:\Eigene Dateien", "Datei öffnen")

Else

Me![Dateipfad] = DateiOeffnen(Me![Dateipfad], "Datei öffnen")

End If



DoEvents



If ((Not IsNull(Me![Dateipfad])) And (Me![Dateipfad] "")) Then

DoCmd.Hourglass True

Dateinummer = FreeFile

Open Me![Dateipfad] For Input As #Dateinummer

** Ich glaub der Code für das Bild anzeigen muss hierein **

Close #Dateinummer

End If



Exit_Öffnen_Click:

DoCmd.Hourglass False

Exit Sub



Err_Öffnen_Click:

DoCmd.Hourglass False

MsgBox Err.Description

Resume Exit_Öffnen_Click



End Sub





Ich hoffe, du kannst mir da noch nen kleinen Tip geben...



Gruß

Jokii
..::Also wenn ich nicht wüsste Sie wären es, dann würde ich sagen Sie sind es::..

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: