Debugging Error 380

[forrestgump1980]

Hi All,

I really can't understand this but i have the same code in 2 files. It works in on 1 file but not on the other and both are saved in the same file location. The error I keep getting is 380 the code I am using is below. The error occurs at this point of the code:

Me.Controls("Reg" & x).Value = findvalue

Private Sub lstLookup_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
'Unprotect Sheet
    Sheet1.Unprotect

'declare the variables
    Dim sessionID 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
            sessionID = lstlookup.Value
           
        End If
    Next i
    'find the session ID number
    Set findvalue = Sheet1.Range("B:B").Find(What:=sessionID, LookIn:=xlValues)
    'add the database values to the userform
    cNum = 20
    For x = 1 To cNum
        Me.Controls("Reg" & x).Value = findvalue
        Set findvalue = findvalue.Offset(0, 1)
    findvalue.EntireRow.Select
    Next
    'disable adding
    'Me.CmdAdd.Enabled = False
    'Me.CmdSave.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"
'Protect Sheet
    Sheet1.Protect

End Sub

Any ideas or help greatly appreciated as always.

Cheers,

forrestgump1980

[romperstomper]

What kind of control is it, what's the value of the variable when the code breaks?

[forrestgump1980]

the value of the variable is one of the following (MK-1, MK-33, MK-44), the control is a combobox. Thanks for your help.

[forrestgump1980]

I think it has something to do with this code here:

Private Sub Reg1_Change()

' Declare the values
Dim sessionCode As String
Dim findvalue As Range

' Define the variable
sessionCode = Reg1.Value

' Set the search range
Set findvalue = Sheet7.Range("B:B").Find(What:=sessionCode, LookIn:=xlValues)

' Link the active cell with the fruit and offset twice, then link offset to textboxs
Me.Reg1.Value = findvalue.Value
Me.Reg2.Value = findvalue.Offset(0, 1).Value
Me.Reg3.Value = findvalue.Offset(0, 2).Value
Me.Reg4.Value = findvalue.Offset(0, 3).Value
Me.Reg5.Value = findvalue.Offset(0, 4).Value
Me.Reg25.Value = findvalue.Offset(0, 6).Value
Me.Reg26.Value = findvalue.Offset(0, 7).Value
Reg25.Value = Format(Reg25.Value, "$#,###,###")
End Sub

[romperstomper]

I mean what is the actual value when the code breaks, not what you think it should be.

Are the values you are trying to assign contained in the lists for each control?

[forrestgump1980]

I have actually managed to resolve the code to sort out the issue:

Private Sub lstLookup_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
'Unprotect Sheet
    Sheet1.Unprotect

'declare the variables
    Dim sessionID As Integer
    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
            sessionID = txtlookup.Value
           Range("C1").Value = lstlookup.Value
        End If
    Next i
    'find the session ID number
    Set findvalue = Sheet1.Range("B:B").Find(What:=sessionID, LookIn:=xlValues)
 findvalue.Select
    'add the database values to the userform
      
    Me.Reg1 = ActiveCell.Offset(0, 1).Value
    Set findvalue = Sheet1.Range("B:B").Find(What:=sessionID, LookIn:=xlValues)
   
    CNum = 31
    For x = 0 To CNum
    Me.Controls("Reg" & x).Value = ActiveCell.Offset(0, x).Value
    Set findvalue = Sheet1.Range("B:B").Find(What:=sessionID, LookIn:=xlValues)
    Set findvalue = findvalue.Offset(0, 1)
    Next
    
    'disable adding
    'Me.CmdAdd.Enabled = False
    'Me.CmdSave.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"
'Protect Sheet
    Sheet1.Protect

End Sub

Thank you for all your help. It got me back on the right lines. Cheers