半夜邊聊天邊寫程式(ctrl + C,ctrl + V)帶來的後果，紅色codes

            If objrecordtemp.RecordCount > 0 Then

                Set nodxtemp = Me.TreeViewFloorDoor.Nodes.Add(nodx.Tag, tvwChild, objrecordtemp.Fields(0).Value, objrecordtemp.Fields(1).Value)

                nodxtemp.Expanded = True

                nodxtemp.Image = 2

                nodxtemp.Tag = objrecordtemp.Fields(0).Value

                nodxtemp.Checked = False

            End If

        End If

        nodx = nodx.Next

    Wend

    If Me.TreeViewFloorDoor.Nodes.Count > 0 Then

        Me.TreeViewFloorDoor.Nodes(1).Selected = True

        Me.TreeViewFloorDoor.Nodes(1).Checked = False

        Call SetPopeDomEnabled(False)

    End If

    Set objrecord = Nothing

    Set objrecordtemp = Nothing

    Exit Sub

errorhandles:

    Set objrecord = Nothing

    Set objrecordtemp = Nothing

    Err.Raise Err.Number, Err.Source, Me.Caption & Err.Description

End Sub

Private Sub SetPopeDomEnabled(ByVal beanble As Boolean)

Me.ComboTimer.Enabled = ▄︻┻┳═一

Me.ChkDoorAPB.Enabled = ▄︻┻┳═一

Me.ChkDoorOpen.Enabled = ▄︻┻┳═一

Me.ChkHolidayAPB.Enabled = ▄︻┻┳═一

Me.ChkPasswordAPB.Enabled = ▄︻┻┳═一

End Sub

'載入群組列表,選中不同的防區和門的時候變化不同的checkbox

Private Sub LoadListGroup()

On Error GoTo errorhandles:

Dim objrecord As New Recordset