Ako Skok použité adresné štítky a tlač duplicity v programe Access

Access je databázový softvér , ktorý vám umožní pridať vlastný kód funkcie správ . Ak chcete preskočiť použitých štítkov a tlač duplikátov , čo potrebujete vedieť , ako vytvárať zostavy štítkov adries , ako používať Visual Basic for Applications alebo Access Basic a ako používať nástroje programovania v aplikácii Microsoft Access . Vytváranie aplikácií s Microsoft Access umožňuje používateľom pracovať efektívnejšie a plniť úlohy rýchlejšie , rovnako ako uloženie štítku papiera a atramentu . Pokyny dovolená 1

Vytvorenie zostavy adresných štítkov a nazývať to MyLabels . Vytvorte nový modul a v sekcii deklaráciou , pridajte nasledujúci kód :

Option Compare Database

Option Explicit Dim

LabelBlanks &

Dim LabelCopies &

Dim BlankCount &

Dim CopyCount &

Funkcia LabelSetup ( )

LabelBlanks & = Val ( InputBox $ ( " Zadajte počet prázdnych štítkov preskočiť " ) )

LabelCopies a = Val ( InputBox $ ( " Zadajte počet kópií pre tlač " ) )

Ak LabelBlanks a < 0 Then LabelBlanks & = 0

Ak LabelCopies a < 1 potom LabelCopies & = 1

End Function

funkcie LabelInitialize ( )

BlankCount & = 0

CopyCount & = 0

End Function

Funkcia LabelLayout ( R ako správy )

Ak BlankCount & < LabelBlanks a potom

R.NextRecord = False

R.PrintSection = False

BlankCount & = BlankCount & + 1

Else

Ak CopyCount a < ( LabelCopies a - 1 ) Potom

R.NextRecord = False

CopyCount & = & CopyCount + 1

Else

CopyCount & = 0

End If

End If

End Function
2

Otvorte MyLabels zostavu v návrhovom zobrazení . Pridať " = LabelLayout ( Reports! [ MyLabels ] ) " v časti " Detail " v " OnPrint " vlastníctvo riadku .
3

Pridať " = LabelSetup ( ) " až " OnOpen " majetkom správy .
4

Kliknite na na " menu " alebo " Zobraziť Formát " menu v 2,0 a vyberte " Správa o hlavičku /pätu . " Pridanie hlavičky a päty zostavy . V " Pri formátovaní " vlastnosti záhlavie zostavy pridať " = LabelInitialize ( ) . " Nastavte " Výška " majetok na nulu ako pre hlavičku a pätu .
5

Vytlačiť správu . Funkcia vám kódovanie vstúpil v krokoch 1 až 4 bude mať za následok výzvy , ktoré vás žiadajú o počte použitých štítkov preskočiť a počtu každého štítku pre tlač .

• Predchádzajúca strana: Ako sa naučiť rýchly prístup 
• Ďalšia strana: Ako obnoviť Master MDF