如何自动增加文本框中的默认值

Question

有没有办法在文本框中自动增加默认值，假设数据类型为文本而无需创建表格？我需要在表单加载时发生这种情况。

Answer 1

打开表单时无法执行此操作，因此您需要调用此Sub（位于模块中）以打开表单：

Sub ChangeDefaultValue()
  DoCmd.Close acForm, "Form1"
  DoCmd.OpenForm "Form1", acDesign, , , , acHidden
  Dim f As Form
  Set f = Forms("Form1")
  Dim dv As Integer
  dv = f.Controls!Text0.DefaultValue
  f.Controls!Text0.DefaultValue = dv + 1
  DoCmd.Close acForm, "Form1", acSaveYes
  DoCmd.OpenForm ("Form1")
End Sub

您需要将表单名称“Form1”和TextBox名称“Text0”更改为您的姓名。