根据时间允许是否输入数据

1100122566

我做了个表，表中有“客户名称”（文本类型）、“出单日期”（日期类型）、“发票编号”（文本类型）。其中“出单日期”为录入数据的时间。我想根据这个字段判断，是否可以更改以前的数据：如果录入的时间为当月，那表中字段都能更改，如果出单日期为以前的。那不能更改字段中“客户名称”，只能更改字段“发票编号”。不知是否能实现？如果应用到“查询”中的表是否通用？

附件为测试数据。希望大家帮帮忙。[:30]

[ 本帖最后由 1100122566 于 2008-12-11 11:09 编辑 ]

Henry D. Sy

表中不行，窗体中可以

1100122566

为什么表中不行？难道不能用VBA对表进行进一步修改？

1100122566

我觉得应该可以的。我刚刚用Create Table 语句在查询里面“运行”了一下。能生成新表。我觉得应该跟SQL语句有关。

1100122566

好像是不行的~有哪位高高收出面吗？

Henry D. Sy

利用向导做个丛栏式的窗体用于浏览数据和输入数据。

1. Private Sub Form_Current()
   
2.     Dim dtmYm As Date, dtmNow As Date
   
3. 
   
4.     If NewRecord Then
   
5.         Me.出单日期.Locked = False
   
6.         Me.客户名称.Locked = False
   
7.     Else
   
8.         dtmYm = Format(Me.出单日期, "yyyymm")
   
9.         dtmNow = Format(Date, "yyyymm")
   
10.         If dtmYm < dtmNow Then
    
11.             Me.出单日期.Locked = True
    
12.             Me.客户名称.Locked = True
    
13.         Else
    
14.             Me.出单日期.Locked = False
    
15.             Me.客户名称.Locked = False
    
16.         End If
    
17.     End If
    
18. End Sub

复制代码