9
PDF aus Access-Datenbank löschen
Hallo zusammen,
ich habe eine Acces Datenbank in der es eine Spalte mit ID's gibt und eine Spalte mit Hyperlinks die zu einer PDF führen. Ich würde gerne eine Mini-Anwendung schreiben mit der ich die PDF aus dem Hyperlink löschen kann. Könnt ihr mir da vielleicht helfen?
ich habe eine Acces Datenbank in der es eine Spalte mit ID's gibt und eine Spalte mit Hyperlinks die zu einer PDF führen. Ich würde gerne eine Mini-Anwendung schreiben mit der ich die PDF aus dem Hyperlink löschen kann. Könnt ihr mir da vielleicht helfen?
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 234189
Url: https://administrator.de/contentid/234189
Printed on: April 19, 2024 at 10:04 o'clock
9 Comments
Latest comment
Hallo Anna, willkommen im Forum.
Einfach in deinem Formular z.B. einen Button erstellen und Ihm diesen Code zuweisen:
hierbei ist pdflink der Spaltenname in dem der Hyperlink steht. Ich gehe hier davon aus das dein Hyperlink ein Ziel im Dateisystem ist, worauf du Löschrechte hast.
Grüße Uwe
Einfach in deinem Formular z.B. einen Button erstellen und Ihm diesen Code zuweisen:
Kill pdflink.Hyperlink.AddressGrüße Uwe
1
Ich möchte am liebsten, dass ich dem Programm sagen kann, ich möchte für diese ID den Hyperlink löschen.
Verstehst du was ich meine? ^^
Verstehst du was ich meine? ^^
Zitat von @Anna2701:
Ich möchte am liebsten, dass ich dem Programm sagen kann, ich möchte für diese ID den Hyperlink löschen.
Verstehst du was ich meine? ^^
willst du jetzt nur den Recordset löschen oder das PDF hinter dem Link ?Ich möchte am liebsten, dass ich dem Programm sagen kann, ich möchte für diese ID den Hyperlink löschen.
Verstehst du was ich meine? ^^
Alles gut, dein Code funktioniert super! Danke! 
Ich habe jetzt eine Schaltfläche mit deinem Code, würde gerne nachdem ich die Schaltfläche angeklickt habe, prüfen ob die Datei wirklich gelöscht ist. Geht das irgendwie?
Ich habe jetzt eine Schaltfläche mit deinem Code, würde gerne nachdem ich die Schaltfläche angeklickt habe, prüfen ob die Datei wirklich gelöscht ist. Geht das irgendwie?
Zitat von @Anna2701:
Alles gut, dein Code funktioniert super! Danke!
Ich habe jetzt eine Schaltfläche mit deinem Code, würde gerne nachdem ich die Schaltfläche angeklickt habe,
prüfen ob die Datei wirklich gelöscht ist. Geht das irgendwie?
Alles gut, dein Code funktioniert super! Danke!
Ich habe jetzt eine Schaltfläche mit deinem Code, würde gerne nachdem ich die Schaltfläche angeklickt habe,
prüfen ob die Datei wirklich gelöscht ist. Geht das irgendwie?
On Error Resume Next
Set fso = CreateObject("Scripting.FileSystemObject")
filePath = pdflink.Hyperlink.Address
fso.DeleteFile filePath, True
If Err Then
MsgBox "Beim Löschen ist ein Fehler aufgetreten: " & Err.Description
Else
If Not fso.FileExists(filePath) Then
MsgBox "Datei wurde erfolgreich gelöscht"
Else
MsgBox "Datei wurde nicht gelöscht"
End If
End If
Es funktioniert nicht 
Ist das so richtig?
Private Sub CmdDokumentlöschen_Click()
Kill TxtHyperlinkDokument.Hyperlink.Address
On Error Resume Next
Set fso = CreateObject("Scripting.FileSystemObject")
filePath = TxtHyperlinkDokument.Hyperlink.Address
fso.DeleteFile filePath, True
If Err Then
MsgBox "Beim löschen ist ein Fehler aufgetreten: " & Err.Description
Else
If Not fso.FileExists(Path) Then
MsgBox "Datei wurde erfolgreich gelöscht"
Else
MsgBox "Datei wurde nicht gelöscht"
End If
End If
End Sub
Ist das so richtig?Private Sub CmdDokumentlöschen_Click()
Kill TxtHyperlinkDokument.Hyperlink.Address
On Error Resume Next
Set fso = CreateObject("Scripting.FileSystemObject")
filePath = TxtHyperlinkDokument.Hyperlink.Address
fso.DeleteFile filePath, True
If Err Then
MsgBox "Beim löschen ist ein Fehler aufgetreten: " & Err.Description
Else
If Not fso.FileExists(Path) Then
MsgBox "Datei wurde erfolgreich gelöscht"
Else
MsgBox "Datei wurde nicht gelöscht"
End If
End If
End Sub
nein , lass die Kill-Zeile
weg ....
das selbe macht jetzt:
Kill TxtHyperlinkDokument.Hyperlink.Address
das selbe macht jetzt:
fso.DeleteFile filePath, True
DAAAAANKEE!!! :D:D
Wenns das dann war, den Beitrag bitte noch auf gelöst setzen. Merci.
Grüße Uwe
Grüße Uwe
