这样写哪里出错了?

Question

Dim x As Long
Dim tj As Long
Dim strSQL As String
Rs.Open "Select * From s Where id = '" & Text1.Text & "'", Conn, 1, 3
x = Rs("tj") + 1
Rs!tj = x
Rs.Update
运行后说无效使用NULL
该怎么改呢???

Answer 1

可能没有数据，所以会NULL。
必须判断是否存在Text1的数据。

Answer 2

影添加一个判断TEXT的循环语句，否则TEXT没值，系统默认为NULL