Código de venda

[Jhowcs]

é o seguinte eu tenho na minha tela de venda o código da venda, eu quero quando eu clicar no txtcodigovenda ele busque o ultimo código de venda cadastrado e some 1 para eu fazer uma nova venda.

[kuroi]

deve se isso:

sql = "Select Codigo From Tabela Where Codigo = (Select Max(Codigo) From Tabela)"

ai ele pega o maior codigo. se a tabela tiver vazia (ai tera q ser o codigo 1), retorna EOF.

[Jhowcs]

Kuroi muito obrigado deu certo....

ficou assim...

Private Sub txtCodigovenda_GotFocus()
frase = "SELECT codigovenda FROM vendas where codigovenda = (Select max(codigovenda)from vendas)"
Set TbCli = Con.Execute(frase)
If Not TbCli.EOF Then
txtCodigoVenda.Text = TbCli![codigovenda] + 1

End If
End Sub

Editado Dezembro 10, 2008 por Jhowcs