title image


Smiley TIPP: Formular mehrmals öffnen und neue Instanzen ausserhalb des Formulars
deklarieren - geht z.B. so (dabei angenommen, dass das zu öffnende Formular "frmDetail" heisst):



Option Compare Database

Option Explicit

Const KachelBreite = 300, KachelHöhe = 200

Dim A() As Form, I As Long, x As Long, y As Long

Private Const SWP_SHOWWINDOW = &H40

Private Declare Function SetWindowPos Lib "user32" _

(ByVal hWnd As Long, ByVal hWndInsertAfter As Long, _

ByVal x As Long, ByVal y As Long, ByVal cx As Long, _

ByVal cy As Long, ByVal wFlags As Long) As Long



Private Sub Form_Click()

I = I + 1

ReDim Preserve A(I)

Set A(I) = New Form_frmDetail

With A(I)

.Form.Filter = "ID=" & Me!ID

.Form.FilterOn = True

.Visible = True

SetWindowPos .hWnd, 0&, x, y, KachelBreite, KachelHöhe, SWP_SHOWWINDOW

y = y + KachelHöhe

If y > 3 * KachelHöhe Then

y = 0

x = x + KachelBreite

End If

End With

End Sub



Gruß aus dem Norden
Reinhard


Bitte immer die Access-Version angeben!
DB-Wiki


Wie man Fragen richtig stellt

YaccessAccess-FAQUnd ansonsten: Wikipedia




geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: