如何利用提示YES/NO来控制清除文本框的内容

lansonlai

我在一个文本框写了以下代码,可以它不能够根据YES/NO来判断,我想YES就删除,NO的话就清楚文本框的内容,且光标停在文本框里.请大虾们帮忙解决问题,

Private Sub cancel_date_AfterUpdate()

  If Val(Text65) < Val(Text26) Then

    If MsgBox("超出配送日期,确定要删除这张订单吗？", vbInformation + vbYesNo) = vbNo Then Exit Sub

    Dim Command80 As String

    Me.cancel_date = Null

    DoCmd.OpenQuery "del_Order_date", acNormal, acEdit

    DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70

    DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70

    DoCmd.SetWarnings True

      Else

    End If

   

End Sub

lansonlai

改正Dim cancel_date As String