Welcome to SPN

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

Sign Up Now!
  1.   Become a Supporter    ::   Make a Contribution   
    Target (Recurring Monthly): $200 :: Achieved: $98

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
    >
     
Since you're here... we have a small favor to ask...

More people are visiting & reading SPN than ever but far fewer are paying to sustain it. Advertising revenues across the online media have fallen fast. So you can see why we need to ask for your help. Donating to SPN's is vote for free speech, for diversity of opinions, for the right of the people to stand up to religious bigotry. Without any affiliation to any organization, this constant struggle takes a lot of hard work to sustain as we entirely depend on the contributions of our esteemed writers/readers. We do it because we believe our perspective matters – because it might well be your perspective, too... Fund our efforts and together we can keep the world informed about the real Sikh Sikhi Sikhism. If everyone who writes or reads our content, who likes it, helps us to pay for it, our future would be much more secure. Every Contribution Matters, Contribute Generously!

    Become a Supporter      ::     Make a Contribution     



Share This Page