Question

我是VBa的新手，我正在尝试通过构建或复制现有的vba表来学习。在这一个中，我在以下代码中收到错误：

Private Sub lstLookup_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
'declare the variables
Dim cPayroll As String
Dim I As Integer
Dim findvalue
'error block
On Error GoTo errHandler:
'get the select value from the listbox
For I = 0 To lstLookup.ListCount - 1
    If lstLookup.Selected(I) = True Then
        cPayroll = lstLookup.List(I, 1)
    End If
Next I
'find the payroll number
Set findvalue = Sheet2.Range("F:F").Find(What:=cPayroll, LookIn:=xlValues).Offset(0, -3)
'add the database values to the userform
cNum = 21
For X = 1 To cNum
    Me.Controls("Reg" & X).Value = findvalue
    Set findvalue = findvalue.Offset(0, 1)
Next
'disable adding
Me.cmdAdd.Enabled = False
Me.cmdEdit.Enabled = True
'error block
On Error GoTo 0
Exit Sub
errHandler::
MsgBox "An Error has Occurred  " & vbCrLf & "The error number is:  " _
       & Err.Number & vbCrLf & Err.Description & vbCrLf & _
       "Please notify the administrator"
End Sub

它给了我错误：＆＃34; 424需要对象＆＃34;

我似乎无法找到错误

有人可以帮助我吗？

提前致谢。

Answer 1

更改

Me.cmdAdd.Enabled = False
Me.cmdEdit.Enabled = True

到

Me.Controls("cmdAdd").Enabled = False
Me.Controls("cmdEdit").Enabled = True

错误424需要对象 - 似乎无法找到错误

1 个答案: