locked
Busca Numeração RRS feed

  • Pergunta

  •  

    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   

     

    domingo, 20 de julho de 2008 13:44

Todas as Respostas

  • Bom Dia,

     

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

     

    [ ]s

     

    Gustavo

    domingo, 20 de julho de 2008 14:28
  • Gustavo, boa noite !!!

     

    Obrigado pelo retorno.

     

    Sim !! Estou tentando via formulario.

     

    Abraço,

     

    Leo

    segunda-feira, 21 de julho de 2008 00:41
  • Olá,

     

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

    segunda-feira, 21 de julho de 2008 23:43
    Moderador
  • 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.

    quarta-feira, 30 de julho de 2008 02:11