[求助]输入数据的同时，生成日期，并不能对数据再进行修改

apple_a1

如题。具体见附件

一点通

看不懂你的问题

apple_a1

1.在“数量”中输入了数据后，把输入数据的日期赋予“日期”。2.表1的窗体在重新打开时，已经输入的数据不能被修改。

如：2006年1月1日，在“数量”中输入数据后，“日期”中自动生成：2006年1月1日；

wu8313

Private Sub Form_Current()
Me.数量.Locked = False '在准备添加新纪录的时候，解除对 数量 控件的锁定
End Sub

Private Sub 数量_AfterUpdate()
Me.日期 = Date
DoCmd.RunCommand acCmdSaveRecord '保存本次输入
Me.数量.Locked = True
End Sub

==================================

估计楼主意思是，本条记录输入后，就锁定本次数量不准更改，添加新记录的时候又解除锁定。然后写入系统日期。

[此贴子已经被作者于2006-1-1 10:34:12编辑过]

wu8313

还是搞错了楼主的意思，这样试试：

使用添加新记录的方式打开窗体，以前的记录不出现，也就改不了。

添加新记录的方式打开窗体==〉 DoCmd.OpenForm "表1", acNormal, "", "", acAdd, acNormal

=================================

Private Sub 数量_AfterUpdate()
Me.日期 = Date
DoCmd.RunCommand acCmdSaveRecord '保存本次输入
End Sub

apple_a1

以下是引用wu8313在2006-1-1 10:39:00的发言：


还是搞错了楼主的意思，这样试试：

使用添加新记录的方式打开窗体，以前的记录不出现，也就改不了。

添加新记录的方式打开窗体==〉 DoCmd.OpenForm "表1", acNormal, "", "", acAdd, acNormal

=================================

Private Sub 数量_AfterUpdate()
Me.日期 = Date
DoCmd.RunCommand acCmdSaveRecord '保存本次输入
End Sub

感谢关注，现在我已经解决，其实就是这样：

If Me.数量.Value = 0 Then
   Me.数量.Locked = False
Else
   Me.数量.Locked = True
End If

picczdt

ghhhhh

picczdt

fff

picczdt

vvv