1樓：一點設計演示
2.在操作這一欄，從下拉選單中，選擇runcode操作。
3.彈出了操作引數對話方塊，點選函式名稱右邊的這個省略號。
4.開啟了表示式生成器，在下方選擇函式進行編輯，或者自己輸入公式，然後點選確定按鈕。
5.點選選單欄上面的儲存按鈕，在彈出的另存為對話方塊中，輸入巨集的名稱，然後點選確定。
6.在巨集物件中，找到剛才建立的這個巨集【執行vba】，然後右鍵單擊它，選擇執行，vba函式就執行了。
2樓：匿名使用者
前提：docmd 物件的openquery方法僅可用於 microsoft access 資料庫環境 (.mdb)。
語法：expression.openquery(queryname, view, datamode)
openquery方法用於開啟一個預置的查詢，而不能開啟一個sql查詢語句，故此你上面的用法被系統提示錯誤。
正確的用法是先將sql語句：「select * from 學生成績表 where 分數》90」預存為一個access查詢，例如將其命名為：高分成績查詢表
然後在某個命令按鈕新增下列過程。例如：
private sub command1_click:
docmd.openquery "高分成績查詢表"
end sub
注：docmd 物件的openquery方法 的用法可以是多種多樣的，上面僅列出其中一個例子。
怎樣用vba取得access資料庫中的查詢結果？
3樓：匿名使用者
對於這種寫法不是很瞭解，如果用ado+sql可以幫到你。
sub bb()
dim cnn as adodb.connection
dim rs as adodb.recordset
set cnn = new adodb.connection
mydata = thisworkbook.path & "\123.mdb"
with cnn
.provider = "microsoft.jet.oledb.4.0"
.open mydata
end with
set rs = new adodb.recordset
sql = "select flux_amount from mytable"
rs.open sql, cnn, 3, 2
redim arr(rs.recordcount)
for i = 0 to rs.recordcount - 1
arr(i) = rs.fields("flux_amount")
rs.movenext
next i
msgbox join(arr, ",")
end sub
應該說這種用法比較主流，複製**到vbe，然後引用ado 2.8,將access與excel檔案放在一個資料夾，將資料庫名變動一下，就可以測試了。（要改為同你的access,表名，欄位名一致）
4樓：匿名使用者
for i = 0 to myds.recordcount - 1msgbox cstr(myds.fields(0))myds.movenext
next i
你少了這句：「myds.movenext」記錄向下移動。
用 access vba 編寫的實時查詢資料庫並將結果顯示在子視窗的程式
5樓：解0人
如下即可：
private sub text2_change()me.child75.sourceobject="資料表.99規範列表"
with me.child75.form
.filter="規範名稱 like '*" & text2.value & "*'"
.filteron = true
end with
end sub
如何將sql檔案匯入mysql，怎麼將sql檔案匯入mysql
執行sql指令碼,可以有2種方法 第一種方法 在命令列下 未連線資料庫 輸入 mysql h localhost u root p123456 f hello world niuzi.sql 注意路徑不用加引號的 回車即可.第二種方法 在命令列下 已連線資料庫,此時的提示符為 mysql 輸入 so...
SQL怎麼將查詢結果連線到一起，求救。。如何把兩條sql語句查詢的結果連線到一起顯示？
1 聯立選欄位 select a.id,a.name name 2014,a.age.b.name name 2013 from select id，name,age from a where time 2014 a,select id，name from a where time 2013 b w...
如何將文字檔案中資料匯入到sql表中
1 建立 load.ctl 檔案 load data characterset utf8 infile d importdata datafile data.txt into table table namefields terminated by trailing nullcols id,mobi...