Tenho no banco de dados access o campo codmem, como inteiro. Necessito que este campo apareça automaticamente no form, e já incrementado, a cada instrução de inclusão de um novo registro.

Alguém pode me ajudar?

VAI VARIAR UM POUCO SE VOCE TRABALHAR COM ADO MAS FAZ ASSIM:

 

DIM RS AS RECORDSET

SET RS=BASE.OPENRECORDSET("SELECT Max(Tabela.Codmem) AS Maximo FROM Tabela;")

campo.text=rs("Maximo")+1

 

ficou faltando so a conversão para inteiro.

 

campo.text=cint(rs("Maximo"))+1

carlinha depois voce registra no site ok, se vc tiver messeger me adicione ai que fica melhor para conversarmos, acg1574@hotmail.com, obrigado

' Funcao generica para qualquer tabela ou campo

' ACCESS OU SQL SERVER

' PARA ACCESS USE :  strSGBD = "ACCESS"

 

Public Function Proximo_Registro(adoBanco As ADODB.Connection, strTabela As String, strCampo As String)

    Dim rsUltimo As ADODB.Recordset
    Set rsUltimo = New ADODB.Recordset
    rsUltimo.Open "SELECT MAX(" & strCampo & ") AS ULTCAMPO FROM " & strTabela & IIf(UCase(strSGBD) = " ACCESS ", "  ", " (NoLock) "), adoBanco, adOpenForwardOnly

    If rsUltimo.EOF Or IsNull(rsUltimo!ULTCAMPO) Then
        Proximo_Registro = 1
    Else
        Proximo_Registro = rsUltimo!ULTCAMPO + 1
    End If

End Function