大家好我想请一个问题：一套比较完整仓库管理系统涯代码在生存仓库管理系统时出现以下提示,m_checkado编辑错误，未找到方法或成员！是什么问题？请高手解答。谢谢！

m_checkado  感觉是少了控件。

你在编辑状态下，点菜单里的 运行->全编译执行 ，看看错误出在那个窗体，然后找一下，看看错误出在哪个窗体上。
运行VB只会解释或编译所执行到的部分。

谢谢你的回答！试过了，点菜单里的 运行->全编译执行 同样的带有m_checkado 都是编辑错误，未找到方法或成员
    Me.m_checkado.RecordSource = "select * from 系统日志"
    Me.m_checkado.Refresh
   
    If Me.m_checkado.Recordset.RecordCount > 0 Then
        Me.m_checkado.Recordset.MoveLast
    End If
   
    Me.m_checkado.Recordset.AddNew
   
    Me.m_checkado.Recordset.Fields("用户名").Value = UserName
    Me.m_checkado.Recordset.Fields("操作时间").Value = Date + Time
    Me.m_checkado.Recordset.Fields("操作内容").Value = inf
   
    Me.m_checkado.Recordset.update
   
    Me.m_checkado.Refresh
   
End Function

Public Sub 更新自定义查询菜单()

    On Error GoTo quit
   
    fMainForm.m_checkado.RecordSource = "select * from 自定义查询"
    fMainForm.m_checkado.Refresh
   
    Dim count As Integer
    count = fMainForm.m_checkado.Recordset.RecordCount

    If count >= 1 Then
        M自定义一.Visible = True
        M自定义一.caption = fMainForm.m_checkado.Recordset.Fields("查询名称").Value
        
        If fMainForm.m_checkado.Recordset.EOF = False Then fMainForm.m_checkado.Recordset.MoveNext
    Else
        M自定义一.Visible = False
    End If
   
    If count >= 2 Then
        M自定义二.Visible = True
        M自定义二.caption = fMainForm.m_checkado.Recordset.Fields("查询名称").Value
        
        If fMainForm.m_checkado.Recordset.EOF = False Then fMainForm.m_checkado.Recordset.MoveNext
    Else
        M自定义二.Visible = False
    End If
   
    If count >= 3 Then
        M自定义三.Visible = True
        M自定义三.caption = fMainForm.m_checkado.Recordset.Fields("查询名称").Value
        
        If fMainForm.m_checkado.Recordset.EOF = False Then fMainForm.m_checkado.Recordset.MoveNext
    Else
        M自定义三.Visible = False
    End If
   
    If count >= 4 Then
        M自定义四.Visible = True
        M自定义四.caption = fMainForm.m_checkado.Recordset.Fields("查询名称").Value
        
        If fMainForm.m_checkado.Recordset.EOF = False Then fMainForm.m_checkado.Recordset.MoveNext
    Else
        M自定义四.Visible = False
    End If
   
    If count >= 5 Then
        M自定义五.Visible = True
        M自定义五.caption = fMainForm.m_checkado.Recordset.Fields("查询名称").Value
        
        If fMainForm.m_checkado.Recordset.EOF = False Then fMainForm.m_checkado.Recordset.MoveNext
    Else
        M自定义五.Visible = False
    End If
   
    If count >= 6 Then
        M自定义六.Visible = True
        M自定义六.caption = fMainForm.m_checkado.Recordset.Fields("查询名称").Value
        
        If fMainForm.m_checkado.Recordset.EOF = False Then fMainForm.m_checkado.Recordset.MoveNext
    Else
        M自定义六.Visible = False
    End If
   
    If count >= 7 Then
        M自定义七.Visible = True
        M自定义七.caption = fMainForm.m_checkado.Recordset.Fields("查询名称").Value
        
        If fMainForm.m_checkado.Recordset.EOF = False Then fMainForm.m_checkado.Recordset.MoveNext
    Else
        M自定义七.Visible = False
    End If
   
    If count >= 8 Then
        M自定义八.Visible = True
        M自定义八.caption = fMainForm.m_checkado.Recordset.Fields("查询名称").Value
        
        If fMainForm.m_checkado.Recordset.EOF = False Then fMainForm.m_checkado.Recordset.MoveNext
    Else
        M自定义八.Visible = False
    End If

补充说明：原来刚修改完后一切正常，过了几月后再打开看看就出现这种情况。

这是一个数据表对象。检查工程引用里，有没有错误出，感觉是引用的库丢失或不同造成的造成的。

If Me.m_checkado.Recordset.RecordCount > 0 Then
中间的Recordset拿掉 => Me.m_checkado.RecordCount
后面的部分也是.