Welcome to SPN

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

Sign Up Now!

Sub be used in other FORMs ?

Discussion in 'Information Technology' started by Martin \(Martin Lee\), Jul 28, 2006.

  1. Martin \(Martin Lee\)

    Martin \(Martin Lee\)
    Expand Collapse
    Guest

    In one of my FORMs, I wrote the following VBA ( I want to make this sub ai()
    useable in all other forms ) :

    Sub ai()

    Dim sqsrps As String

    If [income] * [period] <= [cost] Then
    sqsrps = "INCOME TOO LOW"
    End If

    MsgBox sqsrps, , "Alert!"

    End Sub

    -------------------------------------

    Then, I want to "reuse" this SUB in other FORMs.

    So that I set a BUTTON on this other FORM, the VBA of this button is:

    Private Sub Command692_Click()
    ai()
    End Sub

    -------------------------------------------

    However, it cannot work.

    Why and How to solve this problem.

    Thank you.


    Martin Lee
     
  2. Loading...

    Similar Threads Forum Date
    Movies Want movie Subeg Singh Shahbaz Singh Theatre, Movies & Cinema Jan 12, 2016
    United Sikhs Sikh woman sues suburban go-kart park after hair cut from motor Sikh Organisations Jan 9, 2014
    World Milkha Singh-inspired character makes appearance on Subway Surfers Breaking News Jan 7, 2014
    The Inner Experience and the Subconscious Mind Interfaith Dialogues Dec 6, 2013
    Opinion 1984 Sikh Genocide Petition To Be Submitted To The UN Breaking News Oct 23, 2013

  3. Martin \(Martin Lee\)

    Martin \(Martin Lee\)
    Expand Collapse
    Guest

    I solved the problem.

    Using Module to contain the sub ai()

    Thanks!

    Martin Lee



    "Martin (Martin Lee)" <lajitong888@21cn.com> дÈëÏûÏ¢ÐÂÎÅ:u78RdXieGHA.3388@TK2MSFTNGP05.phx.gbl...
    > In one of my FORMs, I wrote the following VBA ( I want to make this sub
    > ai() useable in all other forms ) :
    >
    > Sub ai()
    >
    > Dim sqsrps As String
    >
    > If [income] * [period] <= [cost] Then
    > sqsrps = "INCOME TOO LOW"
    > End If
    >
    > MsgBox sqsrps, , "Alert!"
    >
    > End Sub
    >
    > -------------------------------------
    >
    > Then, I want to "reuse" this SUB in other FORMs.
    >
    > So that I set a BUTTON on this other FORM, the VBA of this button is:
    >
    > Private Sub Command692_Click()
    > ai()
    > End Sub
    >
    > -------------------------------------------
    >
    > However, it cannot work.
    >
    > Why and How to solve this problem.
    >
    > Thank you.
    >
    >
    > Martin Lee
    >
     

Share This Page