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

    [Resolvido]Copiar campo múltiplos valores

    Júnior_Oliveira
    Júnior_Oliveira
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 34
    Registrado : 07/06/2012

    [Resolvido]Copiar campo múltiplos valores Empty Copiar campo múltiplos valores

    Mensagem  Júnior_Oliveira 29/10/2012, 10:05

    Bom dia pessoal!

    Mais uma vez recorro a ajuda de vocês. Por gentileza, leiam minha dúvida:

    Estou copiando os dados de uma tabela para outra utilizando o seguinte código SQL:

    DoCmd.RunSQL "INSERT INTO Cursos_Inic(Nome, QtdeAlunos) SELECT Nome, QtdeAlunos FROM Cursos WHERE Cursos.Abreviatura = 'INST.SOM'"

    Porém estou com dúvida para fazer um processo parecido para campos múltiplos valores.
    Se, por exemplo meu campo possuir 3 valores, quero copiar apenas um, especificando qual, ou copiar os 3 valores, porém um para cada linha da tabela receptora. Espero ter sido claro.

    Desde já lhes agradeço pelo tempo já prestado.
    Júnior_Oliveira
    Júnior_Oliveira
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 34
    Registrado : 07/06/2012

    [Resolvido]Copiar campo múltiplos valores Empty Re: [Resolvido]Copiar campo múltiplos valores

    Mensagem  Júnior_Oliveira 30/10/2012, 01:20


    Consegui!
    Nem acredito, mas só faltava o .value, como segue:
    DoCmd.RunSQL "INSERT INTO Cursos_Inic(Nome, QtdeAlunos, Apostilas)" _
    & " SELECT Nome, QtdeAlunos, Apostilas.value FROM" _
    & " Cursos WHERE Cursos.Abreviatura = 'AUXMECAUT'"

    Até mais.
    Júnior_Oliveira
    Júnior_Oliveira
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 34
    Registrado : 07/06/2012

    [Resolvido]Copiar campo múltiplos valores Empty Re: [Resolvido]Copiar campo múltiplos valores

    Mensagem  Júnior_Oliveira 30/10/2012, 19:58

    Boa noite pessoal,
    A dúvida de cima já tirei, mas faltou uma coisinha. Consegui copiar um campo de múltiplos valores para outra tabela, mas ainda não consegui copiar para uma matriz. Estou usando o seguinte código:

    Private Sub Botao30_Click()
    Dim rst As DAO.Recordset
    Dim dbAtu As DAO.Database
    Dim longo As Variant
    Set dbAtu = CurrentDb()
    Set rst = dbAtu.OpenRecordset("SELECT * FROM Cursos")
    longo = rst![Apostilas].Value
    Me.txtresult4 = longo(0)
    End Sub

    Do modo acima aparece o primeiro valor do campo Apostilas (sendo esta de múltiplos valores (no caso 4 valores)).
    Não consigo acessar os outros valores, tentei assim:

    Me.txtresult4 = longo(1)

    Mas não funcionou. O que acham que devo fazer?

    Obrigado desde já.
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8496
    Registrado : 05/11/2009

    [Resolvido]Copiar campo múltiplos valores Empty Re: [Resolvido]Copiar campo múltiplos valores

    Mensagem  Alexandre Neves 31/10/2012, 14:56

    Boa tarde, Júnior
    Deverá entender a mecânica do campo de valores múltiplos. Facilita o trabalho 'normal', mas complica em casos mais elaborados.


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    Júnior_Oliveira
    Júnior_Oliveira
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 34
    Registrado : 07/06/2012

    [Resolvido]Copiar campo múltiplos valores Empty Re: [Resolvido]Copiar campo múltiplos valores

    Mensagem  Júnior_Oliveira 31/10/2012, 23:30

    Boa noite Alexandre,

    Muito obrigado pelo seu tempo e pela dica, entendi seu recado. Pensei melhor e vi que possuo outras alternativas. Mas, só para constar, como não consegui copiar diretamente de um campo múltiplo para uma matriz, copiei do campo para uma outra tabela, ficando assim cada elemento do campo múltiplo em uma linha. Depois copiei o valor da coluna para a matriz. Funcionou, mas estou revendo para um processo melhor.

    Muito obrigado mais uma vez, professores do Access!

    Conteúdo patrocinado


    [Resolvido]Copiar campo múltiplos valores Empty Re: [Resolvido]Copiar campo múltiplos valores

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 7/11/2024, 22:11