ACC2000: How to formato numeri di fax da unire in Microsoft Word

Traduzione articoli Traduzione articoli
Identificativo articolo: 210009 - Visualizza i prodotti a cui si riferisce l’articolo.
Questo articolo è stato archiviato. L’articolo, quindi, viene offerto “così come è” e non verrà più aggiornato.
Moderato: Impone la macro di base, codifica e le competenze di interoperabilità.

Il contenuto di questo articolo è applicabile solo ai database Microsoft Access (mdb).

Espandi tutto | Chiudi tutto

Sommario

In questo articolo viene illustrato come formattare un numero di fax in Microsoft Access 2000 in modo che è possibile unire un documento di Microsoft Word che utilizza Microsoft Exchange Server per la stampa su un modem fax.

Informazioni

In Microsoft Word, è possibile creare un documento di unione che utilizza Microsoft Exchange Server per stampare su un modem fax. Tuttavia, se il numero di fax non è in un formato specifico, Exchange Server non è in grado di elaborarlo. In questo caso, in Exchange Server viene visualizzata una finestra di dialogo Controlla nomi durante l'unione per ciascun numero di fax non riconosciuto che incontra.

I dati di numeri di fax devono essere nel formato seguente
[FAX: number]
dove il number è il numero di fax che si sta chiamando. Ad esempio:
[FAX: 12065551212]
Nell'esempio viene utilizzata il database di esempio Northwind.mdb. Mostra come creare una routine per formattare i numeri di fax e quindi viene utilizzata la routine in una query di creazione tabella. Il risultato della query contiene solo i record contenenti i numeri di fax 7 o 10 cifre.

Nota : durante una stampa unione, verrà possibile utilizzare DDE (Dynamic Data Exchange) o ODBC (Open Database Connectivity) per connettersi a Microsoft Access. DDE, il tipo di connessione più comune, riconosce una routine definita dall'utente in una query. Se si utilizza DDE, è possibile eseguire la query in questo esempio selezionare una query e quindi utilizzarlo come origine dei dati per la stampa unione. Tuttavia, i driver ODBC di Microsoft Access genera un errore quando si utilizza una query di selezione, in quanto i driver non riconoscono la routine definita dall'utente. Nell'esempio viene utilizzata una query di creazione tabella invece di una query di selezione per la compatibilità con entrambi i metodi di connessione.

Microsoft fornisce esempi di programmazione a scopo puramente illustrativo, senza alcuna garanzia espressa o implicita. Questo include, ma non è limitato a, le garanzie implicite di commerciabilità o idoneità per uno scopo specifico. Questo articolo si presuppone che conosca il linguaggio di programmazione in questione e gli strumenti utilizzati per creare ed eseguire il debug di procedure. Tecnici del supporto Microsoft possono spiegare la funzionalità di una particolare procedura, ma in nessun sono caso a modificare questi esempi per fornire funzionalità aggiuntive o creare procedure per soddisfare specifiche esigenze. attenzione : se la procedura in questo esempio, è possibile modificare il database di esempio Northwind.mdb. È possibile che si desidera eseguire il backup del file Northwind.mdb attenersi alla seguente procedura su una copia del database.

  1. Avviare Microsoft Access e aprire il database di esempio Northwind.mdb.
  2. Creare un modulo e digitare la seguente riga nella sezione Dichiarazioni se non è già presente:
    opzione Explicit
  3. Digitare o incollare la seguente procedura:
    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. Salvare il modulo come basFaxNumber e chiuderlo.
  5. Creare una nuova query in visualizzazione struttura e aggiungere la tabella fornitori.
  6. Nella griglia della query aggiungere i campi seguenti:
    Campo: NomeSocietà
    Mostra: Sì
    Campo: contatto
    Mostra: Sì
    Campo: FaxNbr: FaxNumFormat([Fax])
    Mostra: Sì
    Criterio: <> "Numero di fax non valido"
  7. Nel menu query , fare clic su Creazione tabella .
  8. Nella finestra di dialogo Creazione tabella , digitare il nome tblMergeFax e quindi fare clic su OK .
  9. Nel menu query , fare clic su Esegui .
  10. Quando viene visualizzato il messaggio "Si sicuri di che voler creare una nuova tabella con i record selezionati?", fare clic su .
  11. Aprire tblMergeFax la tabella.
  12. Si noti che tutti i record della tabella contiene il formato numero fax corretto nel campo FaxNbr. Ad esempio:
       CompanyName                 ContactName     FaxNbr
       -------------------------   -------------   -----------------
       Grandma Kelly's Homestead   Regina Murphy   [FAX:13135553349]
    					
  13. Utilizzare il tblMergeFax tabella per unire con Microsoft Word.

Proprietà

Identificativo articolo: 210009 - Ultima modifica: mercoledì 5 febbraio 2014 - Revisione: 3.0
Le informazioni in questo articolo si applicano a:
  • Microsoft Access 2000 Standard Edition
Chiavi: 
kbnosurvey kbarchive kbmt kbhowto kbinfo kbinterop KB210009 KbMtit
Traduzione automatica articoli
Il presente articolo è stato tradotto tramite il software di traduzione automatica di Microsoft e non da una persona. Microsoft offre sia articoli tradotti da persone fisiche sia articoli tradotti automaticamente da un software, in modo da rendere disponibili tutti gli articoli presenti nella nostra Knowledge Base nella lingua madre dell’utente. Tuttavia, un articolo tradotto in modo automatico non è sempre perfetto. Potrebbe contenere errori di sintassi, di grammatica o di utilizzo dei vocaboli, più o meno allo stesso modo di come una persona straniera potrebbe commettere degli errori parlando una lingua che non è la sua. Microsoft non è responsabile di alcuna imprecisione, errore o danno cagionato da qualsiasi traduzione non corretta dei contenuti o dell’utilizzo degli stessi fatto dai propri clienti. Microsoft, inoltre, aggiorna frequentemente il software di traduzione automatica.
Clicca qui per visualizzare la versione originale in inglese dell’articolo: 210009
LE INFORMAZIONI CONTENUTE NELLA MICROSOFT KNOWLEDGE BASE SONO FORNITE SENZA GARANZIA DI ALCUN TIPO, IMPLICITA OD ESPLICITA, COMPRESA QUELLA RIGUARDO ALLA COMMERCIALIZZAZIONE E/O COMPATIBILITA' IN IMPIEGHI PARTICOLARI. L'UTENTE SI ASSUME L'INTERA RESPONSABILITA' PER L'UTILIZZO DI QUESTE INFORMAZIONI. IN NESSUN CASO MICROSOFT CORPORATION E I SUOI FORNITORI SI RENDONO RESPONSABILI PER DANNI DIRETTI, INDIRETTI O ACCIDENTALI CHE POSSANO PROVOCARE PERDITA DI DENARO O DI DATI, ANCHE SE MICROSOFT O I SUOI FORNITORI FOSSERO STATI AVVISATI. IL DOCUMENTO PUO' ESSERE COPIATO E DISTRIBUITO ALLE SEGUENTI CONDIZIONI: 1) IL TESTO DEVE ESSERE COPIATO INTEGRALMENTE E TUTTE LE PAGINE DEVONO ESSERE INCLUSE. 2) I PROGRAMMI SE PRESENTI, DEVONO ESSERE COPIATI SENZA MODIFICHE, 3) IL DOCUMENTO DEVE ESSERE DISTRIBUITO INTERAMENTE IN OGNI SUA PARTE. 4) IL DOCUMENTO NON PUO' ESSERE DISTRIBUITO A SCOPO DI LUCRO.