请帮助看看这些语句中那个地方有错误？

yanwei82123300

请帮助看看这些语句中那个地方有错误？每次运行系统提示编译错误
Private Sub Release_Status_AfterUpdate() If Me.Release_Status = True Then Me.Release_Date = Date Else Me.Release_Date = "" End If If MsgBox("pls, sure release this order ?", vbInformation + vbYesNo) = vbNo Then Me.Release_Status = False Exit Sub End If Dim DB As DAO.Database Set DB = CurrentDb Dim SQLText As String Dim step As Integer step = 1 SQLText = "INSERT INTO [PaiChan_REMOTE] (Team, Release_Date,Remark,CO_NO,Line_No,CO_Item,QTY,Serial_No,Desc,PROM_DATE,Release_Status)" SQLText = SQLText + "SELECT Forms![paichan]![Team] AS [Team], Release_Date AS [Release_Date], Remark AS [Remark], CO_NO AS [CO_NO],Line_No as [Line_No],CO_Item as [CO_Item],qty as [qty],Serial_No as [Serial_No],Desc as [Desc],PROM_DATE as [PROM_DATE],Release_Status as [Release_Status];" CurrentDb.Execute.SQLText Me.Release_Status.Locked = True End Sub

yanwei82123300

thank you

aslxt

这是检查sql语句的提示，你可以把msgbox sqltext 删掉即可

yanwei82123300

aslxt老师非常感谢您的帮助，还有一个小问题每次点击时会出现如图的提示，是什么原因？

aslxt

7# yanwei82123300
见附件，我把Serial_No设为非主键后，一切正常

yanwei82123300

去掉后提示编译错误，能否帮助修改一下附件例子，谢谢

aslxt

5# yanwei82123300
1、你的代码是这样：
Private Sub Release_Status_AfterUpdate()
Private Sub Release_Status_AfterUpdate()
...
应该删掉一个，变为：
Private Sub Release_Status_AfterUpdate()
...
2、你的表Serial_No字段为主键，不能直接引用窗体的数据，防止可能的重复
3、SQLText的值应该是下列描述（如果直接引用Serial_No的话）
  SQLText = "INSERT INTO [PaiChan_REMOTE] (Team, Release_Date,Remark,CO_NO,Line_No,CO_Item,QTY,Serial_No,[Desc],PROM_DATE,Release_Status) "
  SQLText = SQLText + "values (" & """" & Team & """" & ", #" & Nz(Release_Date, Date) & "#,  " & """" & Nz(Remark, "") & """" & "," & """" & CO_NO & """" & "," & """" & Line_No & """" & "," & """" & CO_Item & """" & "," & QTY & "," & """" & Serial_No & """" & "," & """" & Desc & """" & ",#" & PROM_DATE & "#," & Release_Status & ")"

yanwei82123300

我已将附件上传，请老师们帮助修改，谢谢

yanwei82123300

系统提示有错误请帮助看看

aslxt

这样能够通过编译：
Private Sub Release_Status_AfterUpdate()
  If Me.Release_Status = True Then
    Me.Release_Date = Date
  Else
    Me.Release_Date = ""
  End If
  If MsgBox("pls, sure release this order ?", vbInformation + vbYesNo) = vbNo Then
    Me.Release_Status = False
    Exit Sub
  End If
  Dim DB As DAO.Database
  Set DB = CurrentDb
  Dim SQLText As String
  Dim step As Integer
  step = 1
  SQLText = "INSERT INTO [PaiChan_REMOTE] (Team, Release_Date,Remark,CO_NO,Line_No,CO_Item,QTY,Serial_No,Desc,PROM_DATE,Release_Status)"
  SQLText = SQLText + "SELECT Forms![paichan]![Team] AS [Team], Release_Date AS [Release_Date], Remark AS [Remark], CO_NO AS [CO_NO],Line_No as [Line_No],CO_Item as [CO_Item],qty as [qty],Serial_No as [Serial_No],Desc as [Desc],PROM_DATE as [PROM_DATE],Release_Status as [Release_Status];"
  CurrentDb.Execute SQLText
  Me.Release_Status.Locked = True
End Sub