 NeoPa  32,556
Expert Mod 16PB
The following code is a class module with an example of its usage to follow. Class Module Name=classForm - Option Compare Database
-
Option Explicit
-
-
'21/1/2004 Added Private Set & Public Get code for frmTo.
-
'21/9/2004 Removed ResumeTo functionality. _
-
Now handled by the OnTimer() subroutine in the calling form _
-
checking for (Visible) which indicates the called form is finished.
-
'24/2/2005 Added function Uninitialised to show if instance of this object _
-
has yet been initialised with the callers info. _
-
It also checks this before it tries to open a new form.
-
'13/3/2007 Added optional parameter varOpenArgs to be passed 'as is' into _
-
the new form.
-
-
Private Const conUnInitMsg As String = _
-
"Object uninitialised - unable to show form."
-
-
Private frmParent As Form
-
Private WithEvents frmCalled As Form
-
-
Public Property Set frmFrom(frmValue As Form)
-
Set frmParent = frmValue
-
End Property
-
-
Private Property Get frmFrom() As Form
-
Set frmFrom = frmParent
-
End Property
-
-
Private Property Set frmTo(frmValue As Form)
-
Set frmCalled = frmValue
-
End Property
-
-
Public Property Get frmTo() As Form
-
Set frmTo = frmCalled
-
End Property
-
-
'Uninitialised returns True if frmFrom not yet initialised.
-
Public Function Uninitialised() As Boolean
-
Uninitialised = (frmFrom Is Nothing)
-
End Function
-
-
'ShowForm opens form strTo and hides the calling form. Returns True on success.
-
Public Function ShowForm(strTo As String, _
-
Optional varOpenArgs As Variant) As Boolean
-
ShowForm = True
-
'Don't even try if caller hasn't initialised Form object yet
-
If Uninitialised() Then
-
ShowForm = False
-
Call MsgBox(conUnInitMsg, , "classForm.ShowForm")
-
Exit Function
-
End If
-
Call DoCmd.Restore
-
'Handle error on OpenForm() only.
-
On Error GoTo ErrorSF
-
Call DoCmd.OpenForm(FormName:=strTo, OpenArgs:=varOpenArgs)
-
On Error GoTo 0
-
Set frmTo = Forms(strTo)
-
frmFrom.Visible = False
-
Exit Function
-
-
ErrorSF:
-
ShowForm = False
-
Call MsgBox("Error found in [" & frmFrom.Name & _
-
".ShowForm] calling [" & strTo & "]." & VbCrLf & _
-
"Error#=" & Err.Number & " - " & Err.Description & ".")
-
End Function
-
-
'************************* Contained Object Method(s) *************************
-
'For these subroutines to be activated the contained object must have the
-
''On Close' property set to a valid subroutine within the contained object.
-
Private Sub frmCalled_Close()
-
frmFrom.Visible = True
-
Call DoCmd.Restore
-
Set frmTo = Nothing
-
End Sub
-
'***************************************************************************
This code is an example menu form. It is calls another form (A, B & C) and is called by another menu (D & E) so incorporates all the code required to make it work.
It is a standard in my databases that reports are always maximised and that forms are always restored, so there is code in her to do that, but this can be stripped without losing the main functionality. - To use the classForm class it is necessary to Dim a variable to reference it. This need only be declared as Private as it is referenced exclusively internally.
- The variable needs to be set up with the calling form [frmFrom] before it is used in anger.
- Invokes a new form. This causes the current form to be hidden until the invoked form is closed.
- I would typically have a CommandButton on every form to exit.
- In case the x at top-right (or any of a bunch of other methods) is used, the actual tidying up work is (and always should be) done in the Form_Close event procedure. A completely empty procedure is simply dropped at compile time, so a comment line must be included here at least. The class can only pick up (and pass on) the fact that the called form has been closed if this procedure exists in the called form.
- Option Compare Database
-
Option Explicit
-
-
Private clsTo As New classForm '<-- A
-
-
Private Sub Form_Open(Cancel As Integer)
-
Call DoCmd.Restore
-
Set clsTo.frmFrom = Me '<-- B
-
End Sub
-
-
Private Sub cmdGroupCust_Click()
-
Call clsTo.ShowForm(strTo:="frmGroupCust") '<-- C
-
End Sub
-
-
Private Sub cmdExit_Click() '<-- D
-
Call DoCmd.Close(ObjectType:=acForm, ObjectName:=Me.Name)
-
End Sub
-
-
Private Sub Form_Close() '<-- E
-
'Method must exist in order for container to handle event.
-
End Sub
2 8730 
Nice... BookMarked! Question, how many buttons do you usually run on these forms? I am doing quite well with button management, I have many buttons yet it is neat and tidy but I was curious.
NeoPa 32,556
Expert Mod 16PB
Thank you.
There's not really any limit except the size of the form.
I normally run 1280x1024 resolution but try to design for 1024x768. I run up to seven rows of buttons (Plus my cmdExit button on all forms) and up to two columns. Each button is .8 high and wide and I leave a gap of .2 between each (vertically).
I know I could fit more on, but aesthetically, I want it to be comfortable and easy for the operator to use.
Sign in to post your reply or Sign up for a free account.
Similar topics
by: Kate |
last post by:
I am learning VB by working on an existing application. It is dawning
on me that this particular program was not designed very carefully,
and I have come to the point where I have to deal with...
|
by: JMosey |
last post by:
Not sure if this has been covered ( a google search came up pretty
bare).
I have a site that:
- has multi-level cascading menus
- floats center of the browser window
- Will have fairly heavy...
|
by: Colin Walls |
last post by:
I have been asked to produce a web catalogue of services and associated
options, this eventually will be used for ordering the services.
My initial thought was to use a set of cascading drop...
|
by: (Pete Cresswell) |
last post by:
Seems like when there's a 1:1 relationship, the order of referential integrity
enforcement depends on which way you drag the mouse pointer when drawing the
relationship line.
If you drag from...
|
by: Crucifix |
last post by:
Hello,
I'm writing a small C# app, and part of what I'm trying to do
involves the dragging of PictureBox controls on a form. Unfortunately,
MouseMove seems to be behaving very oddly, causing...
|
by: Edwinah63 |
last post by:
Hi everyone,
Please let there be someone out there who can help.
I have two BOUND combo boxes on a continuous form, the second being
dependent on the first. I have no problem getting the...
|
by: Rabbit |
last post by:
Cascading Combo/List Boxes
This tutorial is to guide you in the creation of Cascading combo/list boxes. That is when you have multiple combo/list boxes where the selection of an option in one...
|
by: klarae99 |
last post by:
Hello,
I am working on an Access 2003 Database. The tables that pertain to this issue are tblOrg, tblState, tblCity, and tblZip. I have posted the table structure with only the pertinant fields...
|
by: 20028431 |
last post by:
This is driving me mad!
I have been trying for 3 days now to work out how to do this with no success.
I have tables for Customer, Bookings, Entertainment, Act, Agent, and several others.
I...
|
by: CloudSolutions |
last post by:
Introduction:
For many beginners and individual users, requiring a credit card and email registration may pose a barrier when starting to use cloud servers. However, some cloud server providers now...
|
by: ryjfgjl |
last post by:
In our work, we often need to import Excel data into databases (such as MySQL, SQL Server, Oracle) for data analysis and processing. Usually, we use database tools like Navicat or the Excel import...
|
by: taylorcarr |
last post by:
A Canon printer is a smart device known for being advanced, efficient, and reliable. It is designed for home, office, and hybrid workspace use and can also be used for a variety of purposes. However,...
|
by: Charles Arthur |
last post by:
How do i turn on java script on a villaon, callus and itel keypad mobile phone
|
by: aa123db |
last post by:
Variable and constants
Use var or let for variables and const fror constants.
Var foo ='bar';
Let foo ='bar';const baz ='bar';
Functions
function $name$ ($parameters$) {
}
...
|
by: ryjfgjl |
last post by:
If we have dozens or hundreds of excel to import into the database, if we use the excel import function provided by database editors such as navicat, it will be extremely tedious and time-consuming...
|
by: ryjfgjl |
last post by:
In our work, we often receive Excel tables with data in the same format. If we want to analyze these data, it can be difficult to analyze them because the data is spread across multiple Excel files...
|
by: nemocccc |
last post by:
hello, everyone, I want to develop a software for my android phone for daily needs, any suggestions?
|
by: Sonnysonu |
last post by:
This is the data of csv file
1 2 3
1 2 3
1 2 3
1 2 3
2 3
2 3
3
the lengths should be different i have to store the data by column-wise with in the specific length.
suppose the i have to...
| |
