代码求助,请高手帮忙,谢谢!

bjyutong

Private Sub Command7_Click()
On Error GoTo Err_Command7_Click
Dim zy As String
    zy = "
UPDATE 准备 SET 准备.备注 = iif(准备.本金=0,"补偿金","退款")
WHERE 准备.备注 is null;"
DoCmd.RunSQL zy
Exit_Command7_Click:
    Exit Sub
Err_Command7_Click:
    MsgBox Err.Description
    Resume Exit_Command7_Click

bjyutong

通过一个笨方法解决了,希望大能有好的解决方法提供给我,谢谢!

Private Sub Command7_Click()
On Error GoTo Err_Command7_Click
    Dim gx As String
    Dim gx2 As String
   
    gx = "update 准备 set 准备.备注 = '补偿金' where 准备.本金=0 and 准备.备注 is null;"
    gx2 = "update 准备 set 准备.备注 = '退款' where 准备.本金<>0 and 准备.备注 is null;"
   
    DoCmd.RunSQL gx
    DoCmd.RunSQL gx2
   Exit_Command7_Click:
    Exit Sub
Err_Command7_Click:
    MsgBox Err.Description
    Resume Exit_Command7_Click
   
End Sub

rjacky

你原来的代码并没有什么问题呀,和你2楼的效果是一样的

bjyutong

3# rjacky

谢谢版主!