[AccessD] Abstract question

Thanks Michael! I shall play around with this and see if it can work.
 
Arthur Fuller
Technical Writer, Data Modeler, SQL Sensei
Artful Databases Organization
www.artfulsoftware.com




----- Original Message ----
From: Michael R Mattys <mmattys at rochester.rr.com>
To: Access Developers discussion and problem solving <accessd at databaseadvisors.com>
Sent: Sunday, February 11, 2007 11:19:20 AM
Subject: Re: [AccessD] Abstract question


I forgot this part ...

'-----Module1-----
Public Function SSInit(ByRef rfrm As Form)
    Dim obj As New clsSpreadSheet
    obj.Init rfrm
End Function

Public Sub AddSpreadSheets()
    Dim frm1 As New Form_Spreadsheet
    Dim frm2 As New Form_Spreadsheet
    Dim frm3 As New Form_Spreadsheet
    With frm1
        .Visible = True
        DoCmd.MoveSize , 0
    End With
    With frm2
        .Visible = True
        DoCmd.MoveSize , 500
    End With
    With frm3
        .Visible = True
        DoCmd.MoveSize , 1000
    End With
End Sub

Sub OpenSpreadSheets(NumberOfSS As Integer)
    Dim i As Integer, f As Form, h As Long, r As Integer, d As Integer, M As 
Integer
    r = 100
    For i = 1 To NumberOfSS
        r = r + 500
        Set f = New Form_Spreadsheet
        With f
            d = M + f.Section(0).Properties("Height")
            .Caption = .Name & i
            .Visible = True
            h = .hwnd
            DoCmd.MoveSize , d
        End With
        d = d + d
    Next
End Sub

Michael R. Mattys
MapPoint & Access Dev
www.mattysconsulting.com 

-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com