MS-Office-Forum
Google
   

Zurück   MS-Office-Forum > Microsoft Access & Datenbanken > Microsoft Access
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

Antworten
Ads Der Renner, 11 Entwicklertools für Access, Tipps & Trick und offene Datenbanken zum einzigartigen Preis.
Themen-Optionen Ansicht
Alt 08.02.2018, 11:41   #1
BrunMi
MOF User
MOF User
Standard Acc2016 - Bild von Formular auf PC speichern

Hallo zusammen,

Ich hänge gerade bei einem vermeintlich einfachen Problem.
Ich habe in einem Formular ein Bild und würde dieses gerne über VBA auf dem Computer speichern.

Man sollte meinen, dass das möglich ist.
Irgendwie bekomme ich das aber einfach nicht hin.
Ich habe anfangs gedacht es gibt vielleicht einen Befehl wie

[code][/Bild01.SaveAs("C:Temphallo.jpg")CODE]

aber diesen Gedanken musste ich gleich wieder verwerfen.
Kann mir von euch jemand helfen?

Danke schonmal für jede Hilfe.

LG
BrunMi

__________________

Wenn Gott wollen würde, dass man USB Sticks sicher entfernt, würde es sicher in der Bibel stehen.
BrunMi ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 08.02.2018, 12:26   #2
ebs17
MOF Guru
MOF Guru
Standard

Screenshot von Formular auf Knopfdruck

__________________

Ein freundliches Glück Auf!

Eberhard

Abfrageperformance ist kein Geheimnis
SQL ist leicht: {0}:{1}:{2}:{3}:{4}:{5}:{6}:{7}:{8}:{9}:{10}
Dein Dankeschön: DBWiki=>Spende
ebs17 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 08.02.2018, 12:29   #3
CatboyJones
MOF User
MOF User
Standard

Code:

SaveAccessImage "C:\Temp\hallo.jpg", Me.Bild01.PictureData
Code:

Public Sub SaveAccessImage(sPath As String, bPicture() As Byte)

Open sPath For Binary Access Write As 1
Put 1, , bPicture
Close 1

End Sub

Gruss
Jones
CatboyJones ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 08.02.2018, 13:01   #4
Kyron9000
MOF Koryphäe
MOF Koryphäe
Standard

Hallo,

eine weitere Idee.

Wenn es nur einmalig ist...
kopiere das Formular, entferne alle Objekte, erstelle das Formular
bildschirmfüllend, rahmenlos,
klicke auf der Tastatur die Taste Drucken, dann kannst noch das Bild in einem
Bildbearbeitungsprogramm zuschneiden und speichern.

__________________

Gruß Alfred
Kyron9000 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 08.02.2018, 15:43   #5
BrunMi
Threadstarter Threadstarter
MOF User
MOF User
Standard

Hallo zusammen,

Danke für die Hilfe so weit.

@ebs17:
Ein Screenshot bringt mir nichts, weil ich das Logo als Bild speichern, es dann bei einer Excel Datei die ich über ein Makro erzeuge in die Kopfzeile einbinden und dann wieder löschen muss.
Leider kann man Bilder im Excel nur in Kopfzeilen einfügen, wenn diese irgendwo gespeichert sind..

@Jones:
Das Makro funktioniert bei mir nicht.. Der Code wird zwar ohne Fehler durchlaufen und es wird auch ein Bild angelegt, aber ich kann dieses Bild nicht öffnen. Wenn ich das Bild öffnen will kommt die Meldung "Das Foto oder Video kann nicht geöffnet werden. Möglicherweise wird die Datei nicht unterstützt, oder sie ist beschädigt"

@Kyron9000:
Ist leider nicht nur einmalig. Das Makro soll bei jedem der sich vom Formular eine Excel Datei erzeugen lässt das Bild speichern.

Hat einer von euch eine Idee warum beim Makro von Jones das Bild beschädigt ist?

Gruß,
Michael

__________________

Wenn Gott wollen würde, dass man USB Sticks sicher entfernt, würde es sicher in der Bibel stehen.
BrunMi ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 08.02.2018, 15:51   #6
el_gomero
MOF Koryphäe
MOF Koryphäe
Standard

Hallo,

Zitat:

Ein Screenshot bringt mir nichts, weil ich das Logo als Bild speichern, es dann bei einer Excel Datei die ich über ein Makro erzeuge in die Kopfzeile einbinden und dann wieder löschen muss.

Ein Excel-Template, das die Bilddatei bereits enthält könnte eine Alternative darstellen.

__________________

Gruß
Jürgen
el_gomero ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 08.02.2018, 16:08   #7
CatboyJones
MOF User
MOF User
Standard

Es sollte eigentlich so funktionieren.
Bei mir funktioniert es, aber erst seit dem 2. Aufruf.
Die erste Datei war 12 Bytes länger als das Original, die dem Bild
vorne angefügt waren. Sonderbar!
Ist das Original ein JPG?
CatboyJones ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 08.02.2018, 16:09   #8
BrunMi
Threadstarter Threadstarter
MOF User
MOF User
Standard

Hallo Gomero,

Daran dachte ich auch schon, aber ich exportiere meine Daten über

Code:

DoCmd.TransferSpreadsheet acExport, 8, "abf_Test", Pfad & "" & Dateiname, True
Ich habe nicht herausgefunden wie man diesen Befehl mit einem Template kombinieren kann.
Momentan gehe ich das Problem so an, dass ich zuerst eine Excel Datei aus dem Ergebnis einer Abfrage erzeuge und diese Datei dann so formatiere wie ich sie brauche.
Soweit funktioniert das auch alles ganz gut, das Problem ist eben nur das Logo und weil dieses auf meinem Formular vorhanden ist und auf den PCs wo die Datenbank gebraucht wird nicht, habe ich mir eben überlegt "einfach" dieses Logo kurz auf dem PC abzuspeichern, einzubauen und dann wieder zu löschen.

Die Frage ist nur: Wie?

LG
BrunMi

__________________

Wenn Gott wollen würde, dass man USB Sticks sicher entfernt, würde es sicher in der Bibel stehen.
BrunMi ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 08.02.2018, 16:15   #9
markusxy
MOF Koryphäe
MOF Koryphäe
Standard

Warum kannst du nicht auf das Orginal Bild zugreifen?
Immerhin muss das Bild ja verfügbar sein, um es anzuzeigen.

LG Markus
markusxy ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 08.02.2018, 16:19   #10
BrunMi
Threadstarter Threadstarter
MOF User
MOF User
Standard

Hallo nochmal,

@Jones:
Das Original war ein PNG.
Ich habe aber schon versucht das Makro auf png zu ändern was nicht funktionierte
Zusätzlich habe ich auch versucht das Original als jpg zu speichern und das Makro auch auf jpg zu ändern was auch nicht ging. Beide male der gleiche Effekt.
Bei mir hat das erzeugte Bild eine Gesamtgröße von 16 Byte..

Hast du eine Idee was ich falsch gemacht habe? Muss ich einen Verweis auf eine bestimmte Library setzen oder ähnliches?

LG
BrunMi

__________________

Wenn Gott wollen würde, dass man USB Sticks sicher entfernt, würde es sicher in der Bibel stehen.
BrunMi ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 08.02.2018, 16:20   #11
BrunMi
Threadstarter Threadstarter
MOF User
MOF User
Standard

Hallo Markus,

Das wäre mir neu..
Wenn ich in einem Access Formular ein Bild einfüge wird das Bild auch angezeigt wenn ich die Datenbank auf einem Computer öffne, auf dem das Bild nicht verfügbar ist..

LG
BrunMi

__________________

Wenn Gott wollen würde, dass man USB Sticks sicher entfernt, würde es sicher in der Bibel stehen.
BrunMi ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 08.02.2018, 16:24   #12
markusxy
MOF Koryphäe
MOF Koryphäe
Standard

Das Bild wird in der Datenbank gespeichert. Wie soll es denn sonst angezeigt werden?
Es gibt dafür eine Systemtabelle - weiß den Namen mangels aktuellem Access leider nicht. Aber da können andere sicher aushelfen.
markusxy ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 08.02.2018, 16:28   #13
BrunMi
Threadstarter Threadstarter
MOF User
MOF User
Standard

Hallo Markus,

Hast Recht, das klingt nach einem brauchbaren Ansatz.
Ich schau mal ob ich herausfinde, wo das Bild in der Datenbank gespeichert wird.

LG
BrunMi

__________________

Wenn Gott wollen würde, dass man USB Sticks sicher entfernt, würde es sicher in der Bibel stehen.
BrunMi ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 08.02.2018, 16:42   #14
el_gomero
MOF Koryphäe
MOF Koryphäe
Standard

Zitat:

Ich habe nicht herausgefunden wie man diesen Befehl mit einem Template kombinieren kann.

Das Template sollst du ja auch nicht erstellen, sondern mitliefern

__________________

Gruß
Jürgen
el_gomero ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 08.02.2018, 16:57   #15
CatboyJones
MOF User
MOF User
Standard

> Bei mir hat das erzeugte Bild eine Gesamtgröße von 16 Byte

Es scheint mir, dass das Bild nicht eingebettet ist.
Stell mal den Bildtyp auf Eingebettet.

Habe es jetzt auch mal mit A16 ausprobiert.
Die erzeugte Datei ist 12 Bytes größer. (auch bei mehreren Versuchen)
Bau ich ein CopyMemory ein und schneide die ersten 12 Bytes ab,
bevor ich den Rest speichere, dann ist die Datei 12 Bytes zu klein.
Speichere ich jetzt erneut die PictureData hat die Datei die richtige
Größe und das Bild ist ok.
Spuki!

Edit:
Der Unterschied ist, beim ersten Versuch habe ich direkt ein put 1,, Bild.PictureData
gemacht. -> Dann kommen die 12 Bytes dazu. Wenn ich PictureDate dem ByteArray übergebe,
dann passt die Grüße -> Man darf PictureData nicht direkt speichern. (Auch witzig)

Geändert von CatboyJones (08.02.2018 um 17:03 Uhr).
CatboyJones ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Ads
Antworten


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Besucher: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge anzufügen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

vB Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist An.
Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 07:03 Uhr.


Partner und Co.
Access-Paradies -Alles rund um die Datenbank Microsoft Access -Code -Programme-Tools -Tipps   Kostenlose Tipps & Tricks, Downloads und Programme   www.kulpa-online.com - Tipps - Tricks - Tutorials - Meinungen - Downloads uvm...   vb@rchiv · Willkommen in der Welt der VB Programmierung   Access-Garhammer - Hier finden Sie jede Menge Beispiel-Datenbanken zu Access und mehr ...   mcseboard.de   Die Top Seite für Excel-VBA-Makros uvm.

Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

Copyright ©2000-2010 MS-Office-Forum. Alle Rechte vorbehalten.
Copyright ©Design: Manuela Kulpa ©Rechte: Günther Kramer
Eine Verwendung der Inhalte in anderen Publikationen, auch auszugsweise,
ist ohne ausdrückliche Zustimmung der Autoren nicht gestattet.
Beachten Sie bitte auch unsere Nutzungsbedingungen.