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 :P
[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]
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 ? :o
Vielleicht suchst Du sowas:
.
.
Me![Bild-Steuerelement-Name].Picture = strDatei
.
.
Wer das sagt? - Mein Prof. aber der ist auch sehr kompliziert =P - ich versuch mal gleich obs funktioniert ;-)
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 ;D
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.
Ja genau das wollte ich =) Dankeschön - so nun klappts auch ;-)
Ich bins wieder mal ;D
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 :D
Wer kann helfen?
Hallo,
Zitat
Zitatich 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?
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 ;D
Und in der Tabelle habe ich die jeweiligen Bild-Standorte schon festgelegt - wie man hoffentlich in dem Bild erkennen kann =)
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:
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
Super danke es funktioniert einwandfrei :D - 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 ;D
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? :)
Hallo,
weise der Bildeigenschaft einen Leerstring zu.
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.
Danke für die Hilfe und den Hinweis - man lernt ja noch dazu ::)
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 =)
Hallo,
das geht alles...,
Nimm die Prozedur "Sub Form_Current()" zum Anzeigen des Bildes und hinterlege bei den Schaltflächen den entspr. Cpde für den DS-Wechsel.
Das Formular muss an die Tabelle gebunden sein.
Statt die Form_Current-Prozedur zu benutzen kannst Du auch Folgendes machen:
--zunächst "Bild" in der Tabelle in z. B. "Produktbild" umbenennen
--In den Steuerelementinhalt des Bild-Steuerelementes schreiben:
=Currentproject.Path & [ProduktBild]
Danke :D meine "Datenbank" nimmt langsam Form an :)
Hab noch ein kleines Problem wenn ich die Daten welche ich in einem Formular auswähle in einem Bericht anzeigen möchte.
Sprich wenn ich auf Drucken gehe soll er mir eine Berichtvorschau anzeigen.
Habe folgenden Code:
Private Sub cmddrucken_Click()
On Error GoTo Zu_Fehler
Dim stDocName As String
stDocName = "berProduktvariante"
DoCmd.OpenReport stDocName, acPreview
Exit_Fehler:
Exit Sub
Zu_Fehler:
MsgBox Err.Description, vbInformation, "Fehler"
Resume Exit_Fehler
End Sub
Fehlt mir da noch eine Deklaration die speziell auf den Inhalt der Felder zugreift??
LG Kathrin
Achso ich hab jetzt mal versucht meine Galerie zu machen komme allerdings bei deinem Ausdruck
Zitatentspr. Cpde für den DS-Wechsel.
nicht weiter. Was meinst du genau damit? :-\
Hallo,
Anzeige des im Formular aktuellen Datensatzes:
DoCmd.OpenReport stDocName, acPreview,,"Produktid=" & Me!produktid
Zitat
entspr. Code für den DS-Wechsel.
(sorry für den Tippfehler...)
Code für den Datensatzwechsel..:
Docmd.GotoRecord,,acPrevious
Docmd.GotoRececord,, acNext
Genau so hab ich das auch aber ich glaub ich hab da wieder irgendwas nicht richtig eingegeben :-\
Sub Form_Current()
If Dir(Me!Bildatei) <> "" Then
Me!Bild.Visible = True
Me!Bild.Picture = Me!Bilddatei
Else
Me!Bild.Visible = False
End If
End Sub
Also Me!Bild.Picture ist ja das Bild aber ich habe in diesem Fall ja keine Bilddatei, oder steh ich auf dem Schlauch ::)
Ach und für die Pfeile hab ich das jetzt so deklariert
Private Sub cmdLinks_Click()
DoCmd.GoToRecord , , acPrevious
End Sub
Private Sub cmdrechts_Click()
DoCmd.GoToRecord , , acNext
End Sub
Hallo,
im Code fehlt die Berücksichtigung des aktuelle DB-Verzeichnisses (CurrentProject.Path)..
Aber nimm doch mal die Lösung mit der Zuweisung zum Steuerelementinhalt des Bild-St.-El.
--In den Steuerelementinhalt des Bild-Steuerelementes schreiben:
=Currentproject.Path & [ProduktBild]
Wenn ich das mache - passiert: nix :-[
Das aber auch kompliziert ::)
Da kommt am Bild dann ein Ausrufezeichen mit dem Hinweiß "Zirkelbezug" und "Ungültige Eigenschaft des Steuerelementes"
Hallo,
lad mal die DB hier hoch, und zwar das Verzeichnis , in der die DB sich befindet und ein/zwei Bilder dazu. Die DB vorher reparieren/komprimieren und das Ganze zippen..
Kann ich auch ne E-Mail senden ? :P Gezippt hab ich Datei aber die Datei ist ja so groß und ich weiß grad nicht wie ich das mit dem Verzeichnis machen soll :-\ Bin nicht so bewandert auf dem Gebiet :(
Hi,
naja, ausnahmsweise:
http://www.access-o-mania.de/forum/index.php?topic=6969.0
Ich kann zwar nicht "programmieren" aber ich kann super Kekse backen ;D ich schick dir gerne paar rum, als Dank für die tolle Hilfe ;)
Mail ist Unterwegs. "frmProduktgalerie" und "tblProduktgalerie" gehören zusammen :)
Hallo,
Da komm ich glatt darauf zurück ;) :) :)
Mail ist beantwortet..