[5分]在做变速箱时能够按照报销管理系统思路做吗?

我在学习变速箱时没有按照范例去做,我而是按照报销管理系统思路去做,屡屡出现问题,有时修改没有数据,有时点击修改没有反应,不知道这是怎么回事.范例中在新增窗体中首先判断有无别人输了同样的编号,而报销管理系统没有该项判断,是因为在报销管理系统中新增窗体中没有自动生成编号:AutoSetupID.所以在做变速箱时我是按照报销管理系统做的,但在供应商代码中修改按钮怎么不起作用.其代码如下:

Private Sub 供应商代码_GotFocus() '这段代码是在frmCode_gys_child窗体中
    On Error GoTo Err_供应商代码_GotFocus
    selectstr = Me.供应商代码
    Forms!usysfrmMain!labFind.Tag = 1
    Forms!usysfrmMain!btnEdit.Tag = 999
Exit_供应商代码_GotFocus:
    Exit Sub
Err_供应商代码_GotFocus:
    Resume Exit_供应商代码_GotFocus
End Sub

下面代码是在frm_gys_child_Edit中:

Private Sub Form_Load()
Me.RecordSource = "select * from tblCode_gys where tblCode_gys.gysid = '" & selectstr & "'"
g_CurrentSelectStrID = selectstr
End Sub

Private Sub ToolbarFrm_ButtonClick(ByVal Button As Object)
    On Error Resume Next
    If IsNull(Me.gysmc) Then
        MsgBox "请输入供应商名称!", vbCritical, "提示"
        Me.gysmc.SetFocus
        Exit Sub
    End If
   
   If IsNull(Me.Lxr1) Then
        MsgBox "请输入联系人1!", vbCritical, "提示"
        Me.Lxr1.SetFocus
        Exit Sub
    End If
  
    Me.Refresh
    DoCmd.Echo False
    Forms!usysfrmMain!frmChild.SourceObject = "frmCode_gys_child"
    DoCmd.Echo True
    DoCmd.Close acForm, "frmCode_gys_child_Edit"
    Forms!usysfrmMain!frmChild.Form.TimerInterval = 300

问题是:点击修改要么没有反应,要么弹出修改窗体其中窗体中的文本框没有相应数据,敬请各位老师给予解决,谢谢了.

点击下载此附件