表中有 单号 列和 客户名称 列

我在表事件AfterEdit写有代码：If e.Table.Cols(e.Table.ColSel).Name = "单号" Then
       With Tables("清洗管理")
        Tables("清洗管理").AddNew
        Tables("清洗管理").Select(.Rows.Count - 1,0)
    End With
    CurrentTable.Focus
    Sendkeys.Send("")
End If

在表事件KeyDown写有代码：If e.KeyCode = Keys.Enter Then
    If e.Table.Cols(e.Table.ColSel).Name = "单号"  Then
        With Tables("清洗管理")
            Tables("清洗管理").AddNew
            Tables("清洗管理").Select(.Rows.Count - 1,0)
        End With
        CurrentTable.Focus
        Sendkeys.Send("")
    End If
End If

如何在 单号 单元格为空 客户名称 单元格为空的时候，回车就不会增加行，