Hallo,
hab eine Frage bezüglich "ALTER TABLE"
Sub TabellenFelderZugeben()
Dim db As DAO.Database
Dim tbd As DAO.TableDef
Dim strSQL As String
Dim strTable As String
strTable = InputBox("Geben Sie die Tabelle ein", "CSV_Datem")
Set db = CurrentDb
Set tbd = db.TableDefs(strTable)
'Zufügen von neuen Tabellenfeldern!
db.Execute "ALTER TABLE " & strTable & " ADD COLUMN Mnummer TEXT(255)"
Set db=nothing
End Sub
Der Code funktioniert auch aber wenn ich eine Tabelle mit einen Namen wie z.B. "1011_01-12-2018" verwende bekomme ich einen Fehler.
Darf eine Tabelle nicht solchen Namen bei einer ALTER TABLE anweisung haben?
Oder muß ich da etwas anderes beachten.
Danke
Zitat von: silentwolf am März 11, 2019, 12:46:36
Der Code funktioniert auch aber wenn ich eine Tabelle mit einen Namen wie z.B. "1011_01-12-2018" verwende bekomme ich einen Fehler.
Wie immer bei "seltsamen" Name von Tabellen, Felder, Irgendwas, sollte ein solcher Name in eckige Klammern gesetzt werden.
Hallo PhilS,
danke ja das hab ich auch gerade probiert und ja stimmt dann funktioniert der Code.
Vielen Dank
Zusätzlich:
ZitatOder muß ich da etwas anderes beachten.
Kannst Du die Frage beantworten, wie es weiter geht? Ein von einem User vergebener Tabellenname (fehleranfällig) bzw. dann auch die Tabelle dazu wird wie in der folgenden Verarbeitung berücksichtigt?
Hallo Eberhard,
ich habe mir eine function geschrieben die mir die Tabelle in "[" "]" einschließt.
Und scheint zu funktionieren.
Aber ich bin natürlich sehr interessiert welchen Ansatz Du machen würdest.
Gruß
@silentwolf
Eberhard meinte wohl eher dies
strTable = InputBox("Geben Sie die Tabelle ein", "CSV_Datem")
gruss ekkehard
Hallo,
die Inputbox ist im Moment ist es nur zum testen. Ich muß mir noch Gedanken darüber machen wie ich es genau aufbauen möchte.
Schönen Gruß