create new column-name it from form field

[hyperionfall]

is there a way to create a new table and have it named from a field of a form such that the user can create the table and select the name from a dropdown or type in the name. the table needs to be created from a form function as well because the user will have no access to the design features its just a user control panel basically.
can this also be done with adding columns to a table.



thanks so much

lee

[maximus]

https://www.accessforums.net/forms/a...form-3936.html

Follow this link. I had posted this some times back.

If this solves your problem please mark the thread solved.

[hyperionfall]

thanks i will give it a try once i get into my office later today.

[hyperionfall]

"""I found the question very interesting and this is how you can do it.
I have a table called Table1
I have a Form called Form1
I have three text boxes in it
textBox1=you will type your Table name in it e.g. Table1
textbox3=you will type the field name you want to create e.g. Salary,Employee_Name
textbox5=you will type the field datatype e.g. Text, Number, Auto Number.
Command button 0=in its OnClick event you will type the following code:
Private Sub Command0_Click()
Dim TableName As String
Dim ColumnName As String
Dim Datatype As String
Dim MasterSQL As String

TableName = "ALTER TABLE" & " " & Me.Text1
ColumnName = "ADD COLUMN" & " " & Me.Text3
Datatype = Me.Text5 & ";"

MasterSQL = TableName & " " & ColumnName & " " & Datatype
DoCmd.RunSQL MasterSQL

End Sub




this is what i found on your other post. it looks like i can use that. was just wondering, i am not very code savy so here is my question.

where there is Me.XXXX to call the current form can i replace the Me to call a foriegn form. if so what would the syntax be? would it be Forms![formname].text1?

thanks

[maximus]

it will be Forms!Name of the Form!Name of the Field. this will be the syntax

[hyperionfall]

Thanks it worked awsome.
could you rename a table using this method?
i tried
Private Sub Command32_Click()
Dim TableName As String
Dim newname As String
Dim MasterSQL As String
TableName = "ALTER TABLE" & " " & Me.oldname
newname = "RENAME TO" & " " & Me.newname & ";"
MasterSQL = TableName & " " & newname
DoCmd.RunSQL MasterSQL
End Sub

but it gave me syntax errors

[hyperionfall]

got it...used docmnd.rename instead