So funktioniert JustAnswer:

  • Fragen Sie einen Experten
    Tausende Experten in über 200 Kategorien.
  • Erhalten Sie eine professionelle Antwort
    Per E-Mail oder sofortiger Benachrichtigung, während Sie auf unserer Website warten.
    Stellen Sie ggf. weitere Anschlussfragen.
  • 100%ige Zufriedenheit garantiert
    Bewerten Sie die erhaltene Antwort.

Stellen Sie Ihre Frage an Tronic.

Tronic
Tronic, IT-Specialist
Kategorie: Computer
Zufriedene Kunden: 2269
Erfahrung:  Elektroniker und EDV-Service
31581453
Geben Sie Ihre Frage in der Kategorie Computer hier ein
Tronic ist jetzt online.

Betr: VBA Programmierung (Access 2013) Im Formular „Eingabe

Kundenfrage

Betr: VBA Programmierung (Access 2013)
Im Formular „Eingabe Artickel“ (Einzelnes Formular) habe ich zur Ladung der Produktbilder folgenden VBA Cod eingegeben : - siehe unten –
Eingabe und Anzeige ohne Probleme.
Frage
Mit welchem VBA Cod kann ich im Formular „Artikelübersicht“ (Endlosformular) alle Bilder anzeigen, ohne den entsprechenden Datensatz anzuklicken ?
Wenn dies möglich ist, dann bitte vollständigen VBA Cod zusenden.
Gruß
Ulrich Güttner – eMail Adresse: *****@******.***
VBA Cod
' Funktion um Bilder auszuwählen
Public Function getDatei(Default As String) As String
Dim TempStr
Dim meldOk
Set objFiledialog = Application.FileDialog(msoFileDialogOpen)
With objFiledialog
.AllowMultiSelect = False
.InitialFileName = Default
If .Show = True Then
getDatei = .SelectedItems(1)
Else
meldOk = MsgBox("Soll die Datei entfernt werden?", vbYesNo, "Löschen")
If meldOk = vbYes Then
getDatei = strDetailBilder
Else
getDatei = Default
End If
End If
End With
Set objFiledialog = Nothing
End Function
Private Sub bildle_DblClick(Cancel As Integer)
Me.bildfeld = getDatei(Nz(Me.bildfeld, strDetailBilder))
Me.bildfeld.Requery
Call Form_Current
End Sub
' Anzeige der Bilder und aktualisierung beim weiterblättern
Private Sub Form_Current()
Dim strBild As String
On Error GoTo Err_kein_Bild
If Me.bildfeld = "" Then
Me.bildle.Picture = strVorschau + "leer.jpg"
Else
Me.bildle.Picture = Me.bildfeld
End If
Exit_Bildanzeigen:
Exit Sub
Err_kein_Bild:
End Sub
Gepostet: vor 1 Jahr.
Kategorie: Computer
Experte:  IT-Fachinformatiker hat geantwortet vor 1 Jahr.

Hallo

in einem Endlosformular kann man so ohne weiteres gar keine Bilder anzeigen, da ein ungebundenes OLE-Steuerelement keine Möglichkeiten dafür vorsieht. Sie sehen stets das gleiche Bild oder gar kein Bild. Es gibt dort auch eine Control Source oder passende Methoden wie z.B. bei einer Textbox.

Das ActiveX-Steuerelement "MSFlexGrid" wäre aber eine Möglichkeit Bilder in einem Endlosformular anzuzeigen ich habe jedoch noch keinen Beispielcode aber das wäre ein Ansatz. Dies kann OLE-Daten / Blobdaten genauso aufnehmen wie Textdaten und verfügt über alle entsprechenden Methoden, um das Bild in einem Endlosformular anzuzeigen.

Die Alternative wäre nur den Pfad in der DB zu speichern und das Bild im OLE-Objekt dann zu laden, sobald der Pfad (und damit sich der Fokus) des Datensatzes ändert. Das klappt aber nur, wenn die Bilder nicht in der DB gespeichert sind. Wenn die Bilder in der DB liegen kann man das nur über das o.a. Steuerelement lösen aber man erzeugt einen Report das wäre ggf. auch eine Möglichkeit. Sie können aber auch direkt in der Tabelle als Datentyp "OLE-Objekt" wählen.

Gruß Günter

Kunde: hat geantwortet vor 1 Jahr.

Nein Danke

Experte:  IT-Fachinformatiker hat geantwortet vor 1 Jahr.

Hallo

in dem Fall gehe ich davon aus, das Sie die Frage nicht fortsetzen möchten und der Vorgang abgeschlossen werden kann.

Gruß Günter

Kunde: hat geantwortet vor 1 Jahr.

Hallo

Vielen Dank für die Beantwortung meiner Frage. Ich denke aber das der Aufwand zur Realisierung zu groß ist, so daß ich bei der Einzelbildanzeige bleibe.

Mit freundlichen Grüßen

Ulrich Güttner

ps. Ich möchte mich aber für später auftretende Probleme im Computerbereich gern wieder an JustAnswer wenden.

Experte:  IT-Fachinformatiker hat geantwortet vor 1 Jahr.
Hallo

der Aufwand wäre sehr groß das ist korrekt. OLE-Obekte sind wenn man sie frei plaziert ungebunden und ändern ihren Inhalt nicht. Es gibt bei "Access-Paradis" wohl eine Lösung jedoch muss man eine Beispiel CD erwerben außerdem ist diese Lösung wohl auch nicht so einfach umzusetzen. Ich persönlich speichere nur die Pfadnamen und binde das Bild auf diese Weise ein oder wenn sie integriert sind nutze ich entsprechende Reports und OLE-Felder für die Bilder. Vielen Dank für Ihr Feedback.

Gruß Günter

Bekannt aus:

 
 
 
„[...]mehr als Zehntausend Experten weltweit; 1500 davon in Deutschland. Acht Jahre nach dem Start ist das [...] Online-Unternehmen mit seinen 90 Mitarbeitern die größte Web-Seite für das Vermitteln von Experten von Anwälten über Ärzte bis hin zu Universitätsprofessoren.“
„Wer eine fachmänische Lösung für ein medizinisches, rechtliches oder technisches Problem sucht, kann das jetzt auch im Internet tun. Lebenshilfe auf die schnelle, unkomplizierte und vor allem erschwingliche Art bietet die Seite www.justanswer.de. Etwa 1500 Experten stehen per Mail für Fragen zu ca. 200 Fachgebieten rund um die Uhr zur Verfügung."
„Rat gewünscht? Rechtliche, medizinische oder allgemeine Fragen beantworten Experten unter www.justanswer.de."
„JustAnswer, die weltweit führende Online-Plattform für Expertenfragen und -antworten, bietet ab sofort noch mehr Sicherheit und Qualität für Verbraucher."
„Ob Vorbereitung, Notfall oder Reklamation nach dem Urlaub - JustAnswer bietet jederzeit schnelle, kompetente Antworten"
„Die Online-Plattform JustAnswer bringt Ratsuchende und Experten in über 200 Fachgebieten zusammen."
 
 
 

Was unsere Besucher über uns sagen:

 
 
 
  • Ich bedauere, dass ich nicht gleich bei Ihnen gelandet bin. Die Leerung des Cache hat das Problem gelöst. Danke Gerd Schönbuchner Grafrath
< Zurück | Weiter >
  • Ich bedauere, dass ich nicht gleich bei Ihnen gelandet bin. Die Leerung des Cache hat das Problem gelöst. Danke Gerd Schönbuchner Grafrath
  • Endlich ein Experte, der mir wirklich weiterhelfen konnte! DANKE! JustAnswer Kunde Taunusstein
  • Ihre Antwort hat mir sehr geholfen, die richtigen Entscheidungen zu treffen. Dass Sie mir darüber hinaus noch 2 Empfehlungen gegeben haben fand ich super. Vielen Dank! JustAnswer Kunde Freiburg
  • Die ausgearbeiteten Hilfen waren gut strukturiert, leicht verständlich und zu 100% hilfreich für mich. Vielen Dank Markus B. Karlsruhe
  • Sehr schnelle und kompetente Antwort, die für mich bares Geld bedeutet. Vielen Dank! S.Stober K.
  • Herzlichen Dank! Hab durch Ihre Antwort viel Geld gespart! Ben R. Deutschland
  • Sehr schnelle und kompetente Hilfestellung. Besonders für mich als Laien wurde alles sehr verständlich erklärt. Gerne wieder! Rosengl Bad Tölz
 
 
 

Lernen Sie unsere Experten kennen:

 
 
 
  • Tronic

    Tronic

    IT-Specialist

    Zufriedene Kunden:

    2269
    Elektroniker und EDV-Service
< Zurück | Weiter >
  • http://ww2.justanswer.com/uploads/PY/Pyroflash/2011-4-21_104934_tronic.64x64.jpg Avatar von Tronic

    Tronic

    IT-Specialist

    Zufriedene Kunden:

    2269
    Elektroniker und EDV-Service
  • http://ww2.justanswer.com/uploads/rufushoschi/2010-11-08_135947_bild.jpg Avatar von IT-Fachinformatiker

    IT-Fachinformatiker

    Systemadministrator

    Zufriedene Kunden:

    6338
    Software Entwicklung, Projekt Erfahrung, Windows-Netzwerke, Linux-Netzwerke, Windows/Linux-Server
  • http://ww2.justanswer.com/uploads/COMINAROSA/2010-02-03_172238_PASSBILD.JPG Avatar von COMIN IT-Service

    COMIN IT-Service

    Dipl.-Ing.

    Zufriedene Kunden:

    779
    Dipl.Ing (FH) ET, NT, IT
  • http://ww2.justanswer.com/uploads/RaubergerConcep/2010-03-02_102740_Portraet64.jpg Avatar von RaubergerConcept

    RaubergerConcept

    IT-Specialist

    Zufriedene Kunden:

    234
    Mehr als 10 Jahre Erfahrung in Softwareentwicklung und Netzwerktechnik
  • http://ww2.justanswer.com/uploads/LF/lfalkenburg/2015-2-8_01843_.64x64.jpg Avatar von Lutz Falkenburg

    Lutz Falkenburg

    IT-Specialist

    Zufriedene Kunden:

    96
    Seit über 20 Jahren beruflich im IT-/IUK-Bereich tätig. Egal ob EinzelPC der Netzwerk...
  • http://ww2.justanswer.com/uploads/BI/BigDaddyXD/2012-10-24_20126_WhySoSeriousJob.64x64.jpg Avatar von BigDaddyXD

    BigDaddyXD

    Informatiker

    Zufriedene Kunden:

    1588
    Microsoft Certified Professional, Microsoft Certified Desktop Support Technican,...
  • http://ww2.justanswer.com/uploads/PU/Pucky80/2011-5-14_54537_pucky80.64x64.jpg Avatar von Pucky80

    Pucky80

    IT-Systemkaufmann

    Zufriedene Kunden:

    1322
    MCITP (Microsoft Server 2008 Enterprise Administrator)
 
 
 

Ähnliche Fragen in der Kategorie Computer