Combo Box Control

[hr833]

I'm sorry if this question sounds stupid to you.

I'm trying to create a combo box which can allow the user to choose the desired table to insert some records into. This is wat i have.. it doesn't work as it's something i just made up and tot i give it a try.

Private Sub Combo0_AfterUpdate(Cancel As Integer)
Dim Seltable As String
 
    Seltable = Me.Combo0.Column(1)
 
If Seltable = "CustData" Then
    DoCmd.RunSQL "INSERT INTO [CustData] SELECT * FROM Template"
End If
End Sub

Please and Thank you!!

[JConsulting]

I'm sorry if this question sounds stupid to you.

I'm trying to create a combo box which can allow the user to choose the desired table to insert some records into. This is wat i have.. it doesn't work as it's something i just made up and tot i give it a try.

Private Sub Combo0_AfterUpdate(Cancel As Integer)
Dim Seltable As String

Seltable = Me.Combo0.Column(1)

If Seltable = "CustData" Then
DoCmd.RunSQL "INSERT INTO [CustData] SELECT * FROM Template"
End If
End Sub

Please and Thank you!!

Try

CurrentDB.Execute "SELECT * INTO [CustData] FROM Template"
 

J

[hr833]

Try

CurrentDB.Execute "SELECT * INTO [CustData] FROM Template"
 

J

This will only work for one table right? how can u make [CustData] a varable so if the user were to choose a different table it will still work.

[JConsulting]

This will only work for one table right? how can u make [CustData] a varable so if the user were to choose a different table it will still work.

CurrentDB.Execute "SELECT * INTO " & me.combo0.column(1) & " FROM Template"
 
 and you might need ticks around the variable because it's a string
 
CurrentDB.Execute "SELECT * INTO '" & me.combo0.column(1) & "' FROM Template"