[Resolvido]Insert Into com campo data

Boa noite

Gostaria que após atualizar o campo  data em um subformulário, gravasse essa data em outra tabela, por update ou insert into

No subform o campo chama-se data e a tabela destino é Agenda e o campo Data

Tava tentando algo parecido, por favor se algum puder me ajudar


DoCmd.RunSQL ("UPDATE Agenda SET [Agenda].[Data] = " & Me.Data

tenta assim



CurrentDb.Execute "UPDATE Agenda SET Data=#" & Me.Data & "#"

campos numericos é assim:

CurrentDb.Execute "UPDATE Agenda SET numero=" & Me.numero

campos texto:


CurrentDb.Execute "UPDATE Agenda SET texto='" & Me.texto & "'"

campos data:


CurrentDb.Execute "UPDATE Agenda SET Data=#" & Me.Data & "#"

abraço

Obrigado Mestre

Consegui com sua ajuda, se nao existir a data na tabela Agenda, faz a inclusão:

If DCount("Data", "Agenda", "[Data]= #" & Me![Data] & "#") < 1 Then
CurrentDb.Execute "INSERT INTO Agenda (Data) Values(#" & Me.Data & "#)"

End If
End Sub


Abraço

Ainda bem e não te esqueças de dar o tópico como resolvido:

Abraço