Mit VBA aus Excel eine Datenbank öffnen
21.12.2004 12:38:23
Christian
ich habe einen Code geschrieben, der Daten von Excel in eine Access-Datenbank schreibt. Da ich, nachdem die Daten in der Datenbank sind dort damit weiterarbeiten möchte, will ich, das mein Makro zum Schluß noch die besagte Datenbank öffnet und anzeigt.
Mein bisheriger Code:
Private Sub CommandButton3_Click()
Dim DB1 As Database
Dim RS1 As Recordset
Dim sMDBFile1 As String
Dim sPasswort1 As String
Dim b, x, UebNr As Double
Dim A, Z As String
sMDBFile1 = (ThisWorkbook.Path & "\Orientierungswerte.mdb")
Set DB1 = DBEngine.OpenDatabase(sMDBFile1)
Set RS1 = DB1.OpenRecordset(Name:="tblXWert", Type:=dbOpenDynaset)
b = Sheets("Tabelle1").Range("C25").Value
x = Sheets("Tabelle1").Range("C40").Value
A = Sheets("Tabelle1").Range("C12").Text
Z = Sheets("Tabelle1").Range("C13").Text
UebNr = Sheets("Tabelle1").Range("C24").Value
With RS1
.MoveFirst
.Edit
.Fields("b").Value = b
.Fields("x").Value = x
.Fields("AS").Value = A
.Fields("ZS").Value = Z
.Fields("UebNr").Value = UebNr
.Update
End With
End Sub
Vielen Dank für Eure Hilfe im Voraus
MfG
Christian