㈠ 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
第一步应该先判断输入的是不是数字，如果是再取模，否则弹出错误提示，并重新获取焦点。