ACC: Hoe kleiner maken en uitbreiden van een rechthoek in een rapport

Vertaalde artikelen Vertaalde artikelen
Artikel ID: 124642 - Bekijk de producten waarop dit artikel van toepassing is.
Matig: Basic macro, codering en interoperabiliteit vaardigheden vereist.
Alles uitklappen | Alles samenvouwen

Samenvatting

In een rapport een tekstvak kunt uitvouwen verticaal als u ervan te vergroten en Eigenschappen CanShrink op Ja. Rechthoeken en lijnen, echter geen Deze eigenschappen en niet uitbreiden. Een rechthoek rond een besturingselement maken dat kan groter of kleiner, moet u de methode lijn tekenen de rechthoek.

In dit artikel wordt ervan uitgegaan dat u bekend bent met Visual Basic voor Toepassingen en met het maken van toepassingen met behulp van de hulpprogramma's van Microsoft Access. Voor meer informatie. informatie over Visual Basic for Applications, raadpleegt u uw versie van de De handleiding 'Building Applications with Microsoft Access'.

Opmerking: Visual Basic for Applications wordt Access Basic in genoemd Microsoft In Access versie 2.0. Neem voor meer informatie over Access Basic Raadpleeg de handleiding 'Building Applications'.

Meer informatie

In het volgende voorbeeld wordt gedemonstreerd hoe met de methode Line tekenen een een rechthoek rond een Memo-veld van variabele grootte:

  1. Open de voorbeeld-database Northwind.mdb (of NWIND.MDB in versie 2.0).
  2. Maak een leeg nieuw rapport op basis van de tabel Werknemers.
  3. De eigenschap Width van het rapport ingesteld op 5.
  4. Als de lijst met velden niet wordt weergegeven, klikt u op lijst met velden op de In het menu Beeld weer te geven.
  5. Sleep het veld Notities uit de lijst met velden naar de detailsectie.
  6. Het label van het tekstvak notities verwijderen door het label selecteren en vervolgens DELETE te drukken.
  7. Stel de volgende eigenschappen van het tekstvak notities:
    Naam: notities
    Besturingselementbron: notities
    CanGrow: Ja
    CanShrink: Ja
    Links: 0,2 in
    Boven: 0.166
    Breedte: 4.6042 in
    Hoogte: 0.166 in
  8. Selecteer de horizontale balk Details selecteren de detailsectie van het rapport. De eigenschap hoogte van de detailsectie instellen op 0,5 in.
  9. De eigenschap OnPrint van de detailsectie instellen op de volgende gebeurtenis Procedure:
    
           Dim X1 As Single, Y1 As Single
           Dim X2 As Single, Y2 As Single
           Dim Offset As Single
           Dim Color As Long
    
           ' Specify unit of measurement for coordinates on a page...
           Me.ScaleMode = 1 ' ...in twips (1440 twips = 1 inch).
    
           ' Define an offset of 1/8 inch from the text box to the rectangle.
           Offset = 1440 / 8
    
           ' X and Y coordinates for the top left corner of the box.
           X1 = Me![Notes].Left - Offset
           Y1 = Me![Notes].Top - Offset
    
           ' X and Y coordinates for the bottom right corner of the box.
           X2 = Me![Notes].Left + Me![Notes].Width + Offset
           Y2 = Me![Notes].Top + Me![Notes].Height + Offset
    
           Me.DrawWidth = 3        ' Width of the line (in pixels).
           Color = RGB(0, 0, 0)    ' Use black line color.
    
           ' Draw the rectangle with the Line method.
           Me.Line (X1, Y1)-(X2, Y2), Color, B
  10. In Microsoft Access 2.0. Typ de volgende regel in de De declaratiesectie van de module:
           Option Explicit
  11. Klik in het menu uitvoeren op geladen Modules compileren van de code compileren.
  12. Sluit de module en het rapportvoorbeeld. Merk op dat de notities veld en het kader rondom het uitbreiden en contract samen.

Referenties

Zoek voor meer informatie over de methode Line Line, methode, Gebruik de Help-Index van Microsoft Access 97.

Eigenschappen

Artikel ID: 124642 - Laatste beoordeling: dinsdag 10 juli 2012 - Wijziging: 4.0
De informatie in dit artikel is van toepassing op:
  • Microsoft Access 2.0 Standard Edition
  • Microsoft Access 97 Standard Edition
Trefwoorden: 
kbhowto kbprogramming kbusage kbmt KB124642 KbMtnl
Automatisch vertaald artikel
BELANGRIJK: Dit artikel is vertaald door de vertaalmachine software van Microsoft in plaats van door een professionele vertaler. Microsoft biedt u professioneel vertaalde artikelen en artikelen vertaald door de vertaalmachine, zodat u toegang heeft tot al onze knowledge base artikelen in uw eigen taal. Artikelen vertaald door de vertaalmachine zijn niet altijd perfect vertaald. Deze artikelen kunnen fouten bevatten in de vocabulaire, zinsopbouw en grammatica en kunnen lijken op hoe een anderstalige de taal spreekt en schrijft. Microsoft is niet verantwoordelijk voor onnauwkeurigheden, fouten en schade ontstaan door een incorrecte vertaling van de content of het gebruik ervan door onze klanten. Microsoft past continue de kwaliteit van de vertaalmachine software aan door deze te updaten.
De Engelstalige versie van dit artikel is de volgende: 124642
Vrijwaring inhoud KB-artikelen over niet langer ondersteunde producten
Dit artikel heeft betrekking op producten waarvoor Microsoft geen ondersteuning meer biedt. Daarom wordt dit artikel alleen in de huidige vorm aangeboden en wordt het niet meer bijgewerkt.

Geef ons feedback

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com