[Resolvido]Remover máscara função "Agora()" da tabela

Boa tarde.
Inicialmente gostaria de informar que não entendo de programação, entretanto estou desenvolvendo um sistema de Ordem de Serviço em Access para a lojinha do meu irmão.

Estou precisando de realizar uma ação que acredito só ser possível em VBA.

Ao invés de criar um campo de autonumeração para o número da OS criei um campo na Tabela "OrdemServico" cujo valor padão é: agora(), ou seja ela coloca automaticamente a data e hora e no formato utilizei yymmddhhnnss. Assim este campo quando clico nele (na tabela) retorna o dado em formato de data e hora (14/07/2013 21:00:47).

Criei um formulário para inserção dos dados e uma função em VBA para imprimir a OS em MSWord. Preciso portanto que estes valores sejam gravados na tabela sem o formato de data e hora mas apenas os números conforme o exemplo a seguir:

A seguinte data :14/07/2013 21:00:47 deveria ser gravada como: 130714210047 e este seria o número de minha OS.

Há um código que me permita fazer isso? Remover a máscara? ou se necessário, posso criar um outro campo com um código que busque valores de data e hora sem o padrão de mascara.

Agradeceria imensamente uma ajuda.

Boa noite, Douglas
Tente com a função Formatar
Formatar(Agora();"ddmmyyyyhhnnss")

Prezado amigo, não deu certo.
Na verdade criei um campo "agora()" para estabelecer o número de registro de Chamados Técnicos, mas não posso gravá-lo na tabela no formato de data/hora mas sim em números corridos.
caso tenha alguma outra alternativa posso alterar minha tabela criando outra forma de geração deste dado.
abraço
Douglas

criei um campo na Tabela "OrdemServico" cujo valor padão é: agora() escreveu:

onde colocou agora(), coloque Formatar(Agora();"ddmmyyyyhhnnss")

Prezado Alexandre Neves.
Primeiramente obrigado pela atenção dispendida. eu coloquei a expressão que me mandou "Formatar(Agora();"ddmmyyyyhhnnss")" onde existia o "Agora()", mas não deu certo, retorna a seguinte mensagem: "Função 'Formatar' desconhecida na expressão de validação ou no valor padrão em 'OrdemServico.NumeroOS' que representa minha tabela e campo onde encontra-se o "Agora()"
att.
Douglas

Tente Format em vez de Formatar

Amigo,
deu o mesmo erro.
Se pude me passar teu e-mail e me permitir encaminhar o BD para você dar uma olhada eu agradeceria.
att

Douglas

Crie conta gratuita no dropbox, por exemplo

Amigo, segue abaixo o link do BD dropobox.

https://www.dropbox.com/sh/k5dvudncpsjngg3/vwb_xDfPO3

Grato

Douglas

Com a permissão do Grande Alexandre Neves;

Na tabela a formatação está correta, apenas deve deletar a mascara de entrada, uma vez que é um valor padrão;

Teste por favor, esta alteração apenas no código;

       .ActiveDocument.Bookmarks("NOSInteiro").Select 'NumeroOS corresponde ao campo no doc word
       .Selection.Text = (Format([Forms!OrdemServico!NumeroOS], "ddmmyyyyhhnnss"))

Prezado JPaulo.

Infelizmente não funcionou, postei no dropbox o arquivo do word, se puder me ajudar, esteja à vontade para realizar qualquer alteração no BD, só preciso imprimir o arquivo Word sem a máscara.
Muito obrigado pela atenção.
att.
Douglas

Ora vamos lá ver...

Teste por favor;

Código:

Dim Word As New Word.Application

With Word
  .Documents.Open "C:\Users\mb1\Dropbox\Microbackup\MBSist\OSModelo.dotx"
 
  'Move cada campo para o indicador definido no documento
 
        .ActiveDocument.Bookmarks("NOSInteiro").Select 'NumeroOS corresponde ao campo no doc word
      .Selection.Text = Format(Me.NumeroOS, "ddmmyyyyhhnnss")
               
        .ActiveDocument.Bookmarks("NomeCli").Select 'NomeCli corresponde ao campo no doc word
        .Selection.Text = CStr(Nz(Me.Nome, 0))
       
        .ActiveDocument.Bookmarks("NomeCli2").Select 'NomeCli2 corresponde ao campo no doc word
        .Selection.Text = CStr(Nz(Me.Nome, 0))

        .ActiveDocument.Bookmarks("CodCliente").Select 'CodCliente corresponde ao campo no doc word
        .Selection.Text = CStr(Nz(Me.CPFCNPJ, 0))
     
        .ActiveDocument.Bookmarks("TipodeHardware").Select 'TipodeHardware corresponde ao campo no doc word
        .Selection.Text = CStr(Nz(Me.Hardware, 0))
       
        .ActiveDocument.Bookmarks("FabricantedoHardware").Select 'FabricantedoHardware corresponde ao campo no doc word
        .Selection.Text = CStr(Nz(Me.Fabricante, 0))
 
        .ActiveDocument.Bookmarks("SerialdoHardware").Select 'SerialdoHardware corresponde ao campo no doc word
        .Selection.Text = CStr(Nz(Me.Serial, 0))
 
        .ActiveDocument.Bookmarks("TamanhodoHardware").Select 'TamanhodoHardware corresponde ao campo doc word
        .Selection.Text = CStr(Nz(Me.Tamanho, 0))
             
        .ActiveDocument.Bookmarks("CapacidadeH").Select 'CapacidadeH  corresponde ao campo no doc word
        .Selection.Text = CStr(Nz(Me.Capacidade, 0))
       
        .ActiveDocument.Bookmarks("VolumeH").Select 'VolumeH corresponde ao campo NomeEmitente1 no doc word
        .Selection.Text = CStr(Nz(Me.Volume, 0))
       
        .Visible = True
  .WindowState = wdWindowStateMaximize
End With


Prezado JPaulo.

TU É 10, muuuuuito obrigado, tentei resolver isso durante quase 30 dias e tu em 1 dia resolveu meu problema. Valeu Deu certísssimo.
Grande abraço.
Douglas

Obrigado pelo retorno o forum agradece.