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

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.

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

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:

up

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.

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.

resolvido.