0

これは私が自分でやろうとした最初のコードなので、noobの間違いは許してください。

最初のメッセージボックスで[いいえ]が選択されていない場合に2番目のメッセージボックスを表示しようとしていますが、うまくいきません。どんな助けでも素晴らしいでしょう。

次のようにコーディングします。

    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

よろしくお願いします。

4

1 に答える 1

0

以下のコードを試してください。この行を追加する必要があります 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
于 2013-03-05T05:46:34.203 に答える