Message box to appear twice! "Bob" <xxx[ at ]xx.xx> 16.09.2006 01:24:04 I already have one message to appear but if yes is selected i want this new message box to show ....Thanks Bob Private Sub cmdDistributeAllInvoices_Click() Dim nRtnValue As Integer nRtnValue = MsgBox("Are you sure you want to Distrubte All Invoices ?", vbCritical + vbYesNo + vbDefaultButton2, "Distribute all Invoices") If nRtnValue = vbYes Then DoCmd.Hourglass True ****MsgBox(" All these Invoices will have Invoice Numbers") Yes No**** subSetInvoiceValues Application.SysCmd acSysCmdSetStatus, "Process is completed." Application.SysCmd acSysCmdClearStatus DoCmd.Hourglass False End If End Sub ..........Jenny Vance

Re: Message box to appear twice! "Graham R Seach" <gseach[ at ]accessmvp_REMOVE.com> 16.09.2006 04:52:22 Bob, Sorry, I don't understand what your problem is. Regards, Graham R Seach Microsoft Access MVP Sydney, Australia --------------------------- "Bob" <xxx[ at ]xx.xx> wrote in message news:eefjlk$hur$1[ at ]lust.ihug.co.nz... [Quoted Text] > > I already have one message to appear but if yes is selected i want this > new message box to show ....Thanks Bob > Private Sub cmdDistributeAllInvoices_Click() > Dim nRtnValue As Integer > > nRtnValue = MsgBox("Are you sure you want to Distrubte All Invoices ?", > vbCritical + vbYesNo + vbDefaultButton2, "Distribute all Invoices") > If nRtnValue = vbYes Then > DoCmd.Hourglass True > ****MsgBox(" All these Invoices will have Invoice Numbers") Yes No**** > subSetInvoiceValues > Application.SysCmd acSysCmdSetStatus, "Process is completed." > Application.SysCmd acSysCmdClearStatus > > DoCmd.Hourglass False > End If > End Sub > > > > > > > > .........Jenny Vance >

Re: Message box to appear twice! "Bob" <xxx[ at ]xx.xx> 16.09.2006 18:33:31 After I click yes on the first message box I want another box to pop up with a warning of what is going to happen..Thanks Bob "Graham R Seach" <gseach[ at ]accessmvp_REMOVE.com> wrote in message news:OrBr7sU2GHA.4588[ at ]TK2MSFTNGP04.phx.gbl... [Quoted Text] > Bob, > > Sorry, I don't understand what your problem is. > > Regards, > Graham R Seach > Microsoft Access MVP > Sydney, Australia > --------------------------- > > "Bob" <xxx[ at ]xx.xx> wrote in message news:eefjlk$hur$1[ at ]lust.ihug.co.nz... >> >> I already have one message to appear but if yes is selected i want this >> new message box to show ....Thanks Bob >> Private Sub cmdDistributeAllInvoices_Click() >> Dim nRtnValue As Integer >> >> nRtnValue = MsgBox("Are you sure you want to Distrubte All Invoices ?", >> vbCritical + vbYesNo + vbDefaultButton2, "Distribute all Invoices") >> If nRtnValue = vbYes Then >> DoCmd.Hourglass True >> ****MsgBox(" All these Invoices will have Invoice Numbers") Yes No**** >> subSetInvoiceValues >> Application.SysCmd acSysCmdSetStatus, "Process is completed." >> Application.SysCmd acSysCmdClearStatus >> >> DoCmd.Hourglass False >> End If >> End Sub >> >> >> >> >> >> >> >> .........Jenny Vance >> > >

Re: Message box to appear twice! "Graham R Seach" <gseach[ at ]accessmvp_REMOVE.com> 17.09.2006 09:42:28 Bob, You already had it, so I fail to understand why you couldn't have done it yourself. Private Sub cmdDistributeAllInvoices_Click() Dim nRtnValue As Integer nRtnValue = MsgBox("Are you sure you want to Distribute All Invoices?", _ vbCritical + vbYesNo + vbDefaultButton2, "Distribute all Invoices") If nRtnValue = vbYes Then MsgBox "All these Invoices will have Invoice Numbers." DoCmd.Hourglass True subSetInvoiceValues Application.SysCmd acSysCmdSetStatus, "Process is completed." Application.SysCmd acSysCmdClearStatus DoCmd.Hourglass False End If End Sub But, I'd be inclined to give that warning on the first MsgBox, and eliminate the need for the second MsgBox altogether: Private Sub cmdDistributeAllInvoices_Click() Dim nRtnValue As Integer nRtnValue = MsgBox("Are you sure you want to Distribute All Invoices?" & _ vbCrLf & vbCrLf & "If you choose Yes, all the invoices will have Invoice Numbers.", _ vbCritical + vbYesNo + vbDefaultButton2, "Distribute all Invoices") If nRtnValue = vbYes Then DoCmd.Hourglass True subSetInvoiceValues Application.SysCmd acSysCmdSetStatus, "Process is completed." Application.SysCmd acSysCmdClearStatus DoCmd.Hourglass False End If End Sub Regards, Graham R Seach Microsoft Access MVP Sydney, Australia --------------------------- "Bob" <xxx[ at ]xx.xx> wrote in message news:eehfvq$up7$1[ at ]lust.ihug.co.nz... [Quoted Text] > After I click yes on the first message box I want another box to pop up > with a warning of what is going to happen..Thanks Bob > "Graham R Seach" <gseach[ at ]accessmvp_REMOVE.com> wrote in message > news:OrBr7sU2GHA.4588[ at ]TK2MSFTNGP04.phx.gbl... >> Bob, >> >> Sorry, I don't understand what your problem is. >> >> Regards, >> Graham R Seach >> Microsoft Access MVP >> Sydney, Australia >> --------------------------- >> >> "Bob" <xxx[ at ]xx.xx> wrote in message news:eefjlk$hur$1[ at ]lust.ihug.co.nz... >>> >>> I already have one message to appear but if yes is selected i want this >>> new message box to show ....Thanks Bob >>> Private Sub cmdDistributeAllInvoices_Click() >>> Dim nRtnValue As Integer >>> >>> nRtnValue = MsgBox("Are you sure you want to Distrubte All Invoices ?", >>> vbCritical + vbYesNo + vbDefaultButton2, "Distribute all Invoices") >>> If nRtnValue = vbYes Then >>> DoCmd.Hourglass True >>> ****MsgBox(" All these Invoices will have Invoice Numbers") Yes No**** >>> subSetInvoiceValues >>> Application.SysCmd acSysCmdSetStatus, "Process is completed." >>> Application.SysCmd acSysCmdClearStatus >>> >>> DoCmd.Hourglass False >>> End If >>> End Sub >>> >>> >>> >>> >>> >>> >>> >>> .........Jenny Vance >>> >> >> > >

Re: Message box to appear twice! "Bob" <xxx[ at ]xx.xx> 17.09.2006 23:15:39 Thanks Graham went with your idea and just had the one message box, Thanx Bob "Graham R Seach" <gseach[ at ]accessmvp_REMOVE.com> wrote in message news:usqSszj2GHA.4796[ at ]TK2MSFTNGP06.phx.gbl... [Quoted Text] > Bob, > > You already had it, so I fail to understand why you couldn't have done it > yourself. > > Private Sub cmdDistributeAllInvoices_Click() > Dim nRtnValue As Integer > > nRtnValue = MsgBox("Are you sure you want to Distribute All Invoices?", > _ > vbCritical + vbYesNo + vbDefaultButton2, "Distribute all > Invoices") > If nRtnValue = vbYes Then > MsgBox "All these Invoices will have Invoice Numbers." > DoCmd.Hourglass True > subSetInvoiceValues > Application.SysCmd acSysCmdSetStatus, "Process is completed." > Application.SysCmd acSysCmdClearStatus > DoCmd.Hourglass False > End If > End Sub > > But, I'd be inclined to give that warning on the first MsgBox, and > eliminate the need for the second MsgBox altogether: > > Private Sub cmdDistributeAllInvoices_Click() > Dim nRtnValue As Integer > > nRtnValue = MsgBox("Are you sure you want to Distribute All Invoices?" > & _ > vbCrLf & vbCrLf & "If you choose Yes, all the invoices will > have Invoice Numbers.", _ > vbCritical + vbYesNo + vbDefaultButton2, "Distribute all > Invoices") > If nRtnValue = vbYes Then > DoCmd.Hourglass True > subSetInvoiceValues > Application.SysCmd acSysCmdSetStatus, "Process is completed." > Application.SysCmd acSysCmdClearStatus > DoCmd.Hourglass False > End If > End Sub > > Regards, > Graham R Seach > Microsoft Access MVP > Sydney, Australia > --------------------------- > > "Bob" <xxx[ at ]xx.xx> wrote in message news:eehfvq$up7$1[ at ]lust.ihug.co.nz... >> After I click yes on the first message box I want another box to pop up >> with a warning of what is going to happen..Thanks Bob >> "Graham R Seach" <gseach[ at ]accessmvp_REMOVE.com> wrote in message >> news:OrBr7sU2GHA.4588[ at ]TK2MSFTNGP04.phx.gbl... >>> Bob, >>> >>> Sorry, I don't understand what your problem is. >>> >>> Regards, >>> Graham R Seach >>> Microsoft Access MVP >>> Sydney, Australia >>> --------------------------- >>> >>> "Bob" <xxx[ at ]xx.xx> wrote in message news:eefjlk$hur$1[ at ]lust.ihug.co.nz... >>>> >>>> I already have one message to appear but if yes is selected i want this >>>> new message box to show ....Thanks Bob >>>> Private Sub cmdDistributeAllInvoices_Click() >>>> Dim nRtnValue As Integer >>>> >>>> nRtnValue = MsgBox("Are you sure you want to Distrubte All Invoices ?", >>>> vbCritical + vbYesNo + vbDefaultButton2, "Distribute all Invoices") >>>> If nRtnValue = vbYes Then >>>> DoCmd.Hourglass True >>>> ****MsgBox(" All these Invoices will have Invoice Numbers") Yes No**** >>>> subSetInvoiceValues >>>> Application.SysCmd acSysCmdSetStatus, "Process is completed." >>>> Application.SysCmd acSysCmdClearStatus >>>> >>>> DoCmd.Hourglass False >>>> End If >>>> End Sub >>>> >>>> >>>> >>>> >>>> >>>> >>>> >>>> .........Jenny Vance >>>> >>> >>> >> >> > >

Re: Message box to appear twice! "Graham R Seach" <gseach[ at ]accessmvp_REMOVE.com> 18.09.2006 13:35:25 Bob, Just the one message box?? OK, put a breakpoint on the line with the first message box, then F8 through the code to work out what it's doing. Regards, Graham R Seach Microsoft Access MVP Sydney, Australia --------------------------- "Bob" <xxx[ at ]xx.xx> wrote in message news:eekksn$kq2$1[ at ]lust.ihug.co.nz... [Quoted Text] > Thanks Graham went with your idea and just had the one message box, Thanx > Bob > > "Graham R Seach" <gseach[ at ]accessmvp_REMOVE.com> wrote in message > news:usqSszj2GHA.4796[ at ]TK2MSFTNGP06.phx.gbl... >> Bob, >> >> You already had it, so I fail to understand why you couldn't have done it >> yourself. >> >> Private Sub cmdDistributeAllInvoices_Click() >> Dim nRtnValue As Integer >> >> nRtnValue = MsgBox("Are you sure you want to Distribute All >> Invoices?", _ >> vbCritical + vbYesNo + vbDefaultButton2, "Distribute all >> Invoices") >> If nRtnValue = vbYes Then >> MsgBox "All these Invoices will have Invoice Numbers." >> DoCmd.Hourglass True >> subSetInvoiceValues >> Application.SysCmd acSysCmdSetStatus, "Process is completed." >> Application.SysCmd acSysCmdClearStatus >> DoCmd.Hourglass False >> End If >> End Sub >> >> But, I'd be inclined to give that warning on the first MsgBox, and >> eliminate the need for the second MsgBox altogether: >> >> Private Sub cmdDistributeAllInvoices_Click() >> Dim nRtnValue As Integer >> >> nRtnValue = MsgBox("Are you sure you want to Distribute All Invoices?" >> & _ >> vbCrLf & vbCrLf & "If you choose Yes, all the invoices >> will have Invoice Numbers.", _ >> vbCritical + vbYesNo + vbDefaultButton2, "Distribute all >> Invoices") >> If nRtnValue = vbYes Then >> DoCmd.Hourglass True >> subSetInvoiceValues >> Application.SysCmd acSysCmdSetStatus, "Process is completed." >> Application.SysCmd acSysCmdClearStatus >> DoCmd.Hourglass False >> End If >> End Sub >> >> Regards, >> Graham R Seach >> Microsoft Access MVP >> Sydney, Australia >> --------------------------- >> >> "Bob" <xxx[ at ]xx.xx> wrote in message news:eehfvq$up7$1[ at ]lust.ihug.co.nz... >>> After I click yes on the first message box I want another box to pop up >>> with a warning of what is going to happen..Thanks Bob >>> "Graham R Seach" <gseach[ at ]accessmvp_REMOVE.com> wrote in message >>> news:OrBr7sU2GHA.4588[ at ]TK2MSFTNGP04.phx.gbl... >>>> Bob, >>>> >>>> Sorry, I don't understand what your problem is. >>>> >>>> Regards, >>>> Graham R Seach >>>> Microsoft Access MVP >>>> Sydney, Australia >>>> --------------------------- >>>> >>>> "Bob" <xxx[ at ]xx.xx> wrote in message news:eefjlk$hur$1[ at ]lust.ihug.co.nz... >>>>> >>>>> I already have one message to appear but if yes is selected i want >>>>> this new message box to show ....Thanks Bob >>>>> Private Sub cmdDistributeAllInvoices_Click() >>>>> Dim nRtnValue As Integer >>>>> >>>>> nRtnValue = MsgBox("Are you sure you want to Distrubte All Invoices >>>>> ?", vbCritical + vbYesNo + vbDefaultButton2, "Distribute all >>>>> Invoices") >>>>> If nRtnValue = vbYes Then >>>>> DoCmd.Hourglass True >>>>> ****MsgBox(" All these Invoices will have Invoice Numbers") Yes >>>>> No**** >>>>> subSetInvoiceValues >>>>> Application.SysCmd acSysCmdSetStatus, "Process is completed." >>>>> Application.SysCmd acSysCmdClearStatus >>>>> >>>>> DoCmd.Hourglass False >>>>> End If >>>>> End Sub >>>>> >>>>> >>>>> >>>>> >>>>> >>>>> >>>>> >>>>> .........Jenny Vance >>>>> >>>> >>>> >>> >>> >> >> > >

Re: Message box to appear twice! "Bob" <xxx[ at ]xx.xx> 18.09.2006 22:18:29 This only produced one message box...thanx Bob Private Sub cmdDistributeAllInvoices_Click() Dim nRtnValue As Integer nRtnValue = MsgBox("Are you sure you want to Distribute All Invoices?" & vbCrLf & vbCrLf & "If you choose Yes, all the Invoices will have Invoice Numbers.", vbCritical + vbYesNo + vbDefaultButton2, "Distribute all Invoices") If nRtnValue = vbYes Then DoCmd.Hourglass True subSetInvoiceValues Application.SysCmd acSysCmdSetStatus, "Process is completed." Application.SysCmd acSysCmdClearStatus DoCmd.Hourglass False End If End Sub "Graham R Seach" <gseach[ at ]accessmvp_REMOVE.com> wrote in message news:%23MWthay2GHA.4932[ at ]TK2MSFTNGP02.phx.gbl... [Quoted Text] > Bob, > > Just the one message box?? > > OK, put a breakpoint on the line with the first message box, then F8 > through the code to work out what it's doing. > > Regards, > Graham R Seach > Microsoft Access MVP > Sydney, Australia > --------------------------- > > "Bob" <xxx[ at ]xx.xx> wrote in message news:eekksn$kq2$1[ at ]lust.ihug.co.nz... >> Thanks Graham went with your idea and just had the one message box, Thanx >> Bob >> >> "Graham R Seach" <gseach[ at ]accessmvp_REMOVE.com> wrote in message >> news:usqSszj2GHA.4796[ at ]TK2MSFTNGP06.phx.gbl... >>> Bob, >>> >>> You already had it, so I fail to understand why you couldn't have done >>> it yourself. >>> >>> Private Sub cmdDistributeAllInvoices_Click() >>> Dim nRtnValue As Integer >>> >>> nRtnValue = MsgBox("Are you sure you want to Distribute All >>> Invoices?", _ >>> vbCritical + vbYesNo + vbDefaultButton2, "Distribute all >>> Invoices") >>> If nRtnValue = vbYes Then >>> MsgBox "All these Invoices will have Invoice Numbers." >>> DoCmd.Hourglass True >>> subSetInvoiceValues >>> Application.SysCmd acSysCmdSetStatus, "Process is completed." >>> Application.SysCmd acSysCmdClearStatus >>> DoCmd.Hourglass False >>> End If >>> End Sub >>> >>> But, I'd be inclined to give that warning on the first MsgBox, and >>> eliminate the need for the second MsgBox altogether: >>> >>> Private Sub cmdDistributeAllInvoices_Click() >>> Dim nRtnValue As Integer >>> >>> nRtnValue = MsgBox("Are you sure you want to Distribute All >>> Invoices?" & _ >>> vbCrLf & vbCrLf & "If you choose Yes, all the invoices >>> will have Invoice Numbers.", _ >>> vbCritical + vbYesNo + vbDefaultButton2, "Distribute all >>> Invoices") >>> If nRtnValue = vbYes Then >>> DoCmd.Hourglass True >>> subSetInvoiceValues >>> Application.SysCmd acSysCmdSetStatus, "Process is completed." >>> Application.SysCmd acSysCmdClearStatus >>> DoCmd.Hourglass False >>> End If >>> End Sub >>> >>> Regards, >>> Graham R Seach >>> Microsoft Access MVP >>> Sydney, Australia >>> --------------------------- >>> >>> "Bob" <xxx[ at ]xx.xx> wrote in message news:eehfvq$up7$1[ at ]lust.ihug.co.nz... >>>> After I click yes on the first message box I want another box to pop up >>>> with a warning of what is going to happen..Thanks Bob >>>> "Graham R Seach" <gseach[ at ]accessmvp_REMOVE.com> wrote in message >>>> news:OrBr7sU2GHA.4588[ at ]TK2MSFTNGP04.phx.gbl... >>>>> Bob, >>>>> >>>>> Sorry, I don't understand what your problem is. >>>>> >>>>> Regards, >>>>> Graham R Seach >>>>> Microsoft Access MVP >>>>> Sydney, Australia >>>>> --------------------------- >>>>> >>>>> "Bob" <xxx[ at ]xx.xx> wrote in message >>>>> news:eefjlk$hur$1[ at ]lust.ihug.co.nz... >>>>>> >>>>>> I already have one message to appear but if yes is selected i want >>>>>> this new message box to show ....Thanks Bob >>>>>> Private Sub cmdDistributeAllInvoices_Click() >>>>>> Dim nRtnValue As Integer >>>>>> >>>>>> nRtnValue = MsgBox("Are you sure you want to Distrubte All Invoices >>>>>> ?", vbCritical + vbYesNo + vbDefaultButton2, "Distribute all >>>>>> Invoices") >>>>>> If nRtnValue = vbYes Then >>>>>> DoCmd.Hourglass True >>>>>> ****MsgBox(" All these Invoices will have Invoice Numbers") Yes >>>>>> No**** >>>>>> subSetInvoiceValues >>>>>> Application.SysCmd acSysCmdSetStatus, "Process is completed." >>>>>> Application.SysCmd acSysCmdClearStatus >>>>>> >>>>>> DoCmd.Hourglass False >>>>>> End If >>>>>> End Sub >>>>>> >>>>>> >>>>>> >>>>>> >>>>>> >>>>>> >>>>>> >>>>>> .........Jenny Vance >>>>>> >>>>> >>>>> >>>> >>>> >>> >>> >> >> > >

Re: Message box to appear twice! "Bob" <xxx[ at ]xx.xx> 19.09.2006 02:35:13 Graham how do you get a 2nd line to appear in a message box without it going to its widest margin....Thanx Bob "Bob" <xxx[ at ]xx.xx> wrote in message news:een5te$8t0$1[ at ]lust.ihug.co.nz... [Quoted Text] > This only produced one message box...thanx Bob > > Private Sub cmdDistributeAllInvoices_Click() > Dim nRtnValue As Integer > > nRtnValue = MsgBox("Are you sure you want to Distribute All Invoices?" > & vbCrLf & vbCrLf & "If you choose Yes, all the Invoices will have Invoice > Numbers.", vbCritical + vbYesNo + vbDefaultButton2, "Distribute all > Invoices") > If nRtnValue = vbYes Then > DoCmd.Hourglass True > subSetInvoiceValues > Application.SysCmd acSysCmdSetStatus, "Process is completed." > Application.SysCmd acSysCmdClearStatus > DoCmd.Hourglass False > End If > End Sub > "Graham R Seach" <gseach[ at ]accessmvp_REMOVE.com> wrote in message > news:%23MWthay2GHA.4932[ at ]TK2MSFTNGP02.phx.gbl... >> Bob, >> >> Just the one message box?? >> >> OK, put a breakpoint on the line with the first message box, then F8 >> through the code to work out what it's doing. >> >> Regards, >> Graham R Seach >> Microsoft Access MVP >> Sydney, Australia >> --------------------------- >> >> "Bob" <xxx[ at ]xx.xx> wrote in message news:eekksn$kq2$1[ at ]lust.ihug.co.nz... >>> Thanks Graham went with your idea and just had the one message box, >>> Thanx Bob >>> >>> "Graham R Seach" <gseach[ at ]accessmvp_REMOVE.com> wrote in message >>> news:usqSszj2GHA.4796[ at ]TK2MSFTNGP06.phx.gbl... >>>> Bob, >>>> >>>> You already had it, so I fail to understand why you couldn't have done >>>> it yourself. >>>> >>>> Private Sub cmdDistributeAllInvoices_Click() >>>> Dim nRtnValue As Integer >>>> >>>> nRtnValue = MsgBox("Are you sure you want to Distribute All >>>> Invoices?", _ >>>> vbCritical + vbYesNo + vbDefaultButton2, "Distribute all >>>> Invoices") >>>> If nRtnValue = vbYes Then >>>> MsgBox "All these Invoices will have Invoice Numbers." >>>> DoCmd.Hourglass True >>>> subSetInvoiceValues >>>> Application.SysCmd acSysCmdSetStatus, "Process is >>>> completed." >>>> Application.SysCmd acSysCmdClearStatus >>>> DoCmd.Hourglass False >>>> End If >>>> End Sub >>>> >>>> But, I'd be inclined to give that warning on the first MsgBox, and >>>> eliminate the need for the second MsgBox altogether: >>>> >>>> Private Sub cmdDistributeAllInvoices_Click() >>>> Dim nRtnValue As Integer >>>> >>>> nRtnValue = MsgBox("Are you sure you want to Distribute All >>>> Invoices?" & _ >>>> vbCrLf & vbCrLf & "If you choose Yes, all the invoices >>>> will have Invoice Numbers.", _ >>>> vbCritical + vbYesNo + vbDefaultButton2, "Distribute all >>>> Invoices") >>>> If nRtnValue = vbYes Then >>>> DoCmd.Hourglass True >>>> subSetInvoiceValues >>>> Application.SysCmd acSysCmdSetStatus, "Process is >>>> completed." >>>> Application.SysCmd acSysCmdClearStatus >>>> DoCmd.Hourglass False >>>> End If >>>> End Sub >>>> >>>> Regards, >>>> Graham R Seach >>>> Microsoft Access MVP >>>> Sydney, Australia >>>> --------------------------- >>>> >>>> "Bob" <xxx[ at ]xx.xx> wrote in message news:eehfvq$up7$1[ at ]lust.ihug.co.nz... >>>>> After I click yes on the first message box I want another box to pop >>>>> up with a warning of what is going to happen..Thanks Bob >>>>> "Graham R Seach" <gseach[ at ]accessmvp_REMOVE.com> wrote in message >>>>> news:OrBr7sU2GHA.4588[ at ]TK2MSFTNGP04.phx.gbl... >>>>>> Bob, >>>>>> >>>>>> Sorry, I don't understand what your problem is. >>>>>> >>>>>> Regards, >>>>>> Graham R Seach >>>>>> Microsoft Access MVP >>>>>> Sydney, Australia >>>>>> --------------------------- >>>>>> >>>>>> "Bob" <xxx[ at ]xx.xx> wrote in message >>>>>> news:eefjlk$hur$1[ at ]lust.ihug.co.nz... >>>>>>> >>>>>>> I already have one message to appear but if yes is selected i want >>>>>>> this new message box to show ....Thanks Bob >>>>>>> Private Sub cmdDistributeAllInvoices_Click() >>>>>>> Dim nRtnValue As Integer >>>>>>> >>>>>>> nRtnValue = MsgBox("Are you sure you want to Distrubte All Invoices >>>>>>> ?", vbCritical + vbYesNo + vbDefaultButton2, "Distribute all >>>>>>> Invoices") >>>>>>> If nRtnValue = vbYes Then >>>>>>> DoCmd.Hourglass True >>>>>>> ****MsgBox(" All these Invoices will have Invoice Numbers") Yes >>>>>>> No**** >>>>>>> subSetInvoiceValues >>>>>>> Application.SysCmd acSysCmdSetStatus, "Process is completed." >>>>>>> Application.SysCmd acSysCmdClearStatus >>>>>>> >>>>>>> DoCmd.Hourglass False >>>>>>> End If >>>>>>> End Sub >>>>>>> >>>>>>> >>>>>>> >>>>>>> >>>>>>> >>>>>>> >>>>>>> >>>>>>> .........Jenny Vance >>>>>>> >>>>>> >>>>>> >>>>> >>>>> >>>> >>>> >>> >>> >> >> > >

Re: Message box to appear twice! "Ron2006" <ronnemec[ at ]hotmail.com> 19.09.2006 13:03:03 By including the following in your message as Graham indicated: ......All Invoices?" & vbCrLf & vbCrLf & "If you choose ...... It is the vbCrLf that causes it to drop down a line. If that doesn't seem to work you can also use char(13) in place of the vbCrLf. In the example Graham supplied, it would drop down two lines because there are 2 line feed characters. Ron [Quoted Text] >

Re: Message box to appear twice! "Ron2006" <ronnemec[ at ]hotmail.com> 19.09.2006 13:03:22 By including the following in your message as Graham indicated: ......All Invoices?" & vbCrLf & vbCrLf & "If you choose ...... It is the vbCrLf that causes it to drop down a line. If that doesn't seem to work you can also use char(13) in place of the vbCrLf. In the example Graham supplied, it would drop down two lines because there are 2 line feed characters. Ron [Quoted Text] >

Re: Message box to appear twice! "Graham R Seach" <gseach[ at ]accessmvp_REMOVE.com> 19.09.2006 13:16:20 Bob, Your code only produced one message box because only one is defined. The code I gave you produces two. Regards, Graham R Seach Microsoft Access MVP Sydney, Australia --------------------------- "Bob" <xxx[ at ]xx.xx> wrote in message news:een5te$8t0$1[ at ]lust.ihug.co.nz... [Quoted Text] > This only produced one message box...thanx Bob > > Private Sub cmdDistributeAllInvoices_Click() > Dim nRtnValue As Integer > > nRtnValue = MsgBox("Are you sure you want to Distribute All Invoices?" > & vbCrLf & vbCrLf & "If you choose Yes, all the Invoices will have Invoice > Numbers.", vbCritical + vbYesNo + vbDefaultButton2, "Distribute all > Invoices") > If nRtnValue = vbYes Then > DoCmd.Hourglass True > subSetInvoiceValues > Application.SysCmd acSysCmdSetStatus, "Process is completed." > Application.SysCmd acSysCmdClearStatus > DoCmd.Hourglass False > End If > End Sub > "Graham R Seach" <gseach[ at ]accessmvp_REMOVE.com> wrote in message > news:%23MWthay2GHA.4932[ at ]TK2MSFTNGP02.phx.gbl... >> Bob, >> >> Just the one message box?? >> >> OK, put a breakpoint on the line with the first message box, then F8 >> through the code to work out what it's doing. >> >> Regards, >> Graham R Seach >> Microsoft Access MVP >> Sydney, Australia >> --------------------------- >> >> "Bob" <xxx[ at ]xx.xx> wrote in message news:eekksn$kq2$1[ at ]lust.ihug.co.nz... >>> Thanks Graham went with your idea and just had the one message box, >>> Thanx Bob >>> >>> "Graham R Seach" <gseach[ at ]accessmvp_REMOVE.com> wrote in message >>> news:usqSszj2GHA.4796[ at ]TK2MSFTNGP06.phx.gbl... >>>> Bob, >>>> >>>> You already had it, so I fail to understand why you couldn't have done >>>> it yourself. >>>> >>>> Private Sub cmdDistributeAllInvoices_Click() >>>> Dim nRtnValue As Integer >>>> >>>> nRtnValue = MsgBox("Are you sure you want to Distribute All >>>> Invoices?", _ >>>> vbCritical + vbYesNo + vbDefaultButton2, "Distribute all >>>> Invoices") >>>> If nRtnValue = vbYes Then >>>> MsgBox "All these Invoices will have Invoice Numbers." >>>> DoCmd.Hourglass True >>>> subSetInvoiceValues >>>> Application.SysCmd acSysCmdSetStatus, "Process is >>>> completed." >>>> Application.SysCmd acSysCmdClearStatus >>>> DoCmd.Hourglass False >>>> End If >>>> End Sub >>>> >>>> But, I'd be inclined to give that warning on the first MsgBox, and >>>> eliminate the need for the second MsgBox altogether: >>>> >>>> Private Sub cmdDistributeAllInvoices_Click() >>>> Dim nRtnValue As Integer >>>> >>>> nRtnValue = MsgBox("Are you sure you want to Distribute All >>>> Invoices?" & _ >>>> vbCrLf & vbCrLf & "If you choose Yes, all the invoices >>>> will have Invoice Numbers.", _ >>>> vbCritical + vbYesNo + vbDefaultButton2, "Distribute all >>>> Invoices") >>>> If nRtnValue = vbYes Then >>>> DoCmd.Hourglass True >>>> subSetInvoiceValues >>>> Application.SysCmd acSysCmdSetStatus, "Process is >>>> completed." >>>> Application.SysCmd acSysCmdClearStatus >>>> DoCmd.Hourglass False >>>> End If >>>> End Sub >>>> >>>> Regards, >>>> Graham R Seach >>>> Microsoft Access MVP >>>> Sydney, Australia >>>> --------------------------- >>>> >>>> "Bob" <xxx[ at ]xx.xx> wrote in message news:eehfvq$up7$1[ at ]lust.ihug.co.nz... >>>>> After I click yes on the first message box I want another box to pop >>>>> up with a warning of what is going to happen..Thanks Bob >>>>> "Graham R Seach" <gseach[ at ]accessmvp_REMOVE.com> wrote in message >>>>> news:OrBr7sU2GHA.4588[ at ]TK2MSFTNGP04.phx.gbl... >>>>>> Bob, >>>>>> >>>>>> Sorry, I don't understand what your problem is. >>>>>> >>>>>> Regards, >>>>>> Graham R Seach >>>>>> Microsoft Access MVP >>>>>> Sydney, Australia >>>>>> --------------------------- >>>>>> >>>>>> "Bob" <xxx[ at ]xx.xx> wrote in message >>>>>> news:eefjlk$hur$1[ at ]lust.ihug.co.nz... >>>>>>> >>>>>>> I already have one message to appear but if yes is selected i want >>>>>>> this new message box to show ....Thanks Bob >>>>>>> Private Sub cmdDistributeAllInvoices_Click() >>>>>>> Dim nRtnValue As Integer >>>>>>> >>>>>>> nRtnValue = MsgBox("Are you sure you want to Distrubte All Invoices >>>>>>> ?", vbCritical + vbYesNo + vbDefaultButton2, "Distribute all >>>>>>> Invoices") >>>>>>> If nRtnValue = vbYes Then >>>>>>> DoCmd.Hourglass True >>>>>>> ****MsgBox(" All these Invoices will have Invoice Numbers") Yes >>>>>>> No**** >>>>>>> subSetInvoiceValues >>>>>>> Application.SysCmd acSysCmdSetStatus, "Process is completed." >>>>>>> Application.SysCmd acSysCmdClearStatus >>>>>>> >>>>>>> DoCmd.Hourglass False >>>>>>> End If >>>>>>> End Sub >>>>>>> >>>>>>> >>>>>>> >>>>>>> >>>>>>> >>>>>>> >>>>>>> >>>>>>> .........Jenny Vance >>>>>>> >>>>>> >>>>>> >>>>> >>>>> >>>> >>>> >>> >>> >> >> > >