第二个消息框

Question

这是我第一次尝试自己做的代码，请原谅任何noob错误。

我试图让第二个消息框出现，如果没有被选中的第一个，但我没有运气。任何帮助都会很棒。

代码如下：

Private Sub cmdUploadReady_Click() 

Dim Msg, Style, Title, Help, Ctxt, Response, MyString 

Msg = "Before Uploading Hole Data you must register you Work Program/POWE. Have you done this?" 
Style = vbYesNo + vbCritical 
Title = "Uploader" 


Response = MsgBox(Msg, Style, Title, Help, Ctxt) 

If Response = vbYes Then 
'make pickers visible 
Me.POWENumber_Label.Visible = True 
Me.POWE_picker.Visible = True 
Me.cmdUploadHoles.Visible = True 


Else 

Msg = "MsgBox do you wish to register now?" 
     Style = vbYesNo + vbQuestion 
     If Response = vbYes Then 
     DoCmd.OpenForm "frmWorkPrograms_new" 

     Else 
     Cancel = True 

     End If 


End If 

End Sub 

干杯提前。

Answer 1

请尝试以下代码。需要添加此行Response = MsgBox（Msg，Style，Title，Help，Ctxt）

Private Sub cmdUploadReady_Click() 

     Dim Msg, Style, Title, Help, Ctxt, Response, MyString 

     Msg = "Before Uploading Hole Data you must register you Work Program/POWE. Have you done this?" 
     Style = vbYesNo + vbCritical 
     Title = "Uploader" 


     Response = MsgBox(Msg, Style, Title, Help, Ctxt) 

     If Response = vbYes Then 
      'make pickers visible 
      Me.POWENumber_Label.Visible = True 
      Me.POWE_picker.Visible = True 
      Me.cmdUploadHoles.Visible = True 


     Else 

      Msg = "MsgBox do you wish to register now?" 
      Style = vbYesNo + vbQuestion 
      Response = MsgBox(Msg, Style, Title, Help, Ctxt) '***Add this line****' 

      If Response = vbYes Then 
       DoCmd.OpenForm "frmWorkPrograms_new" 

      Else 
       Cancel = True 

      End If 


     End If