Welcome to SPN

Register and Join the most happening forum of Sikh community & intellectuals from around the world.

Sign Up Now!

Message Box

Discussion in 'Information Technology' started by Chey, Jul 28, 2006.

Tags:
  1. Chey

    Chey
    Expand Collapse
    Guest

    I need to create a message box.
    Right now what I have going on is when you check a box it sends an email,
    then prints, then closes the form, then opens it back up to go on to the next
    one. If TA Number is null when it opens I would like an Message Box to
    appear saying there are no more travels to be approved. Then an OKAY to
    actually close the form.

    Can some one show me how to do this?

    Thanks
    Chey
     
  2. Loading...

    Similar Threads Forum Date
    How message of love from Sikh gurus are helping Pakistani Christians to fight forced conversions Sikh Sikhi Sikhism Oct 12, 2015
    Messages from God Sikh Sikhi Sikhism Aug 23, 2015
    Message of Guru Granth Sahib Essays on Sikhism Jan 30, 2014
    World U.N. chief's message to North Korean leader Breaking News Apr 12, 2013
    Christianity Pope Francis prays for world peace in Easter Sunday message Interfaith Dialogues Apr 1, 2013

  3. Corey

    Corey
    Expand Collapse
    Guest

    If [Field Value]= "" Then
    res = MsgBox("No More Travels to be Approved.", , "Company Name Here")
    Exit Sub
     
  4. Arvin Meyer [MVP]

    Arvin Meyer [MVP]
    Expand Collapse
    Guest

    You can use a standard MsgBox, but it is difficult to run a function from
    one, and you can't customize the font, etc. The following MsgBox creator
    simulates the standard MsgBox with a customizeable Access form:

    http://www.datastrat.com/Download/MsgBox2K.zip
    --
    Arvin Meyer, MCP, MVP
    Microsoft Access
    Free Access downloads
    http://www.datastrat.com
    http://www.mvps.org/access

    "Chey" <Chey@discussions.microsoft.com> wrote in message
    news:8AC58ED4-EACE-42CD-B83C-E39344630FAD@microsoft.com...
    >I need to create a message box.
    > Right now what I have going on is when you check a box it sends an email,
    > then prints, then closes the form, then opens it back up to go on to the
    > next
    > one. If TA Number is null when it opens I would like an Message Box to
    > appear saying there are no more travels to be approved. Then an OKAY to
    > actually close the form.
    >
    > Can some one show me how to do this?
    >
    > Thanks
    > Chey
     
  5. Chey

    Chey
    Expand Collapse
    Guest

    It didn't work. I palced it under on open. It still opens.

    This is what I have

    Private Sub Form_Open(Cancel As Integer)
    If [TA Number] = "" Then
    res = MsgBox("No More Travels to be Approved.", , "Company Name Here")
    End If
    Exit Sub
    End Sub

    "Corey" wrote:

    > If [Field Value]= "" Then
    > res = MsgBox("No More Travels to be Approved.", , "Company Name Here")
    > Exit Sub
    >
    >
    >
     
  6. Larry Linson

    Larry Linson
    Expand Collapse
    Guest

    Controls on the Form are not ready to be used in the Open event. The
    OnCurrent event fires for each Record when the Record is displayed. Controls
    have been initialized to the value of the first Record in the Load event.
    If you want to do this once, for the first Record, put your code in the Load
    event; if you want to do this for every Record, put it in the Current event.

    Larry Linson
    Microsoft Access MVP

    "Chey" <Chey@discussions.microsoft.com> wrote in message
    news:E22A2620-CBAC-4F99-8CDE-EA89C3ECDF59@microsoft.com...
    > It didn't work. I palced it under on open. It still opens.
    >
    > This is what I have
    >
    > Private Sub Form_Open(Cancel As Integer)
    > If [TA Number] = "" Then
    > res = MsgBox("No More Travels to be Approved.", , "Company Name Here")
    > End If
    > Exit Sub
    > End Sub
    >
    > "Corey" wrote:
    >
    >> If [Field Value]= "" Then
    >> res = MsgBox("No More Travels to be Approved.", , "Company Name Here")
    >> Exit Sub
    >>
    >>
    >>
     

Share This Page