The consequence of chatting and writing a program (CTRL + C, CTRL + V) in the middle of the night, red 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 = commandid was too many minutes

Me. chkdoorapb. Enabled = zookeeper transaction 1

Me. chkdooropen. Enabled = zookeeper transaction 1

Me. chkholidayapb. Enabled = zookeeper

Me. chkpasswordapb. Enabled = commandid too many requests

End sub

'Load the group list and select different zones and doors with different checkboxes

Private sub loadlistgroup ()

On Error goto errorhandles:

Dim objrecord as new recordset