[Resolvido] Preenchimento automático de campo da tabela conforme o formulário em uso (activo)

Tenho uma tabela (anexa) com um campo "Movimentos" e no qual é assinalado o tipo de movimento: receitas (Rec) ou despesas (Desp).

Pretendia automatizar ao máximo o seu preenchimento para minimizar o risco de erro. Assim, dividi em dois formulários, um para cada operação. Pretendia também que esse campo (Movimentos) fosse preenchido automaticamente a cada registo com a indicação "Rec" ou "Desp", conforme o formulário em uso.

Estou farto de dar voltas e pesquisar mas não consigo chegar aquilo que pretendo.


Alguém pode ajudar, p.f.

Boas,

Sem os formulários no arquivo não existe forma de te ajudar, peço que coloque o arquivo com os formulários.

Mas você pode colocar na ação click do botão salvar em cada formulário que ele grave o que deseja na tabela.

Exemplo:

Código:


Dim db As DAO.Database
Dim rs As DAO.Recordset

Set db = CurrentDb
Set rs = db.OpenRecordset("SuaTabela", dbOpenDynaset)


rs.FindFirst "Idtabela =" & Me!IdnoFormulario & ""


If Not rs.NoMatch Then
    rs.Edit
    Else
    rs.AddNew
End If

rs!movimento = "Receita"
rs.Update

rs.Close: Set rs = Nothing
db.Close: Set db = Nothing



End Sub


Espero ter ajudado.

Bruno Nunes

Brunoluizmaia obrigado pela ajuda mas penso que não me fiz entender direito

O que pretendo é apenas que ao premir um botão, no caso o "Guardar", ele me preenchesse na tabela o campo "Tipo_Mov" com o valor "Rec"

Tipo_Mov = Rec

Anexo novamente e agora com o formulário também

Veja se é isso que deseja.

Coloquei no campo do formulário na propriedade, Default Value "=rec". Ele vai registrar o "rec" em todos os registros. No outro formulário é só seguir este exemplo.

Coisa mais óbvia e que eu não vi

Obrigado Brunoluizmais pela sua ajuda

As vezes é assim mesmo, pensamos sempre no mais difícil e no final é simples.

O importante e ter resolvido.

Cumprimentos,

Bruno Nunes