VB6 - TABELA NO ACCES

LCGALVAO 14/09/2013 21:07:16
#428852
Boa noite, pessoal. Sou um neófito e não estou conseguindo criar uma Função para que o próximo registro siga a cotinuação numérica. Ressalto que não utilizo a autonumeração e que a coneção à tabela do Acess é feita pelo ADODC. Esbocei a seguinte função:

Function Codigo (Valor) As Integer
Codigo = adoData.Recordset.EOF + 1
Valor = Codigo
txtCod = Valor ([txt-color=#0000f0][Ô]txtCod[Ô] é a coluna em questão[/txt-color])
End Function
______________________________________________
No controle de comando (Incluir), a sintaxe colocada foi:

adoData.Recordset.AddNew

If adoData.Recordset.EOF = True Then
adoData.Recordset.MoveNext
End If
txtCod.Text = Codigo(Valor)
-----------------------------------------------------------------------------------
é bem provável que eu esteja fazendo muita lambança!
Desde já, agradeço!
OMAR2011 14/09/2013 22:35:46
#428855
Acesse.
http://www.vbmania.com.br/pages/index.php?varModulo=Forum&varMethod=abrir&varID=426748
CLEBERBALMEIDA 16/09/2013 09:01:54
#428883 Resposta escolhida
LCGALVAO, veja no exemplo que fiz, se é isso que vc tá querendo...

Valew!
LCGALVAO 18/09/2013 18:43:28
#429061
CleberbAlmeida, consegui extrair a essência da sub-rotina que me enviara. O RecordCount era ao instrumento que não estava em minha ideia! Utilizei EOF e julgara que seria o suficiente! Muito obrigado.
Tópico encerrado , respostas não são mais permitidas
Voltar