ACC2000: Como formatar números de fax para direta com o Microsoft Word

ID do artigo: 210009 - Exibir os produtos aos quais esse artigo se aplica.
Tradução automáticaExibir Aviso de Isenção de Tradução Automática
Moderado: Requer básica de macro, codificação e interoperabilidade habilidades.

Este artigo se aplica somente a um banco de dados do Microsoft Access (.mdb).

Expandir tudo | Recolher tudo

Sumário

Este artigo mostra como formatar um número de fax no Microsoft Access 2000 para que você pode mesclá-lo com um documento do Microsoft Word que usa o Microsoft Exchange Server para imprimir um fax modem.

Mais Informações

No Microsoft Word, você pode criar um documento de mesclagem que usa o Microsoft Exchange Server para imprimir um fax modem. No entanto, se o número de fax não estiver em um formato específico, o Exchange Server não é possível processá-lo. Quando isso acontece, o Exchange Server apresenta uma caixa de diálogo Verificar nomes durante a mesclagem para cada número de fax não reconhecido que encontrar.

Os dados de números de fax devem estar no seguinte formato
[FAX: number]
onde o number é o número de fax você está discando. Por exemplo:
[FAX: 12065551212]
O exemplo a seguir utiliza o banco de dados de exemplo Northwind.mdb. Ele mostra como criar um procedimento para formatar os números de fax e, em seguida, utiliza o procedimento em uma consulta criar tabela. O resultado da consulta contém somente registros que têm números de fax de 7 ou 10 dígitos.

Observação : durante uma mala direta, Microsoft Word pode usar DDE (intercâmbio dinâmico de dados) ou ODBC (Open Database Connectivity) para se conectar com o Microsoft Access. DDE, o tipo de conexão mais comum, reconhece um procedimento definido pelo usuário em uma consulta. Se você usar DDE, você pode fazer a consulta neste exemplo uma seleção de consulta e, em seguida, usá-lo como fonte de dados para mala direta. No entanto, os drivers de ODBC do Microsoft Access produzem um erro quando você usa uma consulta seleção porque os drivers não reconhecem o procedimento definido pelo usuário. O exemplo a seguir usa uma consulta criar tabela em vez de uma consulta seleção para compatibilidade com ambos os métodos de conexão.

Microsoft fornece exemplos de programação apenas para ilustração, sem garantia expressa ou implícita. Isso inclui, mas não está limitado a, garantias implícitas de comercialização ou adequação para uma finalidade específica. Este artigo presume que você está familiarizados com a linguagem de programação que está sendo demonstrada e com as ferramentas que são usadas para criar e depurar procedimentos. Engenheiros de suporte podem ajudar a explicar a funcionalidade de um determinado procedimento, mas eles não modificarão esses exemplos para fornecer funcionalidades adicionais ou construir procedimentos para atender às suas necessidades. cuidado : se você seguir as etapas neste exemplo, você modificar o banco de dados de exemplo Northwind.mdb. Convém fazer o backup do arquivo Northwind.mdb e seguir essas etapas numa cópia do banco de dados.

  1. Inicie o Microsoft Access e abra o banco de dados de exemplo Northwind.mdb.
  2. Criar um módulo e digite a seguinte linha na seção Declaração, se ele já não estiver presente:
    opção EXPLICIT
  3. Digite ou cole o seguinte procedimento: 
    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. Salve o módulo como basFaxNumber e fechá-lo.
  5. Crie uma nova consulta no modo de design e adicione a tabela Fornecedores.
  6. Na grade da consulta, adicione os seguintes campos:
    Campo: CompanyName
    Mostrar: Sim
    Campo: ContactName
    Mostrar: Sim
    Campo: FaxNbr: FaxNumFormat([Fax])
    Mostrar: Sim
    Critérios: <> "Número de fax inválido"
  7. No menu consulta , clique em Criar tabela .
  8. Na caixa de diálogo Criar tabela , digite o nome tblMergeFax e, em seguida, clique em OK .
  9. No menu consulta , clique em Executar .
  10. Quando você vir o prompt "Tem certeza que você deseja criar uma nova tabela com os registros selecionados?", clique em Sim .
  11. Abra tblMergeFax tabela.
  12. Observe que todos os registros na tabela contêm o formato de número fax correto no campo FaxNbr. Por exemplo: 
       CompanyName                 ContactName     FaxNbr
   -------------------------   -------------   -----------------
   Grandma Kelly's Homestead   Regina Murphy   [FAX:13135553349]
  13. Use tblMergeFax tabela para mesclar com o Microsoft Word.

Propriedades

ID do artigo: 210009 - Última revisão: quinta-feira, 23 de junho de 2005 - Revisão: 3.0
A informação contida neste artigo aplica-se a:
  • Microsoft Access 2000 Standard Edition
Palavras-chave: 
kbmt kbhowto kbinfo kbinterop KB210009 KbMtpt
Tradução automática
IMPORTANTE: Este artigo foi traduzido por um sistema de tradução automática (também designado por Machine Translation ou MT), não tendo sido portanto traduzido ou revisto por pessoas. A Microsoft possui artigos traduzidos por aplicações (MT) e artigos traduzidos por tradutores profissionais, com o objetivo de oferecer em português a totalidade dos artigos existentes na base de dados de suporte. No entanto, a tradução automática não é sempre perfeita, podendo conter erros de vocabulário, sintaxe ou gramática. A Microsoft não é responsável por incoerências, erros ou prejuízos ocorridos em decorrência da utilização dos artigos MT por parte dos nossos clientes. A Microsoft realiza atualizações freqüentes ao software de tradução automática (MT). Obrigado.
Clique aqui para ver a versão em Inglês deste artigo: 210009
(http://support.microsoft.com/kb/210009/en-us/ )
Voltar para o início | Submeter comentários

Submeter comentários

 
Voltar para o inícioVoltar para o início