第二個消息框

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