Office中國(guó)論壇/Access中國(guó)論壇

 找回密碼
 注冊(cè)

QQ登錄

只需一步,快速開(kāi)始

返回列表 發(fā)新帖
查看: 1959|回復(fù): 6
打印 上一主題 下一主題

[Access本身] 一個(gè)老問(wèn)題,關(guān)于aliimx.all 丟失問(wèn)題~!!!

[復(fù)制鏈接]
跳轉(zhuǎn)到指定樓層
1#
發(fā)表于 2011-5-24 10:27:16 | 只看該作者 回帖獎(jiǎng)勵(lì) |倒序?yàn)g覽 |閱讀模式

我在自己電腦上應(yīng)用系統(tǒng)沒(méi)有任何問(wèn)題,拷貝到另一臺(tái)電腦上出現(xiàn)aliimx.all  引用丟失問(wèn)題。在VB編輯器里重新引用后,系統(tǒng)可以運(yùn)行。但每當(dāng)點(diǎn)選一個(gè)窗體的窗體篩選時(shí)提示找不到項(xiàng)目,回頭察看該篩選引用的查詢發(fā)現(xiàn)sql內(nèi)容被清空,于是百思不得其解,請(qǐng)老師指點(diǎn),感激不盡~!!!該窗體篩選按鈕的vb編碼如下(感覺(jué)這里事情不大,是按照劉小軍老師的教程做的):
Private Sub 查詢_Click()
On Error GoTo Err_查詢_Click
    Dim strWhere As String  '定義條件字符串
    strWhere = "" '設(shè)定初始值-空字符串      
    If Not IsNull(Me.輸入) Then
               strWhere = strWhere & "([ID] like '*" & Me.輸入 & "*') or "
    End If
   
    If Not IsNull(Me.輸入) Then
              strWhere = strWhere & "([姓名] like '*" & Me.輸入 & "*') and "
    End If
   
    If Len(strWhere) > 0 Then
        
        strWhere = Left(strWhere, Len(strWhere) - 5)
    End If
   
    Debug.Print strWhere
   
    Me.顯示.Form.Filter = strWhere
    Me.顯示.Form.FilterOn = True

Exit_查詢_Click:
    Exit Sub
Err_查詢_Click:
    MsgBox Err.Description
    Resume Exit_查詢_Click
End Sub
分享到:  QQ好友和群QQ好友和群 QQ空間QQ空間 騰訊微博騰訊微博 騰訊朋友騰訊朋友
收藏收藏 分享分享 分享淘帖 訂閱訂閱
2#
 樓主| 發(fā)表于 2011-5-24 10:30:22 | 只看該作者
丟失的aliimx.all  文件,看路徑是阿里旺旺文件夾里的一個(gè)東西,真不明白,access程序引用的東西跟阿里旺旺有什么關(guān)系???郁悶~。!
3#
發(fā)表于 2011-5-24 10:52:07 | 只看該作者
按下Alt+F11進(jìn)入VBE界面,把這個(gè)dll庫(kù)刪除后保存即可運(yùn)行。
4#
 樓主| 發(fā)表于 2011-5-24 16:30:18 | 只看該作者
ding~~。
5#
 樓主| 發(fā)表于 2011-5-24 17:11:58 | 只看該作者
我進(jìn)一步發(fā)現(xiàn)原因出在只要我一打開(kāi)帶有此篩選按鈕的窗體,該窗體內(nèi)所引用的查詢sql內(nèi)容即被清空,郁悶
6#
 樓主| 發(fā)表于 2011-5-24 17:17:20 | 只看該作者
刪除aliimx.all 庫(kù) 后是可以運(yùn)行,但問(wèn)題是,為什么一運(yùn)行那個(gè)窗體就刪我查詢表里的所有內(nèi)容。
7#
發(fā)表于 2011-5-27 10:38:20 | 只看該作者
系傳附件看看吧,只是代碼看不出什么問(wèn)題。
您需要登錄后才可以回帖 登錄 | 注冊(cè)

本版積分規(guī)則

QQ|站長(zhǎng)郵箱|小黑屋|手機(jī)版|Office中國(guó)/Access中國(guó) ( 粵ICP備10043721號(hào)-1 )  

GMT+8, 2024-10-23 08:31 , Processed in 0.133836 second(s), 30 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回復(fù) 返回頂部 返回列表