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

第二个消息框

1 个答案: