Alexandre Neves- Moderador Global
- Respeito às regras :
Sexo :
Localização :
Mensagens : 8498
Registrado : 05/11/2009
Alexandre Neves 7/11/2016, 17:57
Boa tarde, e bem-vindo ao fórum
Designe os nomes dos campos sem espaços
É para registo novo?
Set MeuWord = CreateObject("Word.Application")
MeuWord.Documents.Open EnderecoFicheiro
Currentdb.execute "INSERT INTO Tabela1(NomeDoCliente) VALUES ('" & MeuWord.ActiveDocument.Shapes("TxtDataInf").TextFrame.TextRange = TextBox1 & "')"
MeuWord.Quit: Set MeuWord = Nothing
.................................................................................
Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo