Cópiar o valor de um campo para outro campo dentro de um formulario

Olá, sou novo aqui e tambem venho arranhando o MS Access a algum tempo. Estou montando um pequeno banco onde preciso começa a construir alguns controles como livro caixa, recebimento de mercadorias e controle de pagamento de contas.

Depois de tanto abrir e fechar varios foruns verifiquei que este é que mais se tem respostas, mais infelismente não esta que sane minha duvida

assim segue meu problema;

Tenho um campo de data onde o mesmo se chama MesMeta e ou outro é Competencia Meta. O campo Competencia Meta é uma combobox e o campo MesMeta é um campo de data formatado como Mês e Ano(mmmmyyyyy). Eu preciso copiar o campo MesMeta para o Competencia Meta, eu já tentei quase tudo que eu vi mais nada consegui.

Aqui vai o exemplo do que eu tentei:

Private Sub DataVenda_AfterUpdate()
If Competencia_Meta = "null" Then
Else: Competencia_Meta = MesMeta
End If
End Sub

Determinei aqui o seguinte;

Quando eu terminar de atualizar o campo DataVenda, O campo Competencia_meta se fosse igual a "Null" ai ele passaria a ser igual a MesMeta.

Meus amigos, o que eu fiz de errado?

Olá, seja bem vindo ao fórum!

Mude o Else de lugar ou inverta as duas condições. Na verdade, no código você está dizendo para copiar o campo se for diferente de null.

Como devo empregar as funções neste caso?

Tente assim:

Código:

If IsNull(Me.Competencia_Meta) Or Me.Competência_Meta.Value = "" Then
    Me.Competencia_Meta = MesMeta
Else
End If

Primeiramente Obrigado pela atenção.

Blz, fiz conforme dito abaixo, lembrando que no final deveria ser colocado tambem End Sub.

Mas o porem é que quando coloco o código o mesmo não funciona, e só funciona se eu converter a Combox em Caixa de Texto, sendo assim ele não associa o restante do registro que está relacionado a ele. Vou enviar o BD o iten está no SubFormulário - Pizzas Vendidas e o nome dos campos são os mesmo aqui descritos.

Saudações

Criquio, não seria Me.MesMeta?

If IsNull(Me.Competencia_Meta) Or Me.Competência_Meta.Value = "" Then
Me.Competencia_Meta = Me.MesMeta
Else
End If

O erro está no acento.

If IsNull(Me.Competencia_Meta) Or Me.Competência_Meta = "" Then
Me.Competencia_Meta = MesMeta
Else
End If

Testei assim e funcionou;

If IsNull(Me.Competencia_Meta) Or Me.Competencia_Meta = "" Then
Me.Competencia_Meta = MesMeta
Else
End If

Funcionou mas como caixa de texto ou combox? Testei aqui e não foi , retirei o acento e nada. Eu preciso que o valor do MesMeta seja copiado para Competencia Meta. E ainda não funcionou. E outra coisa, o campo Competencia Meta, tem 6 colunas e o valor que eu quero selecionar com a cópia é o da primeira coluna. Acho que deveria te dito isso no inicio do forum...

Já tentou Competencia_Meta.Column(0)?

Meus Amigos, novamente agradeço pela paciencia.

Já tentei cada linha aqui sitada eu não sei se eu estou fazendo errado ou se eu sou muito ruim mesmo, rsrs, mais nada ainda. Eu sou novato em vba e cada linha ou argumento utilizado eu tento entender como dito em forum entre outros, aqui foi onde mais eu vi respostas positivas e corretas. Sei que poderei ser ajudado por voces, mais infelismente ainda persite o problema.

Eu troquei o nome dos campos para nomes abreviados para uma melhos busca dos resultados.

O codigo está assim conforme opinado por voces;

Private Sub DataVenda_AfterUpdate()
If IsNull(Me.CompetMeta.Column(0)) Or Me.CompetMeta.Column(0) = "" Then
Me.CompetMeta.Column(0) = Me.MesMeta
End If
End Sub

Lembrando que DataVenda é um campo onde o campo MesMeta se baseia na busca para assim fornecer resultado ao campo CompetMeta, onde este campo CompetMeta é uma combox. No que digo ao vba que assim que o DataVenda for atualizado, o campo CompetMeta será igual ao MesMeta. MesMeta é um campo data formatado para "mmmmyyyy" No caso Apresentando Mes e Ano, pois o campo CompetMeta é tambem um Campo Formatado como Mes e Ano. Por Favor as tabelas não estão protegidas, se possivel olhe as tabelas por favor. Este sub formulario esta dentro de um formulario o Controle de Vendas.
Agora cabe saber se realmente fiz certo

vou anexar o bd novamente.

Oi alguem pode me ajudar???

Se puder salvar em Access 2007.

Infelismente não, pois adquiri o office 2010 e desistalei a versão 2007 da maquina. Mais pelo que tenho lido, o vba do access 2010 é muito parecido com o do access 2007. Acho que pela experiencia de vocês com certeza vamos conseguir exito.

Bom dia .
porque não consigo o campo não consegue receber valor de outro que é do mesmo frm?

Código:

Me.userVazio= txtcadstrouser.Values

Boa tarde, mpsbra

Como anda a dúvida?
Resolvida? Se sim, marque o botão "Resolvido"; se não, coloque pequeno exemplo para se ajudar