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


3 participantes

    [Resolvido]Localizar campo numa tabela e colocar em outra tabela numa Caixa de Texto

    avatar
    robertoleite
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 13
    Registrado : 26/11/2011

    [Resolvido]Localizar campo numa tabela e colocar em outra tabela numa Caixa de Texto Empty Localizar campo numa tabela e colocar em outra tabela numa Caixa de Texto

    Mensagem  robertoleite 30/11/2011, 22:02

    Prezados Mestres,

    Criei um botao no meu formulario que ao clicar ele deve buscar um registro relacionado com um idcliente e jogar estes dados em outra tabela, numa caixa de texto.

    Qual eh o comando ou as instrucoes que eu devo usar para fazer esta operacao?

    Grato,

    Roberto


    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Localizar campo numa tabela e colocar em outra tabela numa Caixa de Texto Empty Re: [Resolvido]Localizar campo numa tabela e colocar em outra tabela numa Caixa de Texto

    Mensagem  criquio 30/11/2011, 23:09

    Dim rs As Recordset

    Set rs = CurrentDb.OpenRecordset("NomeDaTabelaDeOrigem")
    rs. FindFirst "Código=" & Me.Código

    If rs.NoMatch Then
    MsgBox "Não existe nenhum registro com esse código", vbCritical, "Erro"
    Else
    CurrentDb.Execute "INSERT INTO NomeDaTabelaDeDestino(Campo1, Campo2, Campo3) VALUES('" & rs!Campo1 & "', '" & rs!Campo2 & "', '" & rs!Campo3 & "')"
    End If
    rs.Close
    Set rs = Nothing


    Mais ou menos isso.


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    avatar
    robertoleite
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 13
    Registrado : 26/11/2011

    [Resolvido]Localizar campo numa tabela e colocar em outra tabela numa Caixa de Texto Empty Re: [Resolvido]Localizar campo numa tabela e colocar em outra tabela numa Caixa de Texto

    Mensagem  robertoleite 1/12/2011, 15:44

    Obrigado Mestre Criquio,

    Deu certo.

    Roberto
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Localizar campo numa tabela e colocar em outra tabela numa Caixa de Texto Empty Re: [Resolvido]Localizar campo numa tabela e colocar em outra tabela numa Caixa de Texto

    Mensagem  criquio 1/12/2011, 16:18

    Grato pelo retorno. O forum agradece.


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    everton3x
    everton3x
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 46
    Registrado : 29/01/2012

    [Resolvido]Localizar campo numa tabela e colocar em outra tabela numa Caixa de Texto Empty Localizar valores numa tabela e colocar em campos de um formulário

    Mensagem  everton3x 31/1/2012, 00:51

    Dim rs As Recordset

    Set rs = CurrentDb.OpenRecordset("NomeDaTabelaDeOrigem")
    rs. FindFirst "Código=" & Me.Código

    If rs.NoMatch Then
    MsgBox "Não existe nenhum registro com esse código", vbCritical, "Erro"
    Else
    CurrentDb.Execute "INSERT INTO NomeDaTabelaDeDestino(Campo1, Campo2, Campo3) VALUES('" & rs!Campo1 & "', '" & rs!Campo2 & "', '" & rs!Campo3 & "')"
    End If
    rs.Close
    Set rs = Nothing

    Olá colegas.

    Adaptei o código acima para o seguinte:
    Código:
    Private Sub cod_teste_AfterUpdate()
        Dim rs As Recordset, codigo As Integer
        codigo = Me.cod_teste.Value
        Set rs = CurrentDb.OpenRecordset("teste")
        rs.FindFirst "cod = " & codigo
        'MsgBox "cod = " & Me.cod_teste.Value
        If rs.NoMatch Then
            MsgBox "Nenhum registro encontrado"
            Else
                Me.nome.Value = rs!nome
                Me.telefone.Value = rs!telefone
        End If
        rs.Close
        Set rs = Nothing
    End Sub
    A minha ideia é, a partir da digitação do código da pessoa (campo cod da tabela teste) num campo acoplado, buscar as informações dos campos nome e telefone e inserir isso nos textbox nome e telfone (não acoplados) do formulário.
    Porém, ocorre a seguinte mensagem, referente a linha
    Código:
    rs.FindFirst "cod = " & codigo
    Erro em tempo de execução '3251'
    Operação não suportada para este tipo de objeto

    Se comento a referida linha, o código funciona, porém os dados apresentados são sempre os do primeiro registro da tabela.
    Já procurei aqui e em outros lugares uma solução mas não encontrei.
    Fico muito grato por qualquer ajuda.

    Obs.: arquico do MSAccess 2007-2010


    RESOLVIDO

    Faltou colocar dbOpenDynaset em Set rs = CurrentDb.OpenRecordset("teste",

    Código:
    Set rs = CurrentDb.OpenRecordset("teste", dbOpenDynaset)

    Vivendo e aprendendo.


    Última edição por everton3x em 31/1/2012, 16:28, editado 1 vez(es) (Motivo da edição : Problema solucionado)

    Conteúdo patrocinado


    [Resolvido]Localizar campo numa tabela e colocar em outra tabela numa Caixa de Texto Empty Re: [Resolvido]Localizar campo numa tabela e colocar em outra tabela numa Caixa de Texto

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 9/12/2024, 04:46