Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit
GELÖST

PDF aus Access-Datenbank löschen

Frage Microsoft Microsoft Office

Mitglied: Anna2701

Anna2701 (Level 1) - Jetzt verbinden

01.04.2014 um 11:53 Uhr, 1255 Aufrufe, 9 Kommentare, 1 Danke

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?
Mitglied: colinardo
01.04.2014, aktualisiert um 12:28 Uhr
Hallo Anna, willkommen im Forum.
Einfach in deinem Formular z.B. einen Button erstellen und Ihm diesen Code zuweisen:
01.
Kill pdflink.Hyperlink.Address
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
Bitte warten ..
Mitglied: Anna2701
01.04.2014 um 13:12 Uhr
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? ^^
Bitte warten ..
Mitglied: colinardo
01.04.2014 um 13:14 Uhr
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 ?
Bitte warten ..
Mitglied: Anna2701
01.04.2014 um 13:34 Uhr
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?
Bitte warten ..
Mitglied: colinardo
01.04.2014, aktualisiert um 13:48 Uhr
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?

01.
 On Error Resume Next 
02.
    Set fso = CreateObject("Scripting.FileSystemObject") 
03.
    filePath = pdflink.Hyperlink.Address 
04.
    fso.DeleteFile filePath, True 
05.
    If Err Then 
06.
        MsgBox "Beim Löschen ist ein Fehler aufgetreten: " & Err.Description 
07.
    Else 
08.
        If Not fso.FileExists(filePath) Then 
09.
            MsgBox "Datei wurde erfolgreich gelöscht" 
10.
        Else 
11.
            MsgBox "Datei wurde nicht gelöscht" 
12.
        End If 
13.
    End If
Bitte warten ..
Mitglied: Anna2701
01.04.2014 um 13:51 Uhr
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
Bitte warten ..
Mitglied: colinardo
01.04.2014, aktualisiert um 13:54 Uhr
Zitat von Anna2701:

Es funktioniert nicht Ist das so richtig?
nein , lass die Kill-Zeile
Kill TxtHyperlinkDokument.Hyperlink.Address
weg ....
das selbe macht jetzt:
fso.DeleteFile filePath, True
Bitte warten ..
Mitglied: Anna2701
01.04.2014 um 14:08 Uhr
DAAAAANKEE!!! :D:D
Bitte warten ..
Mitglied: colinardo
01.04.2014 um 14:10 Uhr
Wenns das dann war, den Beitrag bitte noch auf gelöst setzen. Merci.
Grüße Uwe
Bitte warten ..
Ähnliche Inhalte
Datenbanken
gelöst MS Access Datenbank (18)

Frage von endada zum Thema Datenbanken ...

Sonstige Systeme
gelöst Mit PDF Parser Content Splitter in Datenbank schreiben (1)

Frage von Zero01 zum Thema Sonstige Systeme ...

Datenbanken
gelöst Eine Datenbank LogDatei lässt sich nicht Löschen (10)

Frage von MultiStorm zum Thema Datenbanken ...

Datenbanken
Automatisierter täglicher Import einer Access Datenbank in SQL (5)

Frage von RichterS zum Thema Datenbanken ...

Neue Wissensbeiträge
Windows Installation

Unorthodoxer Weg, um an einen Offline-Installer für Adobe Flash zu kommen

(8)

Tipp von beidermachtvongreyscull zum Thema Windows Installation ...

Datenschutz

Gefährdeter Datenschutz: Firefox löscht lokale Datenbanken nicht

(1)

Information von BassFishFox zum Thema Datenschutz ...

Firewall

PfSense OpenVPN beschleunigen

Tipp von Dobby zum Thema Firewall ...

Utilities

CCleaner 5.33 mit Malware infiziert

(27)

Information von SeaStorm zum Thema Utilities ...

Heiß diskutierte Inhalte
Utilities
CCleaner 5.33 mit Malware infiziert (27)

Information von SeaStorm zum Thema Utilities ...

Festplatten, SSD, Raid
gelöst Problem mit DELL 815R Server und Windows Bluescreen (24)

Frage von Leo-le zum Thema Festplatten, SSD, Raid ...

Windows Systemdateien
Windows bootet nicht mehr Fehlermeldung 0xc0000098 (19)

Frage von franzgoerlich zum Thema Windows Systemdateien ...

Windows Netzwerk
Dateien mit Intelligenz per GPO ins Programmverzeichnis (14)

Frage von erwin.t zum Thema Windows Netzwerk ...