MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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


2 participantes

    Randomize por telefone/ nome (aleatório)

    maguim
    maguim
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

    Randomize por telefone/ nome (aleatório) Empty Randomize por telefone/ nome (aleatório)

    Mensagem  maguim 28/7/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 ?! Surprised
    good guy
    good guy
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    Randomize por telefone/ nome (aleatório) Empty Randomize por telefone/nome(aleatório)

    Mensagem  good guy 28/7/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 31/7/2017, 12:58, editado 1 vez(es)
    maguim
    maguim
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  maguim 28/7/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 ?! Surprised
    good guy
    good guy
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    Randomize por telefone/ nome (aleatório) Empty Randomize por telefone/nome (aleatório)

    Mensagem  good guy 28/7/2017, 17:29

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


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  maguim 28/7/2017, 18:16

    Goody meu querido!


    segue o bd

    explicação esta dentro do form.


    .................................................................................
    O conhecimento é a Dadiva da Vida. Sem ele o que seriamos ?! Surprised
    good guy
    good guy
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    Randomize por telefone/ nome (aleatório) Empty Randomize por telefone/nome (aleatório)

    Mensagem  good guy 28/7/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
    maguim
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  maguim 31/7/2017, 12:20

    é isso mesmo mestre !


    abraços


    .................................................................................
    O conhecimento é a Dadiva da Vida. Sem ele o que seriamos ?! Surprised
    good guy
    good guy
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    Randomize por telefone/ nome (aleatório) Empty Randomize por telefone/nome (aleatório)

    Mensagem  good guy 1/8/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
    maguim
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  maguim 2/8/2017, 20:05

    mestre,

    boa tarde!

    como valido? ponho botão algo assim?


    .................................................................................
    O conhecimento é a Dadiva da Vida. Sem ele o que seriamos ?! Surprised
    good guy
    good guy
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    Randomize por telefone/ nome (aleatório) Empty Randomize por telefone/nome (aleatório)

    Mensagem  good guy 2/8/2017, 20:36

    Sim. No seu botão invoque a sub-rotina com a instrução: Call IncluirNome
    Anexos
    Randomize por telefone/ nome (aleatório) AttachmentDatabase2.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (1.8 Mb) Baixado 6 vez(es)
    good guy
    good guy
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    Randomize por telefone/ nome (aleatório) Empty Randomize por telefone/nome (aleatório)

    Mensagem  good guy 11/8/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
    Randomize por telefone/ nome (aleatório) AttachmentDatabase2.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (1.8 Mb) Baixado 18 vez(es)

    Conteúdo patrocinado


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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 29/3/2024, 01:34