vb如何ACCESS中数字与输入数字相加

Question

比如说 一个字段为50  你在TEXT中输入20 然后在MSFHLEX总显示50+20 
怎么才能实现， 

Answer 1

sql="update 表名 set 字段名=字段名+"& cdbl(text1.text) &""
conn.execute sql

Answer 2

题目有些大，在在MSFHLEX中哪个格子显示也没说

Answer 3

Dim s As Integer
Private Sub Command1_Click()
Adodc1.Recordset.MoveFirst
Adodc1.Recordset.Find "书名=" & " '" & Text1 & " '"
If Adodc1.Recordset.EOF Then
MsgBox "无此书!", , "提示"
Else
s = Val(InputBox("请输入销售图书的数量", , "图书销售"))
Adodc1.Recordset.Fields("入库数量") = Adodc1.Recordset.Fields("入库数量") - s
End If
End Sub
代码是这样的， 可是数据无显示。我用的是MSHF显示ACCESS

Answer 4

Dim s As Integer
Private Sub Command1_Click()
Adodc1.Recordset.MoveFirst
Adodc1.Recordset.Find "书名=" & " '" & Text1 & " '"
If Adodc1.Recordset.EOF Then
MsgBox "无此书!", , "提示"
Else
s = Val(InputBox("请输入销售图书的数量", , "图书销售"))
Adodc1.Recordset.Fields("入库数量") = Adodc1.Recordset.Fields("入库数量") - s
End If
End Sub
 这个是我写的 但是不知道哪里错了。 请你帮我看下。 貌似那几天还能用。但是现在不能修改数据。

Answer 5

Else
s = Val(InputBox("请输入销售图书的数量", , "图书销售"))
Adodc1.Recordset.Fields("入库数量") = Adodc1.Recordset.Fields("入库数量") - s
Adodc1.Recordset.Update
Adodc1.RefreshEnd If