Office中国论坛/Access中国论坛

标题: 如何实现窗体日期自动显示、选择、更新到表功能 [打印本页]

---

作者: 千帆逐流    时间: 2012-3-21 13:17
标题: 如何实现窗体日期自动显示、选择、更新到表功能
我用的是Access2000，想实现这样一个功能：在窗体上有2个显示框，分别显示当前日期和昨天的日期；然后用搭钩框供在2个日期内任选一个，然后自动更新到关联的表中。这个功能怎么实现？
（我用的Access2000似乎没有选项框的wizard,不知道是何原因）。

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

谢谢了！

---

作者: Henry D. Sy    时间: 2012-3-21 13:20
都可以

---

作者: Henry D. Sy    时间: 2012-3-21 13:25

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
   

复制代码

---

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

---

作者: Henry D. Sy    时间: 2012-3-21 16:29

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

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

---

作者: 千帆逐流    时间: 2012-3-21 22:34
[attach]48774[/attach]

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

---

作者: Henry D. Sy    时间: 2012-3-22 09:40
方法一：利用组合框

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
   

复制代码

[attach]48777[/attach]

---

作者: 千帆逐流    时间: 2012-3-25 08:14
多谢版主{:soso_e179:}

---

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)

Powered by Discuz! X3.3