当天记录可修改和输入，当天以前的记录不能修改

新奎秦

哪位高手能否帮忙在窗体中写个代码？达到以下目的：

1、  字段“登帐日期”当天的所有记录可以修改（当天的记录是指今天输的记录，在这里，当天的记录是2013-3-5的两条记录，）；

2、  字段“登帐日期”当天以前的记录不能修改（字段“换票作业单号”不受此限制。在这里“当天以前的记录”是指2013-3-1、2013-3-2、2013-3-3、2013-3-4这四天的记录）；

3、  字段“换票作业单号”不受以上两条限制（也就是说：字段“换票作业单号”随时可修改以前的记录和添加新记录）；

以上目的概括起来就是要达到：最后一天输入的记录可以修改，以前的记录不能修改,但字段“换票作业单号”不受此限制。

说明： 字段“登帐日期”是默认的系统日期，录入表时，字段“登帐日期”是自动显示的，此表每天都要录入，如果到了2013-3-6输入表时，2013-3-6又变成了当天。

请帮帮忙呀，工作中要用到。

roych

我不建议这样做。应该分开做两个查询，一个是当天的，可以修改的。另一个是全部记录，用来查看的。
打开查看的话就只允许修改“换票作业单号”，其它的禁止修改。
打开当天的只显示当天的，允许修改。
不过我懒得去做查询了，随意就原示例写了段代码，请单击【金额】字段试试看。
注意：写了循环语句，强制性输入数据，只能点击”确定“。

ynjxw

成为当前内写限制代码

roych

ynjxw 发表于 2013-3-4 14:43
成为当前内写限制代码

嗯。这样比我之前写的简单些：
Private Sub Form_Current()
If Me.登帐日期 < Date Then
Me.金额.Locked = True
Else
Me.金额.Locked = False
End If
End Sub