㈠ access的代碼怎麼寫
點哪的確定？ 彈出對應窗體 ---對應誰的窗體？？
------------------------提問者請遵守一下幾點-------------------------
1、發問題前，先自己測試下，不要讓回復者去測試你的代碼哪裡有問題
2、把問題描述清楚，能舉例就舉例，不要把代碼一粘，然後大喊跪求（你跪過你父母嗎？）
3、請把你的代碼整理一下，至少要有可讀性
4、不要伸手就要別人提供詳細代碼！那是別人的，不是你的，以後你仍然不會。
5、解決問題後，請關閉問題，並對回復者表示感謝，這是絕大多數回復者的動力。
6、如果自行解決了，請把解決方案說出來！
7、不要在一個問題里，追問N個問題。
8、在hi別人的時候，一定要先把問題重復一遍。
㈡ 求access VBA代碼：運行查詢，並將查詢結果 輸出至 窗體的文本框中
dimrsasnewADODB.Recordset
rs.open"selecttop1*from入庫單",currentproject.connection,1,1
me.text1.value=rs(0).value
rs.close
setrs=nothing
㈢ VB關於ACCESS的程序代碼
在VB菜單→過程→引用→對象庫 "Microsoft ActiveX Data Objects 2.5 Library"
'定義
Private Sub Command1_Click()
Const connStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
dim conn As New ADODB.Connection
dim Rs As New ADODB.Recordset
dim sql As string
conn.Open connStr & "【我的資料庫路徑及文件.mdb】"
sql = "SELECT * FROM 你的表單名稱"
Rs.Open sql, conn, adOpenKeyset, adLockPessimistic
If Not Rs.State = adStateOpen Then '確定資料庫能順利打開後，才省略這個判斷
MsgBox "資料庫沒有開啟。檢查資料庫的鏈接是哪兒出問題！"
exit sub
End If
『資料庫能開啟才會繼續往下一行運行
Rs.MoveLast: Rs.MoveFirst
『這一行只是檢查Rs是不是正常運行，整體代碼完成後可以移除
MsgBox "記錄集總共筆數：" & Rs.RecordCount
『 資料庫確定能正常開啟了，想繼續操作新增、更新、刪除...都行
'開始新增一筆數據
'Rs.AddNew
'.......賦值代碼
'.......賦值代碼.
『Rs.Update
'Rs.Refresh
End Sub
㈣ 求access VBA代碼：運行查詢，並將查詢結果輸出至窗體的文本框中
你在條件上右擊,點生成器,然後找到窗體,雙擊窗體里的文本框,它就生成一段代碼,就是引用文本框的數據.
㈤ access中的代碼
應該是這樣寫的吧：
Private Sub 判斷_Click()
If IsNumeric(Me.輸入數字) Then
If Me.輸入數字.Value Mod 2 = 0 Then
Me.顯示答案.Value = "偶數"
ElseIf Me.輸入數字.Value Mod 2 = 1 Then
Me.顯示答案.Value = "奇數"
End If
Else
MsgBox "你輸入的不是數字"
Me.輸入數字.SetFocus
End If
End Sub
第一步應該先判斷輸入的是不是數字，如果是再取模，否則彈出錯誤提示，並重新獲取焦點。