Question

它只是一个数据库，我试图让它更容易填充数据。自动填充已经设置，当您输入游戏PN（数据）时，它会自动添加版本（数据）和名称（数据）。但我还想添加密钥（数据），但前提是密钥单元格是空白的。

如果密钥单元格为空，则3自动填充是否为空，否则仅执行2自动填充。我的代码如下，但它不起作用。我尝试过交换＆＃34; null＆＃34;为＆＃34;空。＆＃34;我已经尝试过“假”＆＃34;而不是＆＃34; True＆＃34;并交换了潜艇，我想我反过来尝试了。谢谢你的帮助。

Private Sub Game_PN_AfterUpdate()

If Me.Key_PN = IsNull(True) Then

Me.Key_PN = Me.Game_PN.Column(3)
Me.Game_Rev = Me.Game_PN.Column(2)
Me.Game_Name = Me.Game_PN.Column(1)

Else:

Me.Game_Rev = Me.Game_PN.Column(2)
Me.Game_Name = Me.Game_PN.Column(1)

End If

End Sub

Answer 1

我会建议像：

Private Sub Game_PN_AfterUpdate()
    If IsNull(Me.Key_PN) Then Me.Key_PN = Me.Game_PN.Column(3)
    Me.Game_Rev = Me.Game_PN.Column(2)
    Me.Game_Name = Me.Game_PN.Column(1)
End Sub

也就是说，如果您的Key_PN字段为空，则使用Key_PN保留的值填充Game_PN.Column(3)字段;无论如何更新其他两个字段。

我可以在Access中的Private Sub中添加IF语句吗？

1 个答案: