修改窗体时出现运行时错误'2001'求助

Royal　发表于：2010-02-21 16:36:11 　

复制

在制作时，按照教程一步一步完成，可是还是出现错误，找不到原因？

.表格只有WL_Id, WL_Name两个字段

##########调试指向以下代码：

########### 按结束时错误窗体如下：

按照教程，相应代码如下：

窗体：Frm_Wllb_child中代码

-------------------------------

Private Sub WL_Id_GotFocus()
On Error GoTo Err_WL_Id_GotFocus:
        selectstr = Me.WL_Id
        Forms!usysfrmMain!labFind.Tag = 1
        Forms!usysfrmMain!btnEdit.Tag = 999
Exit_WL_Id_GotFocus:
        Exit Sub
Err_WL_Id_GotFocus:
        Resume Exit_WL_Id_GotFocus

End Sub
-------------------------------------

窗体：Frm_Wllb_child_Edit中代码

---------------------------------

Private Sub Form_Load()
Me.RecordSource = "Select * FROM Tbl_WuLiaoLB Where WL_Id = '" & selectstr & "'"
End Sub

------------------------------------------

Top

麥田发表于：2010-02-21 20:37:15

变量声明了没?

Top

Royal 发表于：2010-02-21 23:03:26

已经申明了，问题是找到了，就是

Private Sub Form_Load()
Me.RecordSource = "Select * FROM Tbl_WuLiaoLB Where WL_Id = '" & selectstr & "'"
End Sub