Office中国论坛/Access中国论坛

标题: [求救]组合框下选择数据,相应文本框的数据变化 [打印本页]

作者: yxf614 时间: 2008-7-6 18:41
标题: [求救]组合框下选择数据,相应文本框的数据变化
问题是:组合框"合同期限/月"下:1\选择3时,合同到期日期显示为:起租日期+90天的当日日期 2\ 选择6时,合同到期日期显示为:起租日期+180天的当日日期
请看附件哟
[attach]30909[/attach]
十分感谢!!

作者: 红尘如烟 时间: 2008-7-6 19:51

Private Sub 合同期限_月_AfterUpdate()
Me.租金总额_元_ = Me.合同期限_月 * Me.月租金_元_
If Not IsNull(合同期限_月) And Not IsNull(起租日期) Then
Select Case Me.合同期限_月
Case 3
合同到期日期 = DateAdd("d", 90, 起租日期)
Case 6
合同到期日期 = DateAdd("d", 180, 起租日期)
End Select
End If
End Sub

复制代码

作者: yxf614 时间: 2008-7-6 21:27
多谢了

[:34]

作者: yxf614 时间: 2008-7-6 21:27
1\对了能不能,我回车就下面出现三个3.6.12让我选择呢直接用向下的箭头来选择,!这样就不用鼠标点击来选择那一个数字了,
2\还有能不能我回车下来就是3呢!因为这样的多数!(相当于默认是3)
谢谢!!

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