PROXIMO CODIGO

OMAR2011 25/05/2012 14:02:09
#402783

Como o campo ProdutoID é numeração automática,pega o último registro mais PHA00.
Fica assim PHA00 & último registro.
Se não tiver nenhum registro fica
Text1.text = [Ô]PHA001[Ô]

Cria uma sub com estes códigos.

Dim rs As New Recordset
Dim sSQL As String
Dim A As Integer
sSQL = [Ô]SELECT MAX(ProdutoID ) as MaxCod From CadCliente[Ô]
Set rs = db.Execute(sSQL)
If Not IsNull(rs!MaxCod) Then
A = Val(rs!MaxCod + 1)
End If
Text1.Text = [Ô]PHA00[Ô] & A