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

    Criar array e armazenar em campo de tabela do access

    avatar
    luciano5
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2
    Registrado : 08/05/2013

    Criar array e armazenar em campo de tabela do access Empty Criar array e armazenar em campo de tabela do access

    Mensagem  luciano5 15/8/2013, 10:52

    Bom dia.

    Preciso de uma ajuda.
    Dei uma estudada no assunto, tentei, mas ainda não cheguei lá.

    Qualquer ajuda é bem vinda...

    Tbl_funcionarios
    Nome_do_perito
    Joao
    Jose
    Marcos
    Paulo
    Ricardo
    Marcelo
    Douglas

    Preciso que o nome do perito seja exibido no campo Nome_do_perito da tabela Tbl_OrdensDeServico, na mesma sequência da tabela Tbl_funcionarios, como mostrado abaixo.

    Tbl_OrdensDeServico
    U_SOL_NCB Nome_do_perito
    897797010 Joao
    923661019 Jose
    924988003 Marcos
    925097005 Paulo
    925908003 Ricardo
    926884001 Marcelo
    926866002 Douglas
    926813006 Joao
    926287002 Jose
    888914017 Marcos
    920089012 Paulo
    915024013 Ricardo
    926354001 Marcelo
    926811003 Douglas
    927657008 Joao
    927321000 Jose
    927699002 Marcos

    Pensei em usar array, criando um módulo dentro do access, mas ainda não deu certo.
    Segue minha tentativa:

    Function nomeperito1()

    Dim db As Database, rst As Recordset
    Dim arrperito(1 To 7) As String
    Dim perito As String
    Dim solic As String
    Dim U_SOL_NCB As Long

    Set db = CurrentDb
    Set rst = db.OpenRecordset("Tbl_funcionarios!nome_do_perito", dbOpenDynaset)
    Set rst = db.OpenRecordset("Tbl_OrdensDeServico!perito", dbOpenDynaset)
    Set rst = db.OpenRecordset("Tbl_OrdensDeServico!U_SOL_NCB", dbOpenDynaset)


    Do While U_SOL_NCB Is Not Null

    perito = nome_do_perito$

    Loop



    End Function
    HARYSOHN
    HARYSOHN
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12227
    Registrado : 01/03/2011

    Criar array e armazenar em campo de tabela do access Empty Re: Criar array e armazenar em campo de tabela do access

    Mensagem  HARYSOHN 15/8/2013, 11:40

    Se voce deseja gravar os dados deste perito de uma tabela para outra..

    Basta carregar um recordset baseado na tabela onde estão estes nomes e utilizar uma instrução do Tipo

    CurrentDb.Execute "Insert Into... bla bla bla

    não necessita de array para isso.


    Cumprimentos.


    Agora para carregar uma array podes utilizar o For..
    Veja que a definiste a Array com 7 campos..

    - Crie uma variável do tipo integer

    Dim X as integer

    For x = 1 to 7
     Array(X) = SeuCampoRecordset
    Next X

    Para Extrair

    a mesma coisa

    For X = 1 to ubound(Array)
      MsgBox Array(x)
    Next X


    Cumprimentos.

      Data/hora atual: 12/4/2021, 23:22