Results 1 to 3 of 3

Thread: [RESOLVED] Msgbox

  1. Jun 1st, 2006, 08:40 AM #1
    braabe01
    braabe01 is offline

    Thread Starter
    New Member
    Join Date
    May 2006
    Posts
    9

    Resolved [RESOLVED] Msgbox

    I am getting an "Expected: End of Statement error with the following code. Does anyone know why... I can't figure it out.

    VB Code:
    1. Msg1 = MsgBox("Before you start, please ensure that you know the tab and cell you wish to copy from. For example, for Maximum Roundness Deviation you want to copy from the 'E34' cell of the 'General' tab.", vbOKCancel, "Before you start", vbInformation) As VbMsgBoxResult
    Reply With Quote Reply With Quote
  2. Jun 1st, 2006, 08:49 AM #2
    si_the_geek
    si_the_geek is offline
    Super Moderator si_the_geek's Avatar
    Join Date
    Jul 2002
    Location
    Bristol, UK
    Posts
    41,974

    Re: Msgbox

    Remove the "As VbMsgBoxResult" from the end - you cannot tell the MsgBox function what type to return.
    (Microsoft MVP from July 2007 to June 2017) . . . . . . . . . . Hitchhiker's Guide to Getting Help at VBForums

    Database Development FAQs/Tutorials (updated May 2011) (includes fixing common DB related errors, and [VB.Net] ADO.Net Tutorial, and [Classic VB] ADO tutorial /further steps)
    other useful DB bits: . Connection strings (alternative copy).•. MDAC/Jet/ACE downloads .•. SQL Server downloads .

    Classic VB FAQs (updated Oct 2010) (includes fixing common VB errors)
    some of my Classic VB bits: . Tutorial: How to automate Excel from VB6 (or VB5/VBA) .•. SQL 'Select' statement formatter/checker .•. Convert colour number to colour name .•. FlexGrid: fill from recordset .•. FlexGrid: AutoSize columns .•. DB Reserved Words checker .
    Reply With Quote Reply With Quote
  3. Jun 1st, 2006, 08:58 AM #3
    manavo11
    manavo11 is offline
    Super Moderator manavo11's Avatar
    Join Date
    Nov 2002
    Location
    Around the corner from si_the_geek
    Posts
    7,171

    Re: Msgbox

    You should declare Msg1 as VbMsgBoxResult :

    VB Code:
    1. Dim Msg1 As VbMsgBoxResult 

    2. Msg1 = MsgBox("Before you start, please ensure that you know the tab and cell you wish to copy from. For example, for Maximum Roundness Deviation you want to copy from the 'E34' cell of the 'General' tab.", vbOKCancel, "Before you start", vbInformation)


    Has someone helped you? Then you can Rate their helpful post.
    Reply With Quote Reply With Quote
« Previous Thread | Next Thread »

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  

Forum Rules


Click Here to Expand Forum to Full Width