VBA: Bild aus Datenbank in Formular laden

Firestorm696

Mitglied
Hallo!
Ich hab mal wieder ein Problem mit Access:
Ich hab meine Datenbank und ein Formular mit 7 gebundenen Objektfeldern. Nun will ich beim Öffnen des Formulars je ein Bild (BMP) aus der Datenbank in ein Objektfeld laden. Wie mach ich das?
Code:
For Aktuellekarte = 1 To 7
		Zufallskarte = Int(Rnd * anzahlinsgesamt)
		Deck1tab.MoveFirst
		Deck1tab.Move Zufallskarte
		If Deck1tab!Verbraucht = Deck1tab!AnzahlDeck Then
			Aktuellekarte = Aktuellekarte - 1
		Else
		 Set Startkarten(Aktuellekarte) = allekartentab!Kartenbild
		 Deck1tab.Edit
		 Deck1tab!Verbraucht = Deck1tab!Verbraucht + 1
		 Deck1tab.Update
		 Deck1tab.MoveNext
		End If
	Next Aktuellekarte
Verbraucht gibt an, dass die Karte nur dann geladen werden darf, wenn sie noch nicht gezogen wurde. Deck1tab ist die Tabelle, aus der die Daten "Verbraucht" und "AnzahlDeck" stammen. "Allekartentab" ist die Tabelle, die mit Deck1tab verknüpft ist und in der die jeweiligen Bilder enthalten sind (als OLE-Objekte).
Wie bring ich die Bilder in das Formular?
 
Zurück