Microsoft Office Tutorials and References
In Depth Information
4.1.5 Mitarbeiterzufriedenheitsbefragung
Abbildung 4.39: Datenbank mit drei Tabellen
Stellen Sie sicher, dass im VBA-Editor unter Extras/Verweise der
Eintrag Microsoft DAO 3.6 Object Library aktiviert ist. Diese Bib-
liothek wird für den Zugriff auf die Datenbank benötigt.
Stop ......
Sub DatenSenden()
' Variablen dimensionieren und zuweisen
Dim db As DAO.database, rs As DAO.Recordset, i As Integer
Dim strPfad As String, strDatei As String, shFB As Worksheet, strMText As String
Set shFB = ThisWorkbook.Worksheets("Fragebogen")
strPfad = ThisWorkbook.Sheets("Fragebogen").Range("E1")
strDatei = ThisWorkbook.Sheets("Fragebogen").Range("E2")
strMText = "Ihre Fragebogendaten wurden erfolgreich" _
& vbCr _
& "in die Datenbank übertragen." _
& vbCr & "Vielen Dank!"
' Datenbank und Tabelle öffnen
Set db = OpenDatabase(strPfad & "\" & strDatei)
Set rs = db.openrecordset("Antworten")
i = 8
' Schleife bis Zeile 49
Do While i < 50
If shFB.Cells(i, 1) <> "" Then
With rs
' Neuer Datensatz
.AddNew
' Daten in die Felder der Tabelle schreiben
Search JabSto ::




Custom Search