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?
Auf Facebook teilen
Auf Twitter teilen
Auf Reddit teilen
Auf Linkedin teilenBitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 234189
Url: https://administrator.de/contentid/234189
Ausgedruckt am: 22.11.2024 um 18:11 Uhr
9 Kommentare
Neuester Kommentar
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
