[5分]报销管理中的报销类别窗体_修改和删除都不能用?

修改窗体代码

Option Compare Database

Private Sub cmdCancel_Click()
Me.Undo
DoCmd.Close acForm, Me.Name
End Sub

Private Sub cmdOK_Click()
    If IsNull(Me.lbmc) Then
        MsgBox "请输入报销类别!", vbCritical, "提示："
        Me.lbmc.SetFocus
        Exit Sub
    End If
    Me.Refresh
    DoCmd.Echo False
    Forms!usysfrmMain!frmChild.SourceObject = "frmBxlb_child"
    DoCmd.Echo True
    '触发子窗体计时器事件
    Forms!usysfrmMain!frmChild.Form.TimerInterval = 300
    DoCmd.Close acForm, Me.Name
End Sub

Private Sub Form_Load()
    Me.RecordSource = "SELECT * FROM tblCodeBxlb WHERE lbId = '" & selectstr & "'"
    g_CurrentSelectStrID = selectstr
End Sub

frmBxbl_child窗体代码

Option Compare Database

Private Sub Form_Timer()
    Acchelp_FindstrRecord (g_CurrentSelectStrID)
    '计时器执行一次后不再执行
    Me.TimerInterval = 0

End Sub

Private Sub lbID_GotFocus()
    On Error GoTo Err_lbId_GotFocus:
    selectstr = Me.lbId
    Forms!usysfrmMain!labFind.Tag = 1
    Forms!usysfrmMain!btnEdit.Tag = 999
Exit_lbId_GotFocus:
    Exit Sub
Err_lbId_GotFocus:
    Resume Exit_lbId_GotFocus

End Sub
Public Sub btnDel()
If MsgBox("您确认要删除吗?", vbYesNo + vbInformation, Forms!usysfrmLogin.Caption) = vbYes Then
  DoCmd.Echo False
  Call AccHelp_DeleteFldstrRow("tblCodeBxlb", "lbId", selectstr)
  Forms!usysfrmMain!frmChild.SourceObject = "frmBxlb_child"
  DoCmd.Echo True
End If
End Sub

所以应该不是您说的问题?是不是代码本身有问题啊?