请老师看看此代码哪里有问题

zhangweilinsh

Private Sub Command16_Click()
On Error GoTo Err_Command16_Click
Dim STemp As String
Dim Rs As ADODB.Recordset
Set Rs = New ADODB.Recordset
STemp = "Select * From 实际收费表"
Rs.Open STemp, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
    If Me![客户ID号] <> "" And Me![客户名称] <> "" And Me![发生期间] <> "" Then
        Rs.AddNew
        Rs("客户ID号") = Me![客户ID号]
        Rs("客户名称") = Me![客户名称]
        Rs("发生期间") = Me![发生期间]
        Rs("实收租金") = Me![实收租金]
        Rs("实收电费") = Me![实收电费]
        Rs("实收水费") = Me![实收水费]
        Rs("发票号码") = Me![发票号码]
        Rs("备注") = Me![备注]
        Rs.Update
        MsgBox "保存成功！", vbOKOnly, "财务部"
    Else
        MsgBox "客户ID号、客户名称、发生期间不能为空！", vbOKOnly, "警告"
        Me![客户ID号].SetFocus
    End If
    Set Rs = Nothing
Exit_Command16_Click:
    Exit Sub
Err_Command16_Click:
    MsgBox Err.Description
    Resume Exit_Command16_Click


出现“客户ID号、客户名称、发生期间不能为空”后“对象不支持该属性或方法”

feng16888

做个标记，等高手看

Renco

有没有实例发上来看看？