vba，窗体复合框。

'复合框赋值

ComboBox1.List = comlist'comlist是数组，

'设置默认显示值

ComboBox1.ListIndex = 0' 默认显示值，0是默认显示序号，0表示comlist数组的第一个元素

Private Sub CommandButton1_Click()

  Dim i%, s$, isum&, ar

  For i = 1 To 3 '遍历文本框的编号

      s = Controls("TextBox" &i).Value '当前文本框的值

      If Not s = "" Then

          If s Like "###-###" Then

              ar = Split(s, "-") '按-符号分隔为数组

              isum = isum + Val(ar(1)) - Val(ar(0)) + 1

          Else

              s = "文本框" &i &"，输入错误！"

              s = s &vbLf &vbLf &"仅允许以下两种格式："

              s = s &vbLf &"允许：输入空值"

              s = s &vbLf &"允许：输入###-###"

              s = s &vbLf &"提示：#是数字占位符"

              MsgBox s, 16: Exit Sub '退出程序

          End If

      End If

  Next

  MsgBox "计算完毕！" &vbLf &"最终结果是：" &isum, 64

End Sub

将有关字段、控件等的Access对象的“默认值（DefaultValue）”属性设置为函数Date()或Now()就可以了，前者只返回当前日期，后者返回当前日期+时间。

例如：

Text1.DefaultValue=Date

'VBA代码设置文本框Text1的默认值为当前日期

也可以在属性栏手动填写“默认值”属性

Date()

---