数据类型出错 帮改改

caoshuxue

Private Sub 命令18_Click()

Dim dbs As Database

Dim rs As Recordset

Dim devicecnt As String

Set dbs = CurrentDb()

Set rs = dbs.OpenRecordset("select * from 成绩报表 where (名次) = '" & 名次 & "'")

If Not rs.EOF Then

dbs.Execute "update 成绩报表 set 语文 = " & 语文 & " where 名次= '" & 名次 & "'"

dbs.Execute "update 成绩报表 set 姓名1 = " & 姓名1 & " where 名次= '" & 名次 & "'"

Else

With rs

   .AddNew

  .Fields("名次") = 名次

  .Fields("语文") = 语文

  .Fields("姓名1") = 姓名1

  .Update

End With

End If

End Sub

sweetduck

dbs.Execute "update 成绩报表 set 语文 = '" & 语文 & "' where 名次= '" & 名次 & "'"

dbs.Execute "update 成绩报表 set 姓名1 = '" & 姓名1 & "' where 名次= '" & 名次 & "'"

caoshuxue

老师，咋不行