Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

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

Inhalte aus Word-Formularfeldern in Access Datenbank schreiben

Frage Entwicklung VB for Applications

Mitglied: Mandy1675

Mandy1675 (Level 1) - Jetzt verbinden

27.02.2007 um 12:30 Uhr, 5642 Aufrufe

Hi,

ich habe eine dot-Vorlage erstellt, in der es mehrere Formularfelder gibt. Diese sollen mittels Knopfdruck (in Tabelle speichern) in eine Access-Datenbank gespeichert werden.

Ich hatte mal eine ähnliche Aufgabe und habe versucht das Makro anzupassen, leider erfolglos.

Hier mein Code:

Sub speichern()
On Error Resume Next
frmSaveData.Show
End Sub

Sub Transfer_Data()
Dim db As DAO.Database
Dim strSQL As String 'SQL-String
Dim aFN(4) As String 'Array mit 5 Feldern

With ActiveDocument
aFN(0) = .FormFields("Eingang_Poststelle").Result 'Eingangsdatum Poststelle
aFN(1) = .FormFields("Eingang_Abteilung").Result 'Eingangsdatum Abteilung
aFN(2) = .FormFields("F_nnam").Result 'Nachname Betroffener
aFN(3) = .FormFields("F_vnam").Result 'Vorname Betroffener
aFN(4) = .FormFields("F_kvnr").Result 'KVNR Betroffener
End With

Set db = DBEngine.Workspaces(0).OpenDatabase("c:\ws_pv.mdb")
strSQL = "insert into tblWS_PV (kvnr, chg_date, eingang_poststelle, eingang_abteilung, name_vers, vorname_vers) " & _
"values ('" & aFN(4) & "', '" & Date & "', '" & _
aFN(0) & "', '" & aFN(1) & "', '" & _
aFN(2) & "', '" & aFN(3) & "')"

db.Execute (strSQL)
Unload frmSaveData
MsgBox ("Es wurde " & db.RecordsAffected & " Datensatz gespeichert.")
db.Close
End Sub

Ich habe das Ausführen des Makros an ein Formularfeld geknüpft und das geht auch. Die Datenbanktabelle gibt es natürlich auch.

Ich hoffe ihr könnt mir helfen.

Danke.


mandy
Ähnliche Inhalte
Datenbanken
gelöst MS Access Datenbank (18)

Frage von endada zum Thema Datenbanken ...

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

Frage von RichterS zum Thema Datenbanken ...

Datenbanken
Bilder mit heutigem Datum aus Access-Datenbank exportieren (1)

Frage von janelsaesser zum Thema Datenbanken ...

Neue Wissensbeiträge
Linux Netzwerk

Ping und das einstellbare Bytepattern

(1)

Erfahrungsbericht von LordGurke zum Thema Linux Netzwerk ...

Windows Update

Microsoft Update KB4034664 verursacht Probleme mit Multimonitor-Systemen

(3)

Tipp von beidermachtvongreyscull zum Thema Windows Update ...

Viren und Trojaner

CNC-Fräsen von MECANUMERIC werden (ggf.) mit Viren, Trojanern, Würmern ausgeliefert

(4)

Erfahrungsbericht von anteNope zum Thema Viren und Trojaner ...

Heiß diskutierte Inhalte
SAN, NAS, DAS
MSA 2050 RAID Konfig (30)

Frage von Leo-le zum Thema SAN, NAS, DAS ...

Microsoft Office
Office Druck fehler (18)

Frage von DaistwasimBusch zum Thema Microsoft Office ...

Festplatten, SSD, Raid
Uninitialisierte Festplatte - Daten retten (11)

Frage von peterla zum Thema Festplatten, SSD, Raid ...

Netzwerkmanagement
Windows Server 2008 R2: "netsh reset" nicht verfügbar? (11)

Frage von RickTucker zum Thema Netzwerkmanagement ...