ich will den Inhalt einer Zelle bei bestimmter Tabelle in Access 2010 auslesen und so eine neue Tabelle erstellen.
Bin am Anfang davon und so sieht der Code erstmal aus
Public Sub find_value() Dim Ergebnis As Variant Dim db As DAO.Database Dim fn As Variant Set db = CurrentDb() Set tb = db.OpenRecordset("Buchindex") fn = "Buchindex" Ergebnis = db.OpenRecordset(fn, dbOpenSnapshot)(2) MsgBox (Ergebnis) createtbl (Ergebnis) Set db = Nothing End Sub Public Function createtbl(Ereignis As Variant) Dim db As DAO.Database Dim tbl As TableDef On Error GoTo TabelleErstellen_Err Set db = CurrentDb Set tbl = db.CreateTableDef(Ereignis) MsgBox ("test") With tbl .Fields.Append .CreateField("Essenschip", dbLong) .Fields.Append .CreateField("Vorname", dbText, 50) .Fields.Append .CreateField("Nachname", dbText, 50) .Fields.Append .CreateField("Ausleihdatum", dbDate) .Fields.Append .CreateField("RückgabeDatum", dbDate) End With db.TableDefs.Append tbl TabelleErstellen_Exit: Set tbl = Nothing Set db = Nothing Exit Function TabelleErstellen_Err: If Err.Number = 3010 Then MsgBox "Die Tabelle existiert bereits." GoTo TabelleErstellen_Exit End If End Function
Fragen:
Der Wert wird auch richtig angezeigt, aber nur vom ersten Datensatz. Ich habe im Moment 2 Bücher eingetragen, aber er zeigt mit nur den mit der Autowertfeld "ID" 1 eins. Wie komme ich zur letzten Zeile beim Sub find_value?
Mit freundlichen Grüßen
Sepultura