当姓名和会员卡为空时,会员卡为普通卡,会卡折扣为6

1、设置“会员卡”和“会卡折扣”的默认值。

2、在姓名更新事件代码修改一下，加个为空的判断：

Private Sub 姓名_AfterUpdate()
    If Len(Me.姓名) = 0 Then
        会员卡 = "普通卡"
        会员卡折扣 = 6
    Else
        会员卡 = DLookup("会员卡", "会员卡带姓名", "会员姓名='" & [姓名] & "'")
        会员卡折扣 = DLookup("会员卡折扣", "会员卡带姓名", "会员卡='" & [会员卡] & "'")
    End If
End Sub