数据录入日期戳

Question

我正在尝试对某个字段进行日期标记，但仅限于另一个字段输入了有效数据时。

以下是我所拥有的：

Private Sub Purchaser_AfterUpdate()
  If Purchaser.Value <> "" Then
     Date_Alloc.Value = Now()
  End If
End Sub

然而它不起作用。没有错误信息;它只是没有输入日期。

Answer 1

当Purchaser.Value为空时，条件Purchaser.Value <> ""将不为True，因此不会将任何内容分配给Date_Alloc.Value。

更改If条件，使其在Purchaser.Value为空或包含空字符串（""）时为True。

Private Sub Purchaser_AfterUpdate()
  'If Purchaser.Value <> "" Then
  If Len(Me.Purchaser.Value & vbNullString) > 0 Then
     Me.Date_Alloc.Value = Now()
  End If
End Sub