主题：窗口按钮

Dim r As Row = Tables("销售明细").Current
If r("会员余额") < r("实售金额") Then
   Forms("会员充值").Open()
End If
Tables("销售明细").Current.Save()
Forms("添加销售").Close()

不会执行的

此主题相关图片如下：1655864958874.png

麻烦老师给看一下，谢谢

现在是什么问题?"会员充值"窗口打不开？

Dim r As Row = Tables("销售明细").Current
If r("会员余额") < r("实售金额") Then

   r.Save()
   Forms("会员充值").Open()

   Forms("添加销售").Close

Else

   r.Save()
   Forms("添加销售").Close

End If

现在是确定会员充值的窗口不会开，好像是添加销售是模式窗口，我在试一下，不会在来问老师谢谢

我测试这个代码没问题

根据你的代码，余额小于实售还是可以添加进去不会打开充值窗口呢

好了，，我把窗口一个字写错了，哈哈，，谢谢老师