Office: (Office 2000) Bilder laden

wankel · 29. April 2006

vielen lieben dank *wink.gif*

Ferdinand_ · 10. September 2006

Ich hoffe, es ist ok, dass ich dieses etwas ältere Thema wieder hervor hole.

Karl-Heinz hat dankenswerterweise eine Beispieldatenbank im Umgang mit externen Bildern bei DBWiki eingestellt. Da ich keine blassen Schimmer von VBA habe, habe ich einfach den
den Code in meine Datenbank kopiert und in einem Formular die entsprechenden Buttons und Felder angelegt. Leider funktioniert es bei mir nicht. Schon beim Versuch einen Ordner mit Bildern zu öffnen erhalte ich folgenden Fehlermeldung:
"Fehler beim Kompilieren. Benutzerdefinierter Typ nicht definiert" für folgenden Abschnitt: "fd As FileDialog"

Hier ist der gesamt Abschnitt:
Code:

Private Sub cmdBildEinfuegen_Click()
On Error GoTo Er

Dim fd As FileDialog, FileVar As Variant

Set fd = Application.FileDialog(msoFileDialogOpen)
With fd
.AllowMultiSelect = False
.Filters.Clear
.Filters.Add "Bilddateien", "*.gif; *.jpg; *.jpeg; *.bmp", 1
'.InitialFileName = CurrentProject.Path 'Pfad der DB als Vorgabe
'.InitialView = msoFileDialogViewThumbnail 'Miniaturbilder anzeigen

If .Show Then '= -1 Then
For Each FileVar In .SelectedItems
'Debug.Print FileVar
If Len(FileVar) > 0 Then
Me!txtBild = FileVar
LoadPic
End If
Next FileVar
End If

'.InitialFileName = Left(FileVar, InStrRev(FileVar, "\")) 'Pfad der zuletzt geöffneten Datei als Vorgabe
End With

Set fd = Nothing

PostMessage Application.hWndAccessApp, WM_SETFOCUS, 0&, 0& 'Fokus zu Access zurück holen
Me!cmdBildEinfuegen.SetFocus

Ex:
On Error Resume Next
Exit Sub

Er:
Set fd = Nothing
MsgBox "cmdBildEinfuegen: " & Err.Description
Resume Ex

End Sub

Private Sub Form_AfterUpdate()
LoadPic
End Sub

Private Sub Form_Close()
DoCmd.ShowToolbar "Web", acToolbarWhereApprop
End Sub

Private Sub Form_Current()
LoadPic
End Sub

Sub LoadPic()
'---
'Das reichte noch aus in A97:
'On Error Resume Next
'Me![BildFld].Picture = Nz(Me!txtBild, " ")
'---

On Error GoTo LoadErr

Me![BildFld].Visible = True
Me![BildFld].Picture = Nz(Me!txtBild, " ") 'geht im Form auch ohne " "!?
Me![BildFld].HyperlinkAddress = Me!txtBild 'macht in diesem Fall 'ShellExecute' überflüssig
Me![BildHinweisBez].Visible = True
Me![LoeschenBtn].Visible = True

Exit_LoadPic:
Exit Sub

LoadErr:
If Err.Number = 2220 Then '(Microsoft Access kann die Datei '...' nicht öffnen.)
Me![BildFld].Visible = False
Me![BildHinweisBez].Visible = False
Me![LoeschenBtn].Visible = False
Else
MsgBox Err.Number & ": " & Err.Description
End If
Resume Exit_LoadPic
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Für jede Hilfe bin ich dankbar.

PS: Ich benutze Office 2003 und die Originaldatenbank von KH läuft ohne Probleme

Ferdinand_ · 11. September 2006

Nach längerem Suchen im Netz habe die die Antwort für meine Fehlermeldung:
--- "Fehler beim Kompilieren. Benutzerdefinierter Typ nicht definiert" für folgenden Abschnitt: "fd As FileDialog" ---
selbst gefunden und die Antwort ist auch noch ganz simpel (wenn man's weis *tongue.gif*):
Es müssen in der Datenbank sowohl die "Microsoft Access 11.0 (10.0) Objekt Library" als auch die "Microsoft Office 11.0 (10.0) Objekt Library" angemeldet sein bei Code/Extras/Verweise.

*idee

ollip79 · 20. März 2007

Hallo

ich habe versucht die oben beschrieben BildLaden Methode in meine kleine Datenbank zu integrieren. Dabei habe ich probiert die Variablen so abzuändern das 3 Bilder im Formular geladen werden. Leider bekomme ich die Version nicht zum laufen. Ich bin auch nicht so der Profi in VBA, vielleicht könnte einer mal über den Code schauen und sagen ob nen grober Fehler vorliegt. Kompillieren tut er es ja, nur beim Ausführen des Formulars geht nichts.

"Bei Visual Basic für Applikationen (VBA) ist ein Fehler während dem Zugriff auf eine Eigenschaft oder Methode aufgetreten. Es kann sich um eines der folgenden Probleme handeln:"

Ratlos und müde.

Gruss
Sascha

edit: hatte zuletzt LoadPic in Form_Current und Form_AfterUpdate auskommentiert

edgar113 · 25. Dezember 2007

Hallo
ich habe mir die Datenbank Bilderladen97.mdb von dbwicki geladen es ist eigentlich genau das was ich brauchte. Jedoch hat meine Tabelle 2 Bilder je Datensatz. Wie kann ich die Datenbank ändern, sodas 2 Bilder je Datensatz in einem Bericht angezeigt werden.
Desweiteren würde mich der Befel "LoadPic" interressieren. Wo finde ich hierfür eine erklärung was der macht.
Gruß Edgar

Office: (Office 2000) Bilder laden

Bilder laden

Bilder laden

Bilder laden

Bilder laden - Similar Threads - Bilder laden

Laden von Bildern und anderen Binärdaten in das Datenmodell

Bild laden beim Anzeigen

Bilder beim speichern weg, nicht sichtbar auf anderem PC

Herunterladen von Dateien

Dateipfadangabe aus einer Zelle beziehen

Word XP Bilder automatisch laden mit verkürzter Pfadangabe

Bilder in Powerpoint automatisch laden