如何实现窗体日期自动显示、选择、更新到表功能

千帆逐流

我用的是Access2000，想实现这样一个功能：在窗体上有2个显示框，分别显示当前日期和昨天的日期；然后用搭钩框供在2个日期内任选一个，然后自动更新到关联的表中。这个功能怎么实现？
（我用的Access2000似乎没有选项框的wizard,不知道是何原因）。

或另一种功能时否可行：在下拉菜单中，每次打开窗体时自动显示当前日期和昨天日期，供选择其一，然后把选择的日期自动更新到表中。

谢谢了！

千帆逐流

多谢版主{:soso_e179:}

Henry D. Sy

方法一：利用组合框

1. Private Sub Form_Load()
   
2.     Me.Combo70.RowSourceType = "Value List"
   
3.     Me.Combo70.RowSource = Date - 1 & ";" & Date
   
4. End Sub
   
5. Private Sub Combo70_AfterUpdate()
   
6.     Me.Text68 = Me.Combo70
   
7.     DoCmd.RunCommand acCmdSaveRecord '不保存也可以，因为绑定表
   
8. End Sub
   

复制代码

方法二：利用选项组

1. Private Sub Frame70_Click()
   
2.     Select Case Me.Frame70
   
3.     Case 1
   
4.         Me.Text68 = Date - 1
   
5.     Case 2
   
6.         Me.Text68 = Date
   
7.     End Select
   
8.     DoCmd.RunCommand acCmdSaveRecord
   
9. End Sub
   

复制代码

千帆逐流

斑竹我想实现一个打钩选项框，以实现在Load Date有当天和昨天2个选项，打钩或打点选择后，所选的日期会自动添加到表格里。谢谢！

Henry D. Sy

千帆逐流 发表于 2012-3-21 14:20
版主好。不过我从来没有用过代码，只会用一些简单的功能。你说的“然后在这里写你需要更新代码”，比如说我 ...

不清楚你如何设计窗体的，
请传上你的示例库

千帆逐流

版主好。不过我从来没有用过代码，只会用一些简单的功能。你说的“然后在这里写你需要更新代码”，比如说我要更新到表1的Load 日期这一栏，要怎么写？
又，怎么把这段代码用到控件上去？不好意思，我是菜鸟，真的很不懂，谢谢！

Henry D. Sy

1. Private Sub Form_Load()
   
2.     Me.Combo0.RowSourceType = "value list"
   
3.     Me.Combo0.RowSource = Date - 1 & ";" & Date
   
4. End Sub
   
5. Private Sub Combo0_AfterUpdate()
   
6. '然后在这里写你需要的更新代码
   
7. End Sub
   

复制代码

Henry D. Sy

都可以