Supportnet / Forum / Anwendungen(Java,C++...)
Access und VBA - Bild Kopieren - Datei löschen
Frage
Hallo,
ich habe zwei Fragen zu Access mit VBA.
Ich habe eine Bilddatenbank, wo einige Daten und der Verweis auf das Bild gespeichert werden. Dazu gibt's dann noch eine Vorschau usw.
Jetzt habe ich einen Button zum Bild löschen gebastelt. Ist auch schön und gut, allerdings fragt Access nochmal nach, ob der Datensatz gelöscht werden soll. Ich habe in die Prozedur einfach das "kill" eingefügt. Allerdings löscht er das Bild natürlich immer, egal ob der Datensatz erhalten bleibt oder nicht. Nun meine Frage, was ich ändern muss, dass er nur dann das Bild löscht, wenn auch der Datensatz gelöscht wird.
Hier mal schnell der code der Prozedur:
[code]
Private Sub DeletePic_Click()
On Error GoTo Err_DeletePic_Click
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
Exit_DeletePic_Click:
Exit Sub
Err_DeletePic_Click:
MsgBox Err.Description
Resume Exit_DeletePic_Click
Kill (Me.Pfad) 'Wo muss es hin ?! :-)
End Sub
[/code]
Mein zweite Frage wäre: Wie kann ich das Bild in die Zwischenablage kopieren ?! Unter VBA gibt's ja kein Clipboard (wie in VB), so wie ich es verstanden hab. Text in die ZA bekomm ich wunderbar, aber wie geht's mit Bilddaten ?! Hat da jemand eine Idee ?! Soll auch auf einem Button liegen.
Danke an alle schonmal und einen schönen Tag
Phil
Antwort 1 von iPhil
Hallo,
das erste Problemhab ich schon gelöst, indem ich einfach die Warnungen für den Befehl abschalte
Funktioniert super.
Jetzt bräucht ich noch eine Idee, umd as Bild in die Zwischenablgae zu kopieren.
Danke und Grüße
Phil
das erste Problemhab ich schon gelöst, indem ich einfach die Warnungen für den Befehl abschalte
DoCmd.SetWarnings False
...
DoCmd SetWarnings True
Funktioniert super.
Jetzt bräucht ich noch eine Idee, umd as Bild in die Zwischenablgae zu kopieren.
Danke und Grüße
Phil
Antwort 2 von Armin
hallo, die za gibt es auch unter access:
wenn es nicht funktioniert, dann schaue hier
gruesse armin
' Zwischenablage
Me.<name deines ole-feldes>.SetFocus
DoCmd.RunCommand acCmdCopy
wenn es nicht funktioniert, dann schaue hier
gruesse armin

