MaximoAccess

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

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Adicionar valor em 1 campo do registro selecionado por uma combobox - comando "Após Atualizar"

    Compartilhe

    rafaelbatistadasilva
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 40
    Registrado : 24/02/2014

    [Resolvido]Adicionar valor em 1 campo do registro selecionado por uma combobox - comando "Após Atualizar"

    Mensagem  rafaelbatistadasilva em Qua 07 Jun 2017, 18:35

    Olá pessoal, me tirem uma dúvida.

    Tenho uma combobox alimentada por uma consulta sql. Gostaria que, no comando "Após atualizar", o registro selecionado recebesse em um de seus campo um valor específico, atribuído em uma txtbox. Somente nos registro que eu selecionar.

    Tentei algo parecido:
    Código:
    Private Sub combo_pesq_AfterUpdate()
    Dim rs As DAO.Recordset
    Set rs = CurrentDb.OpenRecordset("TBLALUNOS")
        rs!combo_pesq.Column(0) = ID1 '"ID1" é a txtbox que possui o valor específico
        DoCmd.Requery 'assim que adicionado o valor, um formulário contínuo irá filtrar os registros que contiver os mesmos
        Me!combo_pesq = ""
    End Sub

    grato pessoal.
    avatar
    tauron
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 696
    Registrado : 07/12/2011

    Re: [Resolvido]Adicionar valor em 1 campo do registro selecionado por uma combobox - comando "Após Atualizar"

    Mensagem  tauron em Qua 07 Jun 2017, 18:59

    Rafael, poste o que vc tem ai. Assim fica mais facil ajudar.

    rafaelbatistadasilva
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 40
    Registrado : 24/02/2014

    Re: [Resolvido]Adicionar valor em 1 campo do registro selecionado por uma combobox - comando "Após Atualizar"

    Mensagem  rafaelbatistadasilva em Qua 07 Jun 2017, 19:24

    Obrigado por responder. Criei um exemplo parecido.

    A intenção é adicionar um valor VARIÁVEL da txtbox no campo ID1. Porem, quero selecionar o registro que receberá esse valor através da combobox.

    Segue em mdb e accdb:
    Anexos
    combobox.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (104 Kb) Baixado 2 vez(es)


    Última edição por rafaelbatistadasilva em Qua 07 Jun 2017, 20:13, editado 1 vez(es)

    rafaelbatistadasilva
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 40
    Registrado : 24/02/2014

    Re: [Resolvido]Adicionar valor em 1 campo do registro selecionado por uma combobox - comando "Após Atualizar"

    Mensagem  rafaelbatistadasilva em Qua 07 Jun 2017, 20:14

    up

    rafaelbatistadasilva
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 40
    Registrado : 24/02/2014

    Re: [Resolvido]Adicionar valor em 1 campo do registro selecionado por uma combobox - comando "Após Atualizar"

    Mensagem  rafaelbatistadasilva em Qua 07 Jun 2017, 21:02

    Eu até consegui adicionar o valor mas adicionou em todos registros, sem usar o critério da combobox:

    Código:
    CurrentDb.Execute "UPDATE [TBLALUNOS] SET ID1 ='" & Me!ID1 & "' WHERE '" & Me!combo_pesq.Column(1) & "'"

    Já tentei deixar assim:
    CurrentDb.Execute "UPDATE [TBLALUNOS] SET ID1 ='" & Me!ID1 & "' WHERE ID= '" & Me!combo_pesq.Column(1) & "'"
    mas recebo aviso de tipos incompatíveis.

    rafaelbatistadasilva
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 40
    Registrado : 24/02/2014

    Re: [Resolvido]Adicionar valor em 1 campo do registro selecionado por uma combobox - comando "Após Atualizar"

    Mensagem  rafaelbatistadasilva em Qua 07 Jun 2017, 21:48

    Boa tarde pessoal.
    TENTEI, TENTEI E TENTEI...

    inverti a rotina e consegui, segue:
    Código:
    CurrentDb.Execute "UPDATE [TBLALUNOS] SET ID1 ='" & Me!ID1 & "' WHERE " & Me!COMBO_PESQ.Column(1) & " = ID"

    Resolvido.
    Anexos
    combo.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (112 Kb) Baixado 10 vez(es)

    rafaelbatistadasilva
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 40
    Registrado : 24/02/2014

    Re: [Resolvido]Adicionar valor em 1 campo do registro selecionado por uma combobox - comando "Após Atualizar"

    Mensagem  rafaelbatistadasilva em Sex 09 Jun 2017, 01:05

    resolvido.

      Data/hora atual: Sab 18 Nov 2017, 08:21