Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Bildfeld im Formular aktualisieren
Autor: Marcus.C.
Datum: 24.08.08 12:13
Hallo, ich hoffe mir kann jemand helfen. Ich habe unter Access 2007 eine Bilddatenbank geschrieben. Bisher habe ich die Bilder manuell hinzugefügt. das soll nun automatisch erfolgen. Das klappt soweit ganz gut. Nun meine Frage: Während die Bilddateien aus einem Verzeichnis eingelesen werden, möchte ich sie mir gerne verkleinert anzeigen lassen. Ich habe inzwischen alles probiert und zig verschiedene Foren abgegrast. das Bild wird während die Funktion läuft nicht aktualisiert. Nur am Ende wird das letzte Bild dargestellt. hier ist der Code: Function EinlesenPfad(Tabelle As String) Dim SelectedFile As String Dim cnt As Integer Dim dbs As DAO.Database Dim rst As Recordset Set dbs = CurrentDb Set rst = dbs.OpenRecordset(Tabelle, dbOpenDynaset) SelectedFolder = Me.Verzeichnis & "\" Do Until rst.EOF rst.Delete rst.MoveNext Loop cnt = 1 SelectedFile = Dir(SelectedFolder) Do While SelectedFile <> "" With rst .AddNew !Titel = SelectedFile !Pfad = Verzeichnis .Update End With Datei = SelectedFolder & SelectedFile Me!Bild108.Picture = Datei ' gewähltes Bild anzeigen Me.Bild108.Visible = True cnt = cnt + 1 SelectedFile = Dir Loop rst.Close Set dbs = Nothing Err_ShowFiles: Exit Function End Function Ich hoffe es kann mir jemand helfen, da in einem Verzeichnis 9.800 Dateien sind. Man kann nicht sehen, das er währed des Einlesens irgend was macht.

Bildfeld im Formular aktualisieren	683	Marcus.C.	24.08.08 12:13
Re: Bildfeld im Formular aktualisieren	481	wincnc	24.08.08 12:21
Re: Bildfeld im Formular aktualisieren	471	Marcus.C.	24.08.08 12:46

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen