VB在特定记录上打开表单

Question

我正在使用Microsoft访问权限,并且我想在单击按钮时打开特定ID的表单.我可以在Do.open表单命令中指定id.下面的代码打开一个表单,然后打开一个对话框,要求输入id.任何想法？

Private Sub button1_Enter()
Dim recordID As Integer
recordID = Me.CurrentRecord
DoCmd.OpenForm "Form3", , , "ID = recordID"
End sub

Answer 1

首先,改变:

recordID = Me.CurrentRecord

至:

recordID = Me.ID

其中Me.ID是当前表单上的字段或控件的名称(Microsoft Access - 单击按钮时获取记录ID).

当您引用变量时,请将其放在引号之外:

DoCmd.OpenForm "Form3", , , "ID = " & recordID

这对于一个数字的ID来说没问题,但是对于文本和日期会更复杂,因为你需要分隔符.只要sometextvar不包含引号,这将很有效:

DoCmd.OpenForm "Form3", , , "Atext = '" & sometextvar & "'"

除此以外

DoCmd.OpenForm "Form3", , , "Atext = '" & Replace(sometextvar,"'","''") & "'"

日期需要#

DoCmd.OpenForm "Form3", , , "ADate = #" & somedatevar & "#"

为了避免区域设置问题,几乎总是最好格式化为年,月,日,所以:

DoCmd.OpenForm "Form3", , , "ADate = #" & Format(somedatevar,"yyyy/mm/dd") & "#"