Daten in eine Userform einlesen und dann
in Zelle A3 bis A8 ausgeben.
mit folgendem makro kannst du eine db öffnen. über rs kannst du dann auf die datensätze zugreifen.
mfg
Sub database()
Dim objDB As Object
Dim db As Database
Dim rs As Recordset
Set objDB = CreateObject("DAO.DBEngine.36")
Set db = objDB.OpenDatabase("c:\adressen.mdb")
Set rs = db.OpenRecordset("adressentabelle")
With rs
.MoveNext
.AddNew
userform.label1 = rs("Name")
rs("Date") = Date
.Update
End With
rs.Close
db.Close
Set objDB = Nothing
Set db = Nothing
Set rs = Nothing
End Sub
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen