두 번째 메시지 상자

Question

이것은 내 첫 번째 코드이므로 멍청한 실수를 용서해주세요.

첫 번째 메시지에서 아무 것도 선택되지 않았지만 운이 없다면 두 번째 메시지 상자를 표시하려고합니다. 어떤 도움이라도 좋을 것입니다.

코드를 다음과 같이 사전에

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

아래 코드를 시도하십시오. 이 줄을 추가해야합니다. 응답 = MsgBox (메시지, 스타일, 제목, 도움말, 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