Office: (Office 2010) Mehrere Bilder in OLE-Bild Object anzeigen lassen :smashing:

Hallo Access Freunde,

ich habe ein OLE-Bild Object in einem Access 2010 Formular hinzugefügt, damit ich ein Bild in dem Object anzeigen bekommen kann aber wie kann ich mehrere Bilder in dem selben Object zur Anzeige bekommen?

Code:
If Not IsNull(Me.BildPfad) Then
Me.BildFeld.Picture = Me.BildPfad
Else
Me.BildFeld.Picture = "C:\Bilder\Test.jpg"
End If

Vielen Dank für die schnelle Antwort(en)...

Gruß

:)

 

Es kann immer nur ein Bild angezeigt werden. Für zwei Bilder in einem Formular benötigt man zwei Objekte.

 

Danke für die Antwort,
angenommen habe ich 20 Bilder je Datensatz, wie ist dann hier die Lösung?
20 OLEs ???

LG

 

Hallo!

Die einfachste Lösung wäre, statt 20 Bilder je Datensatz 20 Datensätze in einer 1:n-Tabelle mit Bezug zu dem "einen" Datensatz zu verwenden.
Dann kann man nämlich ein Endlosformular verwenden, um die 20 Bilder untereinander darzustellen - oder mit ein wenig Anpassung die Bilder in mehreren Spalten anzuzeigen.

BTW (wegen Access 2010): wenn du den Bildpfad in der Tabelle speicherst, wäre es nicht einfacher, ein Bild-Steuerelement zu verwenden und dieses an das Datenfeld mit dem Pfad zu binden?

mfg
Josef

 

Servus zorlayan,
schau mal das Beispiel in #4 von
http://www.ms-office-forum.net/forum...d.php?t=328691

 

Hallo Ohrkester,

danke für den Link, hat viel geholfen. Ich denke mein DB kann ich mit dieser Lösung anbinden.

LG

 

Hallo noch mal,

wie kann ich folgenden Satz in VBA schreiben?

[Check den selektierten Datensatz ob er leer ist]

if selection.record = "" then ????

leider habe ich nicht passendes gefunden *mad.gif*

Könnt ihr bitte auf die schnelle helfen?

Danke...

 

Wann ist ein Datensatz leer? Wenn alle Datenfelder leer sind und nur der PK befüllt ist?

mfg
Josef

 

Sorry wusste nicht ob so eine Möglichkeit gäbe, in meinem Fall "wenn alle Felder von selektierten Datensatz leer sind."

Danke

*cool.gif*

 

Hallo Josef,

ich habe den Befehl gefunden und funktioniert. *mrcool

If IsNull(Me.KundenNr) Then
MsgBox "Eine Kunde unter dieser Nummer existiert nicht!", vbOKOnly, "Hinweis"
Else
....


Vielen Dank für deine Bemühungen

LG

 

Hi,

ich habe Navigationsschaltfläche in meinem Formular selbst erstellt, funktioniert vunderbar bis auf nervige Fehlermeldung ende der Datensätze wenn man absichtlich weiter klicken würde.
z.B. ich habe 3 Datensätze, bin in ersten Drin, klicke ich den Button geht auf 2. Datensatz, klicke weiter geht auf 3. Datensatz und klicke ich noch mal kommt Laufzeitfehler 2105 "Sie können nicht zu dem angegebenen Datensatz springen".

Schaltfläche für nächster Datensatz hat folgendes Code:
Code:

Frage:
Wie kann ich Access beim Navigieren beibringen dass keine weitere Datensatz verfügbar ist während ich auf dem letzten Datensatz bin und keine Meldung bringt?

Danke *frown.gif*

 

Hallo!

Entweder durch Fehlerbehandlung:
Code:

Oder besser, den Fehler gar nicht aufkommen lassen:
Code:

Und noch besser, die Schaltfläche abblenden, wenn der Datensatzzeiger
auf dem letzten Datensatz steht:
Code:

 

Oder besser, den Fehler gar nicht aufkommen lassen:
Code:

Und noch besser, die Schaltfläche abblenden, wenn der Datensatzzeiger
auf dem letzten Datensatz steht:
Code:

Hallo Marsu,

du bist ja einfach Klasse!
Danke für die Hilfe, funktioniert hervorragend!
*happy

 

Und noch besser, die Schaltfläche abblenden, wenn der Datensatzzeiger
auf dem letzten Datensatz steht:
Code:

Hi Marsu,

welches Code bei den Rückwärtsauflistung verwendet?
ich habe folgendes aus deinem Code nach meinem Logik*rolleyes.gif* erstellt aber funktioniert nicht.
Code:

Danke *wink.gif*

 

Code:

dies Code funktioniert auch nicht.
*mad.gif*