[Resolvido]Formulas em código VBA

Boa tarde a todos

Agora estou com este problema:

Já inseri este código e está a dar erro, alguem me pode ajudar?

Insert Into Tbl_Movimento_da_Pernoita(Nome, Idade, Género, Especialidade_Cirúrgica, Cirurgião, Intervenção_Cirurgica, Data_Pernoita)Select (Nome, Idade, Genero, Especialidade_Cirurgica, Cirurgiao, Intervenção_Cirurgica, Data_Entrada_Recobro)From Tbl_Resgisto_Recobro.

Ou terei que por tambem "CmdRunSql" antes do Insert Into

Abraço a todos

Boa tarde,

Se está no construtor de consultas, não precisa, deve funcionar ao executar a consulta.
Agora, se está no VBA, pode fazer assim:

Código:

CurrentDb.Execute "Insert Into Tbl_Movimento_da_Pernoita(Nome, Idade, Género, Especialidade_Cirúrgica, Cirurgião, Intervenção_Cirurgica, Data_Pernoita)Select (Nome, Idade, Genero, Especialidade_Cirurgica, Cirurgiao, Intervenção_Cirurgica, Data_Entrada_Recobro)From Tbl_Resgisto_Recobro.", dbFailOnerror

Boa tarde

Não amigo, inserir esta formula, num Btn de comando que ao clicar, eu quero ele passa directamente os dados  para a outra tabela.
mas está a dar erro.




Um abraço

Qual erro?

posso por a base, para o amigo ver.

Um abraço

Vou sair, a noite, ao voltar, posto as alterações.

Oi CPimenta

Primeiro: Não é bom usar espaços no nome do campo dos bancos de dados.
Segundo: Não use acentos ou caracteres como "ç ã ê " e outros no nome do campo

Eu espero que seja o que você precisa

Saludos desde Bolivia

Olá a todos,

Carlos Pimenta, como ficou a situação?
Os membros do fórum merecem e agradecem o retorno.

Abraço a todos

Boa tarde

Peço desculpa, pelo atraso, relativamente ao post que fiz, está quase resolvido, mas agora estou com problema que tenho 2 form que vão buscar a informação a duas Cons, e não consigo por a fncionar 2 caixa de combinação.

Um abraço a todos que me tem ajudado.

Carlos Pimenta

Olá a todos,

Carlos Pimenta,
Se a dúvida esta relacionada com o tópico dê mais detalhes para se verificar.
Caso contrário, dê o tópico como Resolvido e abra novo tópico para a dúvida.

Abraço a todos

Boa tarde

Segue a base para dar uma vista de olhos.

Muito obrigado a todos.

Um Grande Abraço

Olá Carlos,

Deve dar mais detalhes do que está acontecer (onde) e o que pretende.

Abraço a todos

Boa tarde amigos

O que acontece é que em dois formulários não consigo adicionar nenhuma informação, ou seja, os Form_Domicilio e Form_Serv_Domici, estão como a origem dos dados atraves da Cons_Domicilio e Cons_Serv_domicilio, e já tentei de todo mas não consigo que seja adicionada a restante informação, será que tenho que por que a origem dos dados têm que ser atraves das tabelas, mas se for não consigo inserir as formulas para que sejam copiados os dados necessários.

Um abraço a todos

Carlos Pimenta

A origem de dados qualquer formulário....tem que ser e deve ser as tabelas em questão !!!

No formulário em questão...ir para:
1- folha de propriedades.
2- aba Dados.
3- fonte de registro...chama o construtor de consulta. Coloque todos os campos necessários nessa consulta que vai ser criada.
4- coloque tuas formulas nos campos dessa consulta criada.

Teste e nos informe.


Bons estudos.

Boa tarde

Tentei por o codigo seguinte:

Me.Processo_Clinico = DLookup ("ProcessoClinico", "TabRegistroRecobro")

e não deu

A função DLookup retorna o valor de um único campo com base nas informações especificadas nos critérios. Embora o critério seja opcional, se você não fornecer um valor para critérios, a função DLookup retorna um valor aleatório na tabela consultada.

Se nenhum registro satisfizer os critérios ou a tabela não contiver registros, a função DLookup retorna Nulo.

Se mais de um campo atende aos critérios, a função DLookup retornará a primeira ocorrência. Você deve especificar critérios que garante que o valor do campo retornado pela função DLookup seja exclusivo.

Aí eu pergunto: O que você espera que retorne? Você já tentou pelo menos jogar esse valor num msgbox?

Boa tarde

Valeu pela dicas, ficou a funcionar.

Um grande abraço