numeracao sequencial

como eu uso esse codigo pra buscar o codigo na tabela lancamento e o campo da tabela e lanc

Function ProximoNumero()
'criado por Alexandre Neves
'em 2010-10-23
'para Assis
'do fórum MaximoAccess
Dim Rst As DAO.Recordset
If DCount("*", "ProducaoBloco", "DataBloco=#" & Format(Me.DataBloco, "mm-dd-yyyy") & "#") = 0 Then
Set Rst = CurrentDb.OpenRecordset("SELECT DISTINCT DataBloco FROM ProducaoBloco WHERE Year(DataBloco)=" & Year(Me.DataBloco) & ";")
If Not Rst.BOF Then Rst.MoveLast: Rst.MoveFirst
proximoNumero = Year(Date) & Format(Rst.RecordCount + 1, "0000")
Else
proximoNumero = DLookup("Producao", "ProducaoBloco", "DataBloco=#" & Format(Me.DataBloco, "mm-dd-yyyy") & "#")
End If
Set Rst = Nothing
End Function

Bem, não sei qual a sua necessidade, mas vc quer buscar um único número?

Se deseja buscar o numero na tabela use:

Código:


DLookup("Lanc", "Lancamento", "DataBloco=#" & Format(Me.DataBloco, "mm-dd-yyyy") & "#")


OU alterando o código:

Código:



Function ProximoNumero()
'criado por Alexandre Neves
'em 2010-10-23
'para Assis
'do fórum MaximoAccess
Dim Rst As DAO.Recordset
If DCount("*", "Lancamento", "DataBloco=#" & Format(Me.DataBloco, "mm-dd-yyyy") & "#") = 0 Then
Set Rst = CurrentDb.OpenRecordset("SELECT DISTINCT DataBloco FROM Lancamento WHERE Year(DataBloco)=" & Year(Me.DataBloco) & ";")
If Not Rst.BOF Then Rst.MoveLast: Rst.MoveFirst
proximoNumero = Year(Date) & Format(Rst.RecordCount + 1, "0000")
Else
proximoNumero = DLookup("Lanc", "Lancamento", "DataBloco=#" & Format(Me.DataBloco, "mm-dd-yyyy") & "#")
End If
Set Rst = Nothing
End Function


Veja que o código acima usa uma condição do campo DataBloco e o Where no Select, veja se tem esse campo na sua tbl senão ocorrerá erro.

Falow,

O que realmente deseja fazer? seja mais específico!

esse exemplo ai ta buscando data e eu quero buscar numeros e nao data

sim Norberto Rost e isso ai mas via codigo

porque tenho duas tabelas e las sao relacionadas e por isso que tenho que buscar o codigo de uma e acresentar na outra, tudo via codigo