[已OK]以前没有在VBA中写过追加查询的东东

真主

Dim Px3 As Integer
    Px3 = Me.序
    DoCmd.RunSQL "INSERT INTO A_CB_001产品工艺 ( 所属产品ID, 序, N ) SELECT A_CB_001产品工艺.所属产品ID, Px3, DMax("N","A_CB_001产品工艺","所属产品ID=Forms!C_CB_001产品主表!产品ID")+1 AS 最大值 FROM A_CB_001产品工艺 WHERE A_CB_001产品工艺.所属产品ID=[Forms]![C_CB_001产品主表]![产品ID] AND A_CB_001产品工艺.序=[Forms]![C_CB_001产品主表]![C_CB_001产品工艺]![序]"

Henry D. Sy

把例子传上来，看的晕晕的。

真主

1. Dim Px3 As Integer
   
2. Px3 = Me.序
   
3. DoCmd.OpenQuery "B_CB_301插入点加1"
   
4. DoCmd.RunSQL "INSERT INTO A_CB_001产品工艺 ( 所属产品ID, 序, N ) SELECT A_CB_001产品工艺.所属产品ID, Px3, DMax("N","A_CB_001产品工艺","所属产品ID=Forms!C_CB_001产品主表!产品ID")+1 AS 最大值 FROM A_CB_001产品工艺 WHERE A_CB_001产品工艺.所属产品ID=[Forms]![C_CB_001产品主表]![产品ID] AND A_CB_001产品工艺.序=[Forms]![C_CB_001产品主表]![C_CB_001产品工艺]![序]"
   
5. ' DoCmd.SetWarnings True '打开系统提示
   
6. Me.Recalc '重算

复制代码

我想完成的功能如下：
1、将当前行的序存为PX3
2、用更新查询“B_CB_301插入点加1”将序>=当前的全部加1
3、通过追加查询追加一行数据，追加的3个值分别是( 所属产品ID, 序, N )
所属产品ID=当前行的所属产品ID
序=PX3
N=所属产品ID相同的，N的最大值+1
4、重算，
因为我是按序进行排序的，从而达到插入的功能，但追加查询DoCmd.RunSQL "......"，我写的不对，请帮忙看看

aslxt

试一试：
DoCmd.RunSQL "INSERT INTO A_CB_001产品工艺 ( 所属产品ID, 序, N ) SELECT A_CB_001产品工艺.所属产品ID, Px3, DMax('N','A_CB_001产品工艺','所属产品ID=" & Forms!C_CB_001产品主表!产品ID & ")+1 AS 最大值 FROM A_CB_001产品工艺 WHERE A_CB_001产品工艺.所属产品ID=" & [Forms]![C_CB_001产品主表]![产品ID] & " AND A_CB_001产品工艺.序=" & [Forms]![C_CB_001产品主表]![C_CB_001产品工艺]![序]

真主

还是不行，看来一个简单的插入功能我也搞不定，唉........

Henry D. Sy

DoCmd.RunSQL "INSERT INTO A_CB_001产品工艺 ( 所属产品ID, 序, N ) SELECT A_CB_001产品工艺.所属产品ID, " & Px3 & ", DMax('N','A_CB_001产品工艺','所属产品ID=Forms!C_CB_001产品主表!产品ID')+1 AS 最大值 FROM A_CB_001产品工艺 WHERE A_CB_001产品工艺.所属产品ID=[Forms]![C_CB_001产品主表]![产品ID] AND A_CB_001产品工艺.序=[Forms]![C_CB_001产品主表]![C_CB_001产品工艺]![序]"

aslxt

你的表要求产品工艺ID有索引（无重复），所以insert into的时候还要为产品工艺ID赋予一个值！

真主

谢谢，OK了