我一直尝试创建一个新记录,期望显示一个新的空白表单,但上一个表单中的所有信息都显示出来。
我需要一个空白表格来输入数据,但我还需要保存以前的所有表格。总的来说,我想继续添加我的记录。但不知怎的,它不让我这么做。
如果我理解正确的话,您打开了一个表单,但它显示了您之前输入的数据?如果您想避免看到以前的数据而只是输入空白,则应将表单属性
Data Entry
设置为Yes
取决于您是否有绑定表格,Kefash 的答案可能有效。 但是,如果您有未绑定的表格,则不会。
如果您确实有未绑定的表单,最简单的方法是循环遍历所有控件并将其清空。 例如:
Private Sub save_Click()
Dim ctl As Control
For Each ctl In Me.Controls
Select Case ctl.ControlType
Case acListBox
If Len(ctl.ControlSource) = 0 Then
ctl.Value = Null
End If
Case acCheckBox
ctl.Value = 0
Case acTextBox
ctl.value = ""
End Select
Next
End Sub
我是新手,但会尝试一下...我还假设您正在尝试将表单打开到空白记录上,以便您可以添加新记录...
你尝试过这个吗?
点击DESIGN视图,在左上角你会看到一个黑框, 双击或右键单击黑框并选择“属性”,
选择“事件”选项卡, 选择“打开时”(顶部)并单击空白处,会出现一个箭头和 3 个条 (菜单)。 选择菜单,然后从选项中选择“代码生成器”。
这是添加表单的 vb 代码的位置,MS Access 将自动提供事件的介绍和退出代码...
DoCmd.GoToRecord , , acNewRec 我。[whateveryourfirstcontrol].setfocus
所以你的整个代码应该是这样的:
私人子表单_打开(取消为整数)
DoCmd.GoToRecord , , acNewRec 我。[无论你的第一个控件是什么].setfocus
结束子
单击 X 退出代码面板,然后再次单击。 您现在可以从“设计”视图转到“表单”视图,或者关闭并重新打开表单。 您的表单现在应该打开一个空白记录,以便您可以将光标添加到您将焦点设置到的任何控件上...
注意:下次进入设计视图/属性/事件时,您将看到“打开事件上的事件过程...如果您创建宏或构建和表达式,这也适用。这些事件也适用于每个控件(您在表单上使用的元素)。
PS:到达底部控件后,如果您只想循环当前记录而不转到下一条记录,请再次返回属性,选择“其他”选项卡,选择“当前记录”。
希望有帮助。
:) 丽莎 B.