ACC2000: Jak formát čísel Fax ke sloučení s aplikací Microsoft Word

ID článku: 210009 - Produkty, které se vztahují k tomuto článku.
Strojově přeložený článekUPOZORNĚNÍ: TENTO ČLÁNEK BYL STROJOVĚ PŘELOŽEN
Střední: Vyžaduje základní dovednosti v oblasti maker, kódování a práce v různých prostředích.

Tento článek se týká pouze databáze aplikace Microsoft Access (MDB).

Rozbalit všechny záložky | Minimalizovat všechny záložky

Souhrn

Tento článek ukazuje, jak formátovat číslo faxu v aplikaci Access 2000 tak, aby sloučit s dokument Microsoft Word, který používá k tisku faxový modem Microsoft Exchange Server.

Další informace

V aplikaci Word můžete vytvořit dokument hromadné korespondence používající Microsoft Exchange Server vytisknout faxový modem. Však Pokud faxové číslo není v určitém formátu, Exchange Server nelze jej zpracovat. Když k tomu dojde, prezentuje Exchange Server během hromadné korespondence pro každé nerozpoznané faxové číslo nalezne dialogové okno Kontrola jmen.

Data faxové číslo musí být v následujícím formátu
[FAX: number]
kde je faxové číslo number vytáčíte. Například:
FAX: 12065551212
Následující příklad používá ukázkovou databázi Northwind.mdb. Ukazuje, jak vytvořit proceduru formátovat čísla faxu a pak použije postup vytvářecí dotaz. Výsledek dotazu obsahuje pouze záznamy 7 nebo 10 číslic faxová čísla.

Poznámka: během hromadné korespondence aplikace Dynamic Data Exchange (DDE) nebo Open Database Connectivity (ODBC) k připojení můžete použít s Microsoft Access. DDE, nejběžnější typ připojení rozpozná uživatelem definované procedury v dotazu. Pokud pomocí DDE můžete provést dotaz v tomto příkladu výběrový dotaz a použít ji jako zdroj dat pro hromadnou korespondenci. Ovladače Microsoft Access ODBC však způsobit chybu při použití výběrového dotazu, protože ovladače rozpoznat procedury definované uživatelem. Následující příklad používá vytvářecího dotazu namísto výběrový dotaz pro kompatibilitu s obě metody připojení.

Společnost Microsoft poskytuje ukázky programování pouze pro ilustraci, bez žádné záruky výslovně uvedené nebo odvozené,. včetně, bez omezení, odvozených záruk vztahujících se k obchodovatelnosti nebo vhodnosti pro určitý účel. Tento článek předpokládá, že uživatel je obeznámen s programovacím jazykem, který je předmětem ukázky, a s nástroji použitými pro vytvoření a ladění skriptu. Pracovníci technické podpory společnosti Microsoft mohou vysvětlit funkce určitého postupu, nemohou však následující příklady rozšířit o další funkce nebo konstrukce podle konkrétních požadavků uživatele. Upozornění: Pokud postupujte podle kroků v tomto příkladu, změníte ukázkovou databázi Northwind.mdb. Můžete chtít zálohovat soubor Northwind.mdb a postupujte podle těchto kroků na kopii databáze.

  1. Spusťte aplikaci Microsoft Access a otevřete ukázkovou databázi Northwind.mdb.
  2. Vytvořte modul a potom zadejte následující řádek v sekci deklarací, pokud již není přítomen:
    Možnost Explicit
  3. Zadejte nebo vložte následující postup: 
    Function FaxNumFormat(FaxNum)

' If the fax number field is empty, return "Invalid Fax" and exit.
If IsNull(FaxNum) Then
   FaxNumFormat = "Invalid Fax Number"
   Exit Function
End If

Dim Counter As Integer
Dim NewString As String

' Strip out all characters except numbers.
For Counter = 1 To Len(FaxNum)
   If IsNumeric(Mid(FaxNum, Counter, 1)) Then
      NewString = NewString & Mid(FaxNum, Counter, 1)
   End If
Next Counter

' If NewString is 10 digits long and the call is local, format the
' digits to the right of the area code.
If Len(NewString) = 10 And _
   Left(NewString,3) = "<YourAreaCode>" Then
   NewString = Right(NewString,7)
   NewString = Format(NewString,"\[\F\A\X\:#\]")

' If NewString is 10 digits long, and the call is long distance, add
' the long distance prefix '1' to the beginning, then format
' accordingly.
ElseIf Len(NewString) = 10 Then
   NewString = "1" & NewString
   NewString = Format(NewString, "\[\F\A\X\:#\]")
' If NewString is 7 digits long, format accordingly.
ElseIf Len(NewString) = 7 Then
   NewString = Format(NewString, "\[\F\A\X\:#\]")
Else
   ' All other numbers are invalid.
   NewString = "Invalid Fax Number"
End If
FaxNumFormat = NewString

End Function
  4. Uložte modul jako basFaxNumber a zavřete jej.
  5. Vytvořit nový dotaz v návrhovém zobrazení a přidejte tabulky Dodavatelé.
  6. V mřížce dotazu přidejte následující pole:
    Pole: NázevSpolečnosti
    Zobrazit: Ano
    Pole: kontakt
    Zobrazit: Ano
    Pole: FaxNbr: FaxNumFormat([Fax])
    Zobrazit: Ano
    Kritéria: <>"Neplatné faxové číslo"
  7. V nabídce dotaz klepněte na příkaz Vytvářecí.
  8. V dialogovém okně Vytvářecí zadejte název tblMergeFax a potom klepněte na tlačítko OK.
  9. V nabídce dotaz klepněte na tlačítko Spustit.
  10. Jakmile se výzva "Opravdu chcete vytvořit novou tabulku s vybrané záznamy?", klepněte na tlačítko Ano.
  11. Otevřete tabulku tblMergeFax.
  12. Poznámka: všechny záznamy v tabulce obsahují správné faxu formátu čísla v poli FaxNbr. Například: 
       CompanyName                 ContactName     FaxNbr
   -------------------------   -------------   -----------------
   Grandma Kelly's Homestead   Regina Murphy   [FAX:13135553349]
  13. Pomocí tabulky tblMergeFax sloučit s aplikací Microsoft Word.

Vlastnosti

ID článku: 210009 - Poslední aktualizace: 23. června 2005 - Revize: 3.0
Informace v tomto článku jsou určeny pro produkt:
  • Microsoft Access 2000 Standard Edition
Klíčová slova: 
kbmt kbhowto kbinfo kbinterop KB210009 KbMtcs
Strojově přeložený článek
Důležité: Tento článek byl přeložen pomocí software společnosti Microsoft na strojový překlad, ne profesionálním překladatelem. Společnost Microsoft nabízí jak články přeložené překladatelem, tak články přeložené pomocí software na strojový překlad, takže všechny články ve Znalostní databázi (Knowledge Base) jsou dostupné v češtině. Překlad pomocí software na strojový překlad ale není bohužel vždy dokonalý. Obsahuje chyby ve skloňování slov, skladbě vět, nebo gramatice, podobně jako když cizinci dělají chyby při mluvení v češtině. Společnost Microsoft není právně zodpovědná za nepřesnosti, chyby nebo škody vzniklé chybami v překladu, nebo při použití nepřesně přeložených instrukcí v článku zákazníkem. Společnost Microsoft aktualizuje software na strojový překlad, aby byl počet chyb omezen na minimum.
Projděte si také anglickou verzi článku:210009
(http://support.microsoft.com/kb/210009/en-us/ )
Zpět nahoru | Dejte nám zpětnou vazbu

Dejte nám zpětnou vazbu

 
Zpět nahoruZpět nahoru