MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    Randomize por telefone/ nome (aleatório)

    Compartilhe

    maguim
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 204
    Registrado : 15/05/2013

    Randomize por telefone/ nome (aleatório)

    Mensagem  maguim em Sex 28 Jul 2017, 13:13

    bom dia!

    amigos


    Estou tentando mapear uma função de random pra telefones ou nome, porem não consegui desenrolar nada.

    Andei pesquisando no forum e vê que o @jp disponibilizou um exemplo de randomize, porem nao consigo baixar o exemplo, porque aqui na empresa é bloqueado.

    Mas queria pedir a ajuda de vcs pra poder desenvolver algo com random de telefones

    vamos ao senário:

    a ideia é uma tabela com nome colaboradores e campo de telefones, seguindo o raciocínio.
    Seria um formulário com uma combo onde eu posso por pra quem iria destinar os seguintes telefones e ou path pra subir um file de excel de telefones e importar na tabela ja com random de nomes


    Alguem tem um ideia mais simples e melhor ?

    randomize é o parâmetro rnd()? (fiz alguns pesquisas, porem continuo estudando)


    abraços




    .................................................................................
    O conhecimento é a Dadiva da Vida. Sem ele o que seriamos ?! [Você precisa estar registrado e conectado para ver esta imagem.]
    avatar
    good guy
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1043
    Registrado : 05/02/2010

    Randomize por telefone/nome(aleatório)

    Mensagem  good guy em Sex 28 Jul 2017, 14:50

    Olá Maguim,

    Veja se te atende ou que seja algo parecido. Você pode trocar os nomes por telefone nos vetores

    Código:

    Public Function Aleatorio() As String
    'Código de Eduardo Machado (Good Guy - Ano 2017)
    On Error Resume Next
    Dim strNome(8) As Variant   'Vetor com 8(oito) índices
    Dim strTelefone As String

    strNome(0) = "João"
    strNome(1) = "Lucas"
    strNome(2) = "Marcos"
    strNome(3) = "Antonio"
    strNome(4) = "Paulo"
    strNome(5) = "Carlos"
    strNome(6) = "Ana"
    strNome(7) = "Lucia"

    Call Randomize   'A função Randomize gerará o sortimento aleatório dos vetores
    txtNome = strNome(Int(8 * Rnd) + 1)   'Caixa de texto

    Aleatorio = txtNome
    Me.txtTelefone = Nz(DLookup("Telefone", "tblContatos", "Nome = '" & Me.txtNome & "'")) 'Caixa de texto
    End Function

    Private Sub btnAleatorio_Click()  'Chamada à função Aleatorio através de um botão
    Call Aleatorio
    End Sub



    Última edição por good guy em Seg 31 Jul 2017, 12:58, editado 1 vez(es)

    maguim
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 204
    Registrado : 15/05/2013

    Re: Randomize por telefone/ nome (aleatório)

    Mensagem  maguim em Sex 28 Jul 2017, 15:47

    entende a estrutura que vc pois no codigo,

    porem como faríamos se fosse por path de lançamento via file ? seria com NZ tambem ?


    abraços


    .................................................................................
    O conhecimento é a Dadiva da Vida. Sem ele o que seriamos ?! [Você precisa estar registrado e conectado para ver esta imagem.]
    avatar
    good guy
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1043
    Registrado : 05/02/2010

    Randomize por telefone/nome (aleatório)

    Mensagem  good guy em Sex 28 Jul 2017, 17:29

    Não entendi. Posta um arquivo ou esmiúce o que você quer.

    maguim
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 204
    Registrado : 15/05/2013

    Re: Randomize por telefone/ nome (aleatório)

    Mensagem  maguim em Sex 28 Jul 2017, 18:16

    Goody meu querido!


    segue o bd

    explicação esta dentro do form.
    Anexos
    Database2.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (2.2 Mb) Baixado 6 vez(es)


    .................................................................................
    O conhecimento é a Dadiva da Vida. Sem ele o que seriamos ?! [Você precisa estar registrado e conectado para ver esta imagem.]
    avatar
    good guy
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1043
    Registrado : 05/02/2010

    Randomize por telefone/nome (aleatório)

    Mensagem  good guy em Sex 28 Jul 2017, 20:36

    Olá Maguim,

    Se eu entendi bem você quer inserir na tabela tblContatos o seu nome nos registros em que aparecem os telefones da caixa de texto txttelefones. É isso?

    maguim
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 204
    Registrado : 15/05/2013

    Re: Randomize por telefone/ nome (aleatório)

    Mensagem  maguim em Seg 31 Jul 2017, 12:20

    é isso mesmo mestre !


    abraços


    .................................................................................
    O conhecimento é a Dadiva da Vida. Sem ele o que seriamos ?! [Você precisa estar registrado e conectado para ver esta imagem.]
    avatar
    good guy
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1043
    Registrado : 05/02/2010

    Randomize por telefone/nome (aleatório)

    Mensagem  good guy em Ter 01 Ago 2017, 19:04

    Veja se te atende,

    Código:

    Public Sub IncluirNome()
    On Error Resume Next
    Dim strNome As Variant
    Dim strTelefone As String
    Dim strInclusao As String
    Dim intCod As Integer

    strTelefone = Me.txttelefone 'Só consegui com números de telefones que já estejam incluídos em um só registro
    intCod = Nz(DLookup("Código", "tblContatos", "Telefone = '" & strTelefone & "'"))

    strNome = Nz(Me.COMBONOME.Column(1))

    DoCmd.SetWarnings False
    strInclusao = "UPDATE tblContatos SET Nome = '" & strNome & "' WHERE Código = " & intCod
    CurrentDb.Execute strInclusao
    DoCmd.SetWarnings True

    End Sub

    maguim
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 204
    Registrado : 15/05/2013

    Re: Randomize por telefone/ nome (aleatório)

    Mensagem  maguim em Qua 02 Ago 2017, 20:05

    mestre,

    boa tarde!

    como valido? ponho botão algo assim?


    .................................................................................
    O conhecimento é a Dadiva da Vida. Sem ele o que seriamos ?! [Você precisa estar registrado e conectado para ver esta imagem.]
    avatar
    good guy
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1043
    Registrado : 05/02/2010

    Randomize por telefone/nome (aleatório)

    Mensagem  good guy em Qua 02 Ago 2017, 20:36

    Sim. No seu botão invoque a sub-rotina com a instrução: Call IncluirNome
    Anexos
    Database2.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (1.8 Mb) Baixado 3 vez(es)
    avatar
    good guy
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1043
    Registrado : 05/02/2010

    Randomize por telefone/nome (aleatório)

    Mensagem  good guy em Sex 11 Ago 2017, 15:34

    Com esta função você conseguirá um resultado ainda melhor. Incluir vários telefones na caixa de texto do formulário separados por ";" e com a ajuda da função Split, incluir o nome do contato em cada registro da tabela tblContatos.

    Fiz uma pequena correção para tornar mais claro o funcionamento do código, mudando a sub-rotina do programa para download, para uma função:

    Código:
    Public Function IncluirNome(strAuxiliar As String)
    On Error Resume Next
    Dim strNome, strTelefone As String
    Dim strInclusao As String
    Dim i As Integer
    Dim varFones As Variant
    Dim varI As Variant

    strTelefone = Me.txttelefone
    varFones = Split(strTelefone, ";")
    strNome = Nz(Me.COMBONOME.Column(0))

    For varI = LBound(varFones) - 1 To UBound(varFones)
        
          txtAuxiliar = varFones(varI)
          strAuxiliar = Me.txtAuxiliar          'txtAuxiliar é uma outra caixa de texto que receberá cada telefone à parte
                                                           como resultado da função Split e o looping com LBound e UBound   
            DoCmd.SetWarnings False
            strInclusao = "UPDATE tblContatos SET Nome = '" & strNome & "' WHERE Telefone = '" & strAuxiliar & "'"
            CurrentDb.Execute strInclusao
            DoCmd.SetWarnings True
          
    Next varI

    End Function

    Private Sub btnAleatorio_Click()  'Chamada à função IncluirNome através de um botão
    Call IncluirNome(txtAuxiliar)
    DoCmd.RunCommand acCmdSaveRecord
    End Sub
    Anexos
    Database2.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (1.8 Mb) Baixado 3 vez(es)

      Data/hora atual: Sab 18 Nov 2017, 01:06