Randomize por telefone/ nome (aleatório)

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

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



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

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

Goody meu querido!


segue o bd

explicação esta dentro do form.

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?

é isso mesmo mestre !


abraços

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

mestre,

boa tarde!

como valido? ponho botão algo assim?

Sim. No seu botão invoque a sub-rotina com a instrução: Call IncluirNome

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