MaximoAccess

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

Obrigado

Administração do MaximoAccess


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.

Obrigado

Administração do MaximoAccess

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

    Atribuir valor de função a campo de tabela

    avatar
    eduas65
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 42
    Registrado : 30/10/2012

    Atribuir valor de função a campo de tabela Empty Atribuir valor de função a campo de tabela

    Mensagem  eduas65 20/1/2020, 13:38

    Caros, gostaria de usar a função abaixo para definir como valor padrão de um campo de tabela, mas dá msg de função indefinida, também no relatório ao abrir/imprimir não gera o valor, peço ajuda do que tenham boa vontade aqui com o leigo;

    Public Function Autenticar(Sequencia As String)
    alfanumerico = "ABCDEFGHIJKLMNOPQRSTUVXZYW1234567890abcdefghijklmnopqrstuvxzyw"
    For i = 1 To 24
    Randomize
    X = Int(Rnd * Len(alfanumerico)) + 1
    If InStr(1, Sequencia, Mid(alfanumerico, X, 1)) Then
    i = i - 1
    Else
    Sequencia = Sequencia & Mid(alfanumerico, X, 1)
    End If
    Next
    Autenticar = Sequencia
    End Function



    Grato desde já

    Eduardo
    avatar
    renpv
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 323
    Registrado : 12/01/2015

    Atribuir valor de função a campo de tabela Empty Re: Atribuir valor de função a campo de tabela

    Mensagem  renpv 20/1/2020, 14:01

    Tente
    Código:

    Public Function Autenticar(Sequencia As String)
    Dim alfanumerico As String
    Dim i, x As Integer
    alfanumerico = "ABCDEFGHIJKLMNOPQRSTUVXZYW1234567890abcdefghijklmnopqrstuvxzyw"
    For i = 1 To 24
    Randomize
    x = Int(Rnd * Len(alfanumerico)) + 1
    If InStr(1, Sequencia, Mid(alfanumerico, x, 1)) Then
      i = i - 1
    Else
      Sequencia = Sequencia & Mid(alfanumerico, x, 1)
    End If
    Next
    Autenticar = Sequencia
    End Function

    Se não funcionar mande a parte do seu db que use esse código.

      Data/hora atual: 6/3/2021, 10:22