UPDATE语句的语法错误,请问错在哪里?请师傅们请教!

jsf2008

Option Compare Database
Dim I As Integer
Dim a As Integer

Private Sub 确定_Click()
I = Me.Frm_nka.Form.CurrentRecord
Dim Strsql0 As String
Dim Strsql1 As String
Strsql0 = "UPDATE nka SET Y/N =" & Me![Y/N] & ",KJZG =" & Me![KJZG] & ",FKRQ =" & Me![FKRQ] & " WHERE NO=" & Me![NO]
Strsql1 = "DELETE NO FROM nka WHERE NO=" & Me![NO]
If a = 1 Then
   CurrentProject.Connection.Execute Strsql0
   Me.Frm_nka.Form.Requery
   MsgBox "已成功修改资料", vbInformation, "提示"
   Me.Frm_nka.Form.Recordset.Move I
End If
If a = 2 Then
  CurrentProject.Connection.Execute Strsql1
  Me.Frm_nka.Form.Requery
  MsgBox "已成功删除资料", vbInformation, "提示"
  If I <> 1 Then
     Me.Frm_nka.Form.Recordset.Move I - 1
  End If
End If
a = 0
Call FrmEnabled
End Sub
Private Sub 删除_Click()
a = 2
Call FrmEnabled
End Sub

Private Sub 修改_Click()
a = 1
Call FrmEnabled
End Sub
Private Sub Form_Load()
Call FrmEnabled
End Sub
Public Sub FrmEnabled()
Select Case a
Case Is = 0
   Me.删除.Enabled = True
   Me.修改.Enabled = True
   Me.修改.SetFocus
   Me.确定.Enabled = False
   
   Me.FKRQ.Locked = True
   Me.KJZG.Locked = True
   Me.Y_N.Locked = True
Case Is = 1
   Me.确定.Enabled = True
   Me.删除.Enabled = False
   Me.确定.SetFocus
   Me.修改.Enabled = False
   
   Me.FKRQ.Locked = False
   Me.KJZG.Locked = False
   Me.Y_N.Locked = False
Case Is = 2
   Me.确定.Enabled = True
   Me.修改.Enabled = False
   Me.确定.SetFocus
   Me.删除.Enabled = False
   
   Me.FKRQ.Locked = True
   Me.KJZG.Locked = True
   Me.Y_N.Locked = True
End Select
End Sub

Henry D. Sy

确定按钮不可用，不好测试。

jsf2008

先点修改就可以点确定了.各位版主帮帮忙好不好?求求你们了

Henry D. Sy

Strsql0 = "UPDATE nka SET Y/N =" & Me![Y/N] & ",KJZG ='" & Me![KJZG] & "',FKRQ =#" & Me![FKRQ] & "# WHERE NO=" & Me![NO]

jsf2008

4#师傅,你测试过吗?我复制过来测试还是一样的,请求师傅们帮帮忙

jsf2008

#加上去代表什么?

djt

Strsql0 = "UPDATE nka SET Y/N =" & Me![Y/N] & ",KJZG ='" & Me![KJZG] & "',FKRQ =#" & Me![FKRQ] & "# WHERE NO=" & Me![NO]
字符需要'，日期需要#,

aslxt

Strsql0 = "UPDATE nka SET Y/N =" & Me![Y/N] & ",KJZG ='" & Me![KJZG] & "',FKRQ =#" & Me![FKRQ] & "# WHERE NO=" & Me![NO]
字符需要'，日期需要#,
djt 发表于 2009-8-21 09:10

我也按你的方法测试过，有时可以更新，有时提示更新成功，单表中数据又没有更新，问题还在查找，不知你们测试中有无同样问题？

jsf2008

我也是一样的,删掉记录成功了,原表的类型改成数字就可以了,现在就是修改不了?原记录不会改变

djt

基本功不扎实，字段名最好不要用特殊符号Y/N要[Y/N]