message box results

Hi

I'm new to the vb side of access and would like to get a message box to
display the results of a query (or query turned into sql) whilst the user is
running a macro with the option for them to cancel out of the macro if the
displayed results are not correct. I'm having trouble getting the
messagebox to act on the sql code, all I can make it do is display the code.
What am I doing wrong please? This is my code.

Wendy

Sub Bankline()
Dim strMsg, myTitle, sqlstring, style
style = vbOKCancel
sqlstring = "SELECT bank.TRANSDATE, bank.AMOUNT, bank.DETAILS,
bank.TRANSCODE,bank.CHEQUENO WHERE (([bank].[TRANSCODE]) Not Like 'CC' And
Reference:: Sikh Philosophy Network http://www.sikhphilosophy.net/information-technology/11317-message-box-results.html
Reference:: Sikh Philosophy Network http://www.sikhphilosophy.net/showthread.php?t=11317
Not Like 'MSC' And Not Like 'CHG'))"

myTitle = "MsgBox bank Records" ' Define title.
msgbox "The first record in the file is " & sqlstring & vbOKCancel

If Response = vbCancel Then End

End Sub

 
Do share your immediate thoughts or reactions on this issue? We value your views! Login Now! or Sign Up Today! to share your views with us.. Gurfateh!

Sub xxxxx()

If MsgBox("This is the question." & vbcr & vbcr & "Do you want to
continue?",myTitle,vbInformation+style)=vbCancel Then Exit Sub

End Sub

DO NOT (or NEVER) use "END" ( as your code "If Response = vbCancel Then
End" ) in VBA code.


"Wendy" wrote in message
news:GOudnV5hE5lJJxPZRVnygw@bt.com...
> Hi
>
> I'm new to the vb side of access and would like to get a message box to
> display the results of a query (or query turned into sql) whilst the user
> is
> running a macro with the option for them to cancel out of the macro if the
> displayed results are not correct. I'm having trouble getting the
Reference:: Sikh Philosophy Network http://www.sikhphilosophy.net/showthread.php?t=11317
> messagebox to act on the sql code, all I can make it do is display the
> code.
> What am I doing wrong please? This is my code.
>
> Wendy
>
> Sub Bankline()
> Dim strMsg, myTitle, sqlstring, style
> style = vbOKCancel
> sqlstring = "SELECT bank.TRANSDATE, bank.AMOUNT, bank.DETAILS,
> bank.TRANSCODE,bank.CHEQUENO WHERE (([bank].[TRANSCODE]) Not Like 'CC' And
> Not Like 'MSC' And Not Like 'CHG'))"
>
> myTitle = "MsgBox bank Records" ' Define title.
Reference:: Sikh Philosophy Network http://www.sikhphilosophy.net/showthread.php?t=11317
> msgbox "The first record in the file is " & sqlstring & vbOKCancel
>
> If Response = vbCancel Then End
>
> End Sub
>
>

OK thanks for that, as I said I'm new to vb code. Am I doing something else
wrong because that still doesn't make vb process my sqlstring and show the
Reference:: Sikh Philosophy Network http://www.sikhphilosophy.net/showthread.php?t=11317
data in the messagebox?

Thanks

Wendy

"Norman Yuan" wrote in message
news:u7l9lRvjGHA.4816@TK2MSFTNGP04.phx.gbl...
> Sub xxxxx()
>
> If MsgBox("This is the question." & vbcr & vbcr & "Do you want to
> continue?",myTitle,vbInformation+style)=vbCancel Then Exit Sub
>
> End Sub
>
> DO NOT (or NEVER) use "END" ( as your code "If Response = vbCancel Then
> End" ) in VBA code.
>
>
> "Wendy" wrote in message
> news:GOudnV5hE5lJJxPZRVnygw@bt.com...
> > Hi
> >
> > I'm new to the vb side of access and would like to get a message box to
> > display the results of a query (or query turned into sql) whilst the
user
> > is
> > running a macro with the option for them to cancel out of the macro if
Reference:: Sikh Philosophy Network http://www.sikhphilosophy.net/showthread.php?t=11317
the
> > displayed results are not correct. I'm having trouble getting the
> > messagebox to act on the sql code, all I can make it do is display the
> > code.
> > What am I doing wrong please? This is my code.
> >
> > Wendy
> >
> > Sub Bankline()
> > Dim strMsg, myTitle, sqlstring, style
> > style = vbOKCancel
> > sqlstring = "SELECT bank.TRANSDATE, bank.AMOUNT, bank.DETAILS,
> > bank.TRANSCODE,bank.CHEQUENO WHERE (([bank].[TRANSCODE]) Not Like 'CC'
And
> > Not Like 'MSC' And Not Like 'CHG'))"
> >
> > myTitle = "MsgBox bank Records" ' Define title.
> > msgbox "The first record in the file is " & sqlstring & vbOKCancel
> >
> > If Response = vbCancel Then End
> >
> > End Sub
> >
> >
>
>