Access er en database -software, der giver dig mulighed for at føje brugerdefineret kode til rapporter funktion. At springe brugt adresseetiketter og print dubletter , du behøver at vide , hvordan man skaber adresseetiket rapporter , hvordan man bruger Visual Basic for Applications eller Access Basic og hvordan man bruger programmerings værktøjer, der i Microsoft Access. Opbygning af programmer med Microsoft Access giver brugerne arbejde mere effektivt og udføre opgaver hurtigere, samt spare label papir og printerblæk . Instruktioner
1
Opret en Postlabel rapport og kalder det MyLabels . Opret et nyt modul , og i sektionen Erklæringer , følgende kode tilføjer : Hej
Option Sammenlign Database
Option Explicit
Dim LabelBlanks & Salg
Dim LabelCopies & < br >
Dim BlankCount &
Dim CopyCount &
Function LabelSetup ()
LabelBlanks & = Val ( InputBox $ ("Indtast antal tomme etiketter at springe " )) < br >
LabelCopies & = Val ( InputBox $ ("Indtast antal kopier der skal udskrives " ) )
p Hvis LabelBlanks & < 0 Then LabelBlanks & = 0
p Hvis LabelCopies & < 1 Så LabelCopies & = 1
End Function
Function LabelInitialize ()
BlankCount & = 0
CopyCount & = 0
End Function
< p > Funktion LabelLayout (R Da rapporten)
p Hvis BlankCount & < LabelBlanks & Så
R.NextRecord = False
R.PrintSection = False
BlankCount & = BlankCount & + 1
Else
p Hvis CopyCount & < ( LabelCopies & - 1 ) og derefter
R.NextRecord = False
CopyCount & = CopyCount & + 1 < br >
Else
CopyCount & = 0
End If
End If
End Function
2
Åben MyLabels rapporten i designvisning . Tilføj "= LabelLayout ( Reports! [ MyLabels ] )" i "Detail " sektionen i " OnPrint " ejendom linje.
3
Tilføj "= LabelSetup ()" til " OnOpen "ejendom af rapporten.
4
Klik på " Vis " -menuen eller menuen" Format " i 2,0 og vælg" rapport Sidehoved /sidefod ". Tilføj en rapport header og footer . I " OnFormat " ejendom af rapporten header tilføje "= LabelInitialize (). " Sæt " Højde " ejendom til nul for både overskrift og fodnote .
5.
Udskriv rapporten. Funktionen kodning du indtastede i trin 1 til 4 vil resultere i meddelelser, som beder dig om antallet af anvendte etiketter til at springe , og antallet af hver etiket for at udskrive.
