Toon posts:

[MSAccess] Tekenen in rapport @runtime

Pagina: 1
Acties:

Verwijderd

Topicstarter
Ik wil in MS Access 2000 in een rapport een rechthoek laten tekenen zodra ik het rapport open, dit doe ik op de volgende manier:

Visual Basic .NET:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Report_Open(Cancel As Integer)
  Dim myRec As Rectangle
  Set myRec = New Rectangle

  With myRec
  .width = 100
  .height = 100
  .top = 50
  .left = 50
  .name = "myRec"
  .visible = True
  End With

End Sub


Ik krijg nu echter de foutmelding :

Fout 429 bij uitvoering
ActiveX-onderdeel kan geen object maken

Verwijderd

Ik weet niet of dat wel kan.
Je kan wel met line een rechthoek tekenen.
Alleen moet je dat bij Report_Page doen en niet bij Report_Open

Verwijderd

waarschijnlijk bestaat je form nog niet .. . je bent te vroeg met creeeren van je object

ps dit kan ook : Dim myRec as new Rectangle

Verwijderd

Verwijderd schreef op 19 september 2002 @ 11:22:
waarschijnlijk bestaat je form nog niet .. . je bent te vroeg met creeeren van je object

ps dit kan ook : Dim myRec as new Rectangle
Het maakt niet echt uit wanneer je bovenstaande code uitvoert. Access slikt het nergens. :( Ik heb het even geprobeerd in een nieuw rapportje op verschillende plekken

Verwijderd

Topicstarter
Als ik er nu een moest hebben, dan maakte ik die in Design time hidden, en vervolgens na aanpassingen @runtime weer visible, maar ik moet er een onbekend aantal hebben van verschillende afmetingen t.b.v. implementatie van een strokenplanning.

Verwijderd

Maak dan een functie die een rechthoek kan tekenen mbv de line functie.
Die werkt nl wel. Dat schreef ik hierboven al.
Dan kan je die functie net zo vaak aanroepen als je zelf wilt

Verwijderd

Topicstarter
Ik ga het eens proberen...alvast bedankt.

Verwijderd

Topicstarter
Krijg dezelfde foutmelding, als het bij jou wel werkt, zou je dan ff de code kunnen geven, volgens mij gaat er in de declaratie iets fout.

Verwijderd

Heb je NL of UK versie van Access ?

Visual Basic:
1
2
3
4
5
Private Sub Report_Page()

    Me.Line (1, 1)-(100, 1000)

End Sub

Verwijderd

Topicstarter
Ik heb het al gevonden, Me.Line (x1,y1)-(x2,y2), , B tekent een rechthoek. Bedankt!
Pagina: 1