Supportnet / Forum / Datenbanken

Hallo, wie kann ich in einem Modul Tabellenname und Spalte durch Variable ersetzen? Der Code hat etwa die Form. Dim tbl"Tabelle" As Recordset Do While Not tbl"Tabelle".EOF ............ tbl"Tabelle".Edit tbl"Tabelle"!"Spalte" = Wert tbl"Tabelle".Update tbl"Tabelle".MoveNext Loop Die Werte für "Tabelle" und "Spalte" bekomme ich auch schon aus einem Formular. Habe die Dinger halt unter A97 noch nicht zusammen bekommen. Gruß Dieter

Hi Dieter,

ein bißchen wirr ist Deine Frage schon, gell?

Versuch's mal mit folgendem Code:

Dim Mydb As Database, Myrs As Recordset, MyTbl As String, MyFld As String
Set Mydb = CurrentDb
MyTbl = "MeinTabellenname"
Set Myrs = Mydb.OpenRecordset(MyTbl)
If Myrs.Recordcount = 0 Then Exit Sub
'Nur für den Fall, daß keine Daten vorhanden sind
MyFld = "MeinFeldname"
Myrs.MoveFirst
Do While Not Myrs.EOF
  Myrs.Edit
  Myrs(MyFld) = Wert
  Myrs.Update
  Myrs.MoveNext
Loop
Myrs.Close

Sollte besser funktionieren.

Gruß

Johnny

Hallo Johnny,

danke für die Antwort, geht wunderbar. Werde beim nächsten mal versuchen die Frage deutlicher zu formulieren.

Viele Grüße
Dieter

• Typen unverträgliche Laufzeitfehlerehler 13 Sql
• acess problem
• outerjoin
• Modul auslösen durch Befehlsschaltfläche