Access交流中心

北京 | 上海 | 天津 | 重庆 | 广州 | 深圳 | 珠海 | 汕头 | 佛山 | 中山 | 东莞 | 南京 | 苏州 | 无锡 | 常州 | 南通 | 扬州 | 徐州 | 杭州 | 温州 | 宁波 | 台州 | 福州 | 厦门 | 泉州 | 龙岩 | 合肥 | 芜湖 | 成都 | 遂宁 | 长沙 | 株洲 | 湘潭 | 武汉 | 南昌 | 济南 | 青岛 | 烟台 | 潍坊 | 淄博 | 济宁 | 太原 | 郑州 | 石家庄 | 保定 | 唐山 | 西安 | 大连 | 沈阳 | 长春 | 昆明 | 兰州 | 哈尔滨 | 佳木斯 | 南宁 | 桂林 | 海口 | 贵阳 | 西宁 | 乌鲁木齐 | 包头 |

方法和数据成员未找到

alex  发表于:2010-11-25 13:25:47  
复制

Private Sub Command14_Click()
Dim qdf As DAO.QueryDef 'qdf被定义为一个查询定义对象
    Dim strWhere, strSQL As String
   
    strWhere = Me.维修档案子窗体.Form.Filter
    If strWhere = "" Then
        '没有条件
        strSQL = "SELECT * FROM [西讯维修档案查询]"
    Else
        '有条件
        strSQL = "SELECT * FROM [西讯维修档案查询] WHERE " & strWhere
    End If
   
    Set qdf = CurrentDb.QueryDefs("西讯维修档案查询导出")
    qdf.SQL = strSQL
    qdf.Close
   
    Set qdf = Nothing
   
    DoCmd.OutputTo acOutputQuery, "西讯维修档案查询导出", acFormatXLS, , True

   
End Sub

 

 

 

 

蓝色部分写着方法和数据成员未找到,这个是在编辑里面出现的。我是个ACC菜鸟,从来没介入过,请教高手帮忙!

 

 

续Private Sub cmd查询_Click()
 
 Dim strWhere As String  '定义条件字符串
   
    strWhere = "" '设定初始值-空字符串
   
    '判断【书名】条件是否有输入的值
    If Not IsNull(Me.客户编号) Then
        '有输入
        strWhere = strWhere & "([khdm] like '" & Me.客户编号 & "') AND "
    End If
 
    '判断【类别】条件是否有输入的值
    If Not IsNull(Me.车牌号) Then
        '有输入
        strWhere = strWhere & "([c_ser] like '" & Me.车牌号 & "') AND "
    End If

  
     If Not IsNull(Me.日期自) Then
       
        strWhere = strWhere & "([提醒日期] >= #" & Format(Me.日期自, "yyyy-mm-dd") & "#) AND "
    End If
    If Not IsNull(Me.日期至) Then
      
        strWhere = strWhere & "([提醒日期] <= #" & Format(Me.日期至, "yyyy-mm-dd") & "#) AND "
    End If

   
    If Len(strWhere) > 0 Then
        '有输入条件
        strWhere = Left(strWhere, Len(strWhere) - 5)
    End If
   
    '让子窗体应用窗体查询
    Me.保养周期子窗体.Form.Filter = strWhere
    Me.保养周期子窗体.Form.FilterOn = True
   
  

Exit_cmd查询_Click:
    Exit Sub

Err_cmd查询_Click:
    MsgBox Err.Description
    Resume Exit_cmd查询_Click
   
End Sub

Private Sub cmd清除_Click()
 Me.客户编号 = Null
    Me.车牌号 = Null
    Me.日期自 = Null
     Me.日期至 = Null
 Me.保养周期子窗体.Form.Filter = ""
    Me.保养周期子窗体.Form.FilterOn = False
End Sub

 


Private Sub Command9_Click()
On Error GoTo Err_Command9_Click


    DoCmd.Close

Exit_Command9_Click:
    Exit Sub

Err_Command9_Click:
    MsgBox Err.Description
    Resume Exit_Command9_Click
   
End Sub


Private Sub Form_Close()

End Sub

Private Sub Form_Open(Cancel As Integer)
End Sub

 

Private Sub 窗体页眉_Click()

End Sub

 


Private Sub 主体_Click()

End Sub

 

这个表里面保养周期子窗体是**的,显示输入的表达式引用了一个关闭或不存在的对象!然后我点击菜单--调试--编辑保养提醒后才弹出上面的那个蓝色的,提示方法和数据成员未找到。请教高手!

 

Top
麥田 发表于:2010-11-25 14:01:27
你的窗体里面相应的控件名称与代码不一致  把控件名称改成保养周期子窗体

总记录:1篇  页次:1/1 9 1 :