Busca Numeração

Question

 

Bom dia, Boa tarde, Boa noite !!!

Socorro!!

 

Estou com uma certa dificuldade em gerar um campo no meu cadastro de corretor, no qual o cadastro tem os seguintes dados nome, susep, telefone, endereço, empresa, CNPJ e o ponto principal "DESEPE".  Estou tentando fazer no access que após o usuario preencher todos os campos acima citado exceto o campo "DESEPE" o proprio access busca em uma outra tabela, onde constam numero sequenciais, um numero e que este numero não se repita num proxima cadastro.

 

No aguardo,

 

Leo   

 

Answer 1

Bom Dia,

 

Você está tentando fazer esse controle via formulário ?

 

[ ]s

 

Gustavo

Answer 2

Gustavo, boa noite !!!

 

Obrigado pelo retorno.

 

Sim !! Estou tentando via formulario.

 

Abraço,

 

Leo

Answer 3

Olá,

 

você pode criar na sua tabela um campo do tipo Autonumeração.

Answer 4

Acho que sei o que você está querendo, existe uma tabela axiliar que armazena os sequenciais, nessa tabela você vai pegar o sequencial para o "DESEPE". Fiz pensando dessa maneira, qualquer coisa pode me diz:

Criei uma função que busca o sequencial em uma tabela e retorna o próximo valor a ser utilizado, fiz isso utilizando o DAO.

 

Function GerarNumero() As Integer
    Dim db As Database
    Dim rstTblSeq As Recordset
   
    Set db = CurrentDb
    Set rstTblSeq = db.OpenRecordset("Tabela do Sequencial", dbOpenTable)
   
    rstTblSeq.Edit                 'Edita o registro
    If IsNull(rstTblSeq![Sequencial]) Then
   
        rstTblSeq![Sequencial] = 1
       
    Else
       
        rstTblSeq![Sequencial] = rstTblSeq![Sequencial] + 1
   
    End If
   
    GerarNumero = rstTblSeq![Sequencial]
    rstTblSeq.Update
   
    rstTblSeq.Close
    db.Close
   
End Function

 

Agora basta utilizala em algum evento para atribuir o seu valor de retorno ao campo desejado, nesse caso eu utilizei um botão para quando for clicado gerar um número para a caixa de texto.

 

Private Sub btnTeste_Click()

 

    CT_Teste = GerarNumero
   
End Sub

 

Valeu, espero ter te ajudado.