Solved

Polymorphism In Access

Posted on 2004-10-19
12
313 Views
Last Modified: 2012-06-21
in want to use polymorphism in VBA

the thing i try is this

dim frm as form
set frm = Forms("a type of a form")
msgbox frm.MyFunction
set frm = Forms("another form")
msgbox frm.MyFunction

MyFunction is declared in the 2 custom form i created but I don't in the standard Form class
I also tried created frm as Variant or a Object but did'nt worked
0
Comment
Question by:numeriss
  • 6
  • 3
  • 2
  • +1
12 Comments
 
LVL 10

Accepted Solution

by:
ALaRiva earned 300 total points
ID: 12351068
If the Function is to be called from another object outside of that form's scope, then you need to make sure that it's set to Public instead of Private.

i.e.
Public Function MyFunction()

instead of
Private Function MyFunction()

-Anthony
0
 

Author Comment

by:numeriss
ID: 12351088
this is the function i use in every form

Public Function MyFunction() As String
  MyFunction = "Administration"
End Function
0
 
LVL 10

Assisted Solution

by:ALaRiva
ALaRiva earned 300 total points
ID: 12351201
What's the purpose of the Function?  What do you use it for?  

If you are using the same thing in every form, then why not use one Public Function in a standard Module instead?

-Anthony

0
 
LVL 50

Assisted Solution

by:Steve Bink
Steve Bink earned 200 total points
ID: 12351206
You also have to be sure the form is loaded (read as: opened) before referencing it.  The Forms collection only holds forms currently loaded by Access.
0
 

Author Comment

by:numeriss
ID: 12351446
I damnit I was mistyping the MyFunction and since intellisence don't show up on polymorphism I didn't noticied
0
 
LVL 10

Expert Comment

by:ALaRiva
ID: 12351475
Well, that'll do it to ya!!! LOL, Glad you got it sorted out.
0
U.S. Department of Agriculture and Acronis Access

With the new era of mobile computing, smartphones and tablets, wireless communications and cloud services, the USDA sought to take advantage of a mobilized workforce and the blurring lines between personal and corporate computing resources.

 
LVL 10

Expert Comment

by:ALaRiva
ID: 12351486
What's with the B Grade?  

Not that Points or Grades matter to me, but I know that we were going through all of the standard protocols for answering a question like this, yet you gave us a B?
0
 
LVL 10

Expert Comment

by:ALaRiva
ID: 12351503
Definitely not trying to cause any trouble either, I'm just curious.   Is that a standard grade when you solve the issue yourself?

-Anthony
0
 
LVL 50

Expert Comment

by:Steve Bink
ID: 12351582
The 'standard' response would have been to PAQ/Refund or Delete/Refund the question.  But if the questionner wants to award points, I doubt very much any of us will stop them.  :)

numeriss:  If you would like to have your points refunded for this question, post a request in the Community Support TA.  Good luck with the rest of your project!
0
 
LVL 10

Expert Comment

by:ALaRiva
ID: 12351650
@routinet,
    Thanks for the clarification.  I wasn't sure, but I know that others get upset with B Grades so I figured I would ask what the reasoning and standard is.

-Anthony
0
 
LVL 50

Expert Comment

by:Steve Bink
ID: 12351814
It's all good.  If you are interested in seeing the suggested guidelines for grading questions, take a look at:

http://www.experts-exchange.com/help.jsp#hi73

Remove the "#hi73" to start at the beginning of the FAQ (or scroll up!)
0
 
LVL 1

Expert Comment

by:powlin
ID: 12352259
I'm grading depending on who the answer helped me if the answer was right i put excellent, if the answer was good but not the one i looked for but helped me finding the problem i give B and I think that B stand for good, that is a really positive grade, i'm happy when I get B on my school exam hehe
0

Featured Post

Backup Your Microsoft Windows Server®

Backup all your Microsoft Windows Server – on-premises, in remote locations, in private and hybrid clouds. Your entire Windows Server will be backed up in one easy step with patented, block-level disk imaging. We achieve RTOs (recovery time objectives) as low as 15 seconds.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

In the article entitled Working with Objects – Part 1 (http://www.experts-exchange.com/Microsoft/Development/MS_Access/A_4942-Working-with-Objects-Part-1.html), you learned the basics of working with objects, properties, methods, and events. In Work…
QuickBooks® has a great invoice interface that we were happy with for a while but that changed in 2001 through no fault of Intuit®. Our industry's unit names are dictated by RUS: the Rural Utilities Services division of USDA. Contracts contain un…
Familiarize people with the process of utilizing SQL Server functions from within Microsoft Access. Microsoft Access is a very powerful client/server development tool. One of the SQL Server objects that you can interact with from within Microsoft Ac…
Learn how to number pages in an Access report over each group. Activate two pass printing by referencing the pages property: Add code to the Page Footers OnFormat event to capture the pages as there occur for each group. Use the pages property to …

932 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

14 Experts available now in Live!

Get 1:1 Help Now