Fehler "StrDatei"

[Mirrortears]

Ich werd noch verrückt - habe eine Datenbank als Beispiel aber wenn ich die Datensätze kopiere und in meine neue Datenbank einfüge meckert das Programm. Habe schon alles kontrolliert - Bezeichnung, Defenition ect. kennt jemand eine einfache Lösung.
Möchte eigentlich nur das wenn ich einen Datensatz aufrufe auch ein Bild dazu erscheint. (Kann ja nicht so schwer sein, oder?) Und ja habe auch schon gegoogled und leider nicht schlauer geworden 

[strPfadname = Trim(.SelectedItems.Item(1))
        Me![txtBildpfad].Visible = True
        Me![txtBildpfad].SetFocus
        strDatei = Right(strPfadname, Len(strPfadname) - Len(CurrentProject.Path))
        Me![txtBildpfad].Text = strDatei
        Me![Bemerkungen].SetFocus
        Me![txtBildpfad].Visible = False
    End If
    End With]

[DF6GL]

Hallo,

Bild anzeigen?  Mit der Zuweisung eines Strings an die Text-Eigenschaft eines Textfeldes?  Wo hast Du denn das her?


Und: Wer sagt denn ,dass googlen schlau macht ?   

Vielleicht suchst Du sowas:

Code [Auswählen] Erweitern


.
.
Me![Bild-Steuerelement-Name].Picture =  strDatei
.
.


[Mirrortears]

Wer das sagt? - Mein Prof. aber der ist auch sehr kompliziert =P - ich versuch mal gleich obs funktioniert ;-)

[Mirrortears]

Gibt es eigentlich auch nen ganz simplen Code fürs Bild anzeigen ohne OLE? Also sprich ich leg mir eine Tabelle an - Produkte und Produktbilder - so und wenn ich nun im Formular das Produkt wähle er gleichzeitig eine Vernüpfung mit einem Bild herstellt. Aber aus einem externen Bilderordner? 

Wenn jemand da noch was weiß, wäre das traumhaft 

[DF6GL]

Hallo,

wie kommst Du (hier) auf OLE?

Der Vorschlag macht doch prinzipiell genau das, was Du willst:  Anzeigen eines Bildes, das als Datei in irgendeinem Verzeichnis gespeichert ist...

Vermutlich suchst Du die Möglichkeit, beim Anzeigen eines Datensatzes in einem Formular neben den Tabellendaten auch ein Bild aus einer Datei anzuzeigen.

Dafür benutzt man das Form_Current-Ereignis, um in dessen Ereignisprozedur den Bild-Dateipfad, der in einem Tabellenfeld hinterlegt ist, dem eben genannten Steuerelement zuzuweisen.

Sub Form_Current()

If Dir (Me!Bildatei) <> "" then
Me!Bild1.Visible=true
Me!Bild1.Picture = Me!Bilddatei
Else
Me!Bild1.Visible=False
End if

End Sub


Es ist in neueren Access-Versionen auch möglich, einfach das Bild-Steuerelement an das Tabellenfeld  (Steuerelementinhalt erhält den Tabellenfeldnamen ) zu binden, das den Bild-Dateipfad enthält.

[Mirrortears]

Ja genau das wollte ich =) Dankeschön - so nun klappts auch ;-)

[Mirrortears]

Ich bins wieder mal 
Neues Problem hoffentlich bald eine Lösung.
Folgendes es geht wieder um Bilder - langsam frag ich mich ob man die nicht weglassen kann 
Naja wie dem auch sei ich habe ja gestern schon den tollen Tipp mit der Prozedur beim Öffnen des Formulares bekommen.
Nun meine Frage ich habe das Formular und eine Box in der ich die Namen wählen kann um das Bild zu laden - ich habe den Code auch schon so weit das er ein einzelnes Bild anspricht aber wie bekomme ich da eine Tabellenspalte rein? 
Im Anhang hab ich mal den entsprechenden Code (für das anzeige eines Bildes) mein Formularaufbau und meine Produkttabelle 
Wer kann helfen?

[DF6GL]

Hallo,

ich habe den Code auch schon so weit das er ein einzelnes Bild anspricht aber wie bekomme ich da eine Tabellenspalte rein?

??


Im Bild sehe ich nur ein Bild-Steuerelement und ein ungebundenes Kombi..


Was soll jetzt wann und wie angezeigt werden?

[Mirrortears]

Also im Kombifeld stehen die Produktnamen - Körbchen, Sitzkissen ect.
Und zu jedem Produkt gibt es ein Bild das angezeigt werden soll sobald ich den jeweiligen Namen angewählt habe 
Und in der Tabelle habe ich die jeweiligen Bild-Standorte schon festgelegt - wie man hoffentlich in dem Bild erkennen kann =)

[DF6GL]

Hallo,

ja, das sehe ich..

Wenn ich es nun richtig verstehe, willst Du nach Auswahl eines Produktnamens das dazu gehörende Bild anzeigen.

Den dafür passenden Code habe ich Dir doch schon gezeigt,  es muss lediglich  in diesem Fall die Ereignis-Prozedur für "Nach Aktualisierung" des Kombifeldes benutzt werden.

btw:  Wenn beim gespeicherten Bildnamen der Verzeichnispfad fehlt, so ist der im Code vorher zu ergänzen.


In etwa so:

Code [Auswählen] Erweitern


Sum cmbKombi1_AfterUpdate()

If Dir (Currentproject.Path & Me!cmbKombi1.Column(2)) <> "" then
Me!Bild.Visible=true
Me!Bild.Picture = Currentproject.Path  & Me!cmbKombi1.Column(2)
Else
Me!Bild.Visible=False
End if

End Sub

Wobei die Eigenschaften Datensatzherkunft des Kombis so lauten sollten:

Datensatzherkunft: Select ProduktID, Produktname,Bild from tblProdukte
Spaltenanzahl: 3
Spaltenbreiten: 0cm; 5cm; 3cm

[Mirrortears]

Super danke es funktioniert einwandfrei - aber meinst du es ist nötig den "jpg" Namen in der Kombobox mit anzuzeigen? Ich finde nur den Namen schöner
Aber danke nochmal für die tolle Hilfe 

[Mirrortears]

Mal noch ne banale Frage gibt es nen einfachen Code ein Bild auch wieder zu bereinigen. Sprich wenn ich eine neue Schaltfläche "Neuer Eintrag"  ?
Hab für den Datensatz folgenden Code:
Private Sub Neuer_Eintrag_Click()
DoCmd.RunCommand acCmdRecordsGoToNew
End Sub
Gibts das auch für das Bild wenn es mit auf der gleichen Seite erscheinen soll? 

[MzKlMu]

Hallo,
weise der Bildeigenschaft einen Leerstring zu.

Code [Auswählen] Erweitern

Private Sub Neuer_Eintrag_Click()
    DoCmd.RunCommand acCmdRecordsGoToNew
    Me!Bild.Picture = ""
End Sub

PS:
Bitte unterlasse diese unleserlichen Codeformatierungen mit Schatten.
Verwende die Codetags des Forums, wie ich auch.

[Mirrortears]

Danke für die Hilfe und den Hinweis - man lernt ja noch dazu 

[Mirrortears]

Aber wo mir hier so toll geholfen wird vielleicht noch eine Frage für Heute
Wenn ich eine Galerie einbauen möchte mit schon fertigen Produkten. Kann man die Schaltfläche so programmieren das sie von Zeile zu Zeile (aus einer Tabelle heraus) springt?
Hab mal was gebastelt - die Pfeile sind lediglich Bilder mit einer transparenten Schaltfläche drüber =)