求助生成新表

yori2007

求助生成新表，我想生成一个以temp表的材料名称为字段，以窗体1中规格为命名的的新表，例如在规格中输入cjpj85/sc，就会生成个例子中cjpj85/sc那个表

ACMAIN_CHM

求助生成新表，我想生成一个以temp表的材料名称为字段，以窗体1中规格为命名的的新表，例如在规格中输入cjpj85/sc，

select 'cjpj85/sc' as spec, * into newTable from temp


******************
*  一切皆有可能  *
******************
.
同一贴子不回复第二次
.
QQ群 48866293 / 12035577 / 7440532 / 13666209
http://forum.csdn.net/BList/OtherDatabase .
http://www.accessbbs.cn/bbs/index.php .
http://www.accessoft.com/bbs/index.asp .
http://www.access-programmers.co.uk/forums .
http://www.office-cn.net .
.
http://www.office-cn.net/home/space.php?uid=141646 .

yori2007

已经做好了，不过又有个问题，就是我的temp表里是5个数据，生成的表就是五个字段，现在要是改成四个字段或者6个字段怎么做呢，求高手帮忙

Henry D. Sy

1，先把列表框多选设为简单
2

1. Private Sub Command2_Click()
   
2.     Dim FldNames As String
   
3.     Dim varI As Variant
   
4.     Dim strSQL As String
   
5.     For Each varI In Me.List0.ItemsSelected
   
6.         FldNames = FldNames & Me.List0.ItemData(varI) & " " & "Text ,"
   
7.     Next
   
8.     If IsNull(Me.Text5) Then
   
9.         MsgBox "请输入表名"
   
10.         Me.Text5.SetFocus
    
11.         Exit Sub
    
12.     ElseIf FldNames = "" Then
    
13.         MsgBox "请选择字段"
    
14.         Exit Sub
    
15.     Else
    
16.         FldNames = Left(FldNames, Len(FldNames) - 1)
    
17.     End If
    
18.     strSQL = "CREATE  TABLE " & Me.Text5 & "(" & FldNames & ");"
    
19.     CurrentDb.Execute strSQL
    
20. End Sub

复制代码