Numeração Especial

Amigos Boa Tarde
Preciso da Vossa Ajuda se possivel.

Tenho uma Tabela Chamada "Lançamentos" com os seguintes campos.
Data Movimento NumMov Valor Conta
01-11-2009 Cheque 356 123,00 C.G.D
11-11-2009 Multibanco 35 20,00 C.G.D
21-11-2009 Cheque 12 123,00 BANIF
30-11-2009 Multibanco 8 220,00 BANIF
30-11-2009 Deposito 1 3.220,00 BANIF
30-11-2009 Deposito 10 1.000,00 C.G.D

O campo Movimento é uma ComboBox.
O campo Conta é uma ComboBox

Como faço para que o NumMov seja automatico, ao gravar o Registo.
Exemplo: se for Cheque na conta C.G.D fica 357
Exemplo: se for Cheque na conta BANIF fica 13
Exemplo: se for Multibanco na conta C.G.D fica 36
Exemplo: se for Multibanco na conta BANIF fica 9
Exemplo: se for Deposito na conta C.G.D fica 11
Exemplo: se for Deposito na conta BANIF fica 2


Famed26

Com esta formula Consigo Filtrar o último Numero do Movimento.
Me.NumMov = DLast("NumMov", "Lançamentos", "Movimento='" & Me.Movimento & "'") + 1

Mas Falta filtar o último Movimento da CONTA

"Conta='" & Me.Conta & "'") na formula Acima indicada
Obrigado

Ola ;

Deve ser isto que pretende;


Me.NumMov = DLast("[NumMov]", "Lançamentos", "[Conta]='" & Me.Conta & "'" And "[Movimento]='" & Me.Movimento & "'") + 1


Uma curiosidade apenas, você é o Labina de Portugal no ExpertAccess ?

Sim

Ola;

Agora em casa com mais tempo vi que não funfa desse jeito.

Reproduzi a sua tabela e já funciona a 100%

No evento VBA após a ultima combobox "Conta"

Private Sub Conta_AfterUpdate()
Me.NumMov = DMax("NumMov", "Lançamentos", "Conta = '" & Me.Conta & "' AND " & "Movimento ='" & Me.Movimento & "'")
Me.NumMov.Value = Me.NumMov.Value + 1
End Sub

Obrigado JPaulo

100% Perfeito

Feliz

Obrigado pelo retorno amigo.