Update nos registros com critérios

pessoal, gostaria de uma ajuda na seguinte situação

eu tenho um código que funciona que é no evento Clique de um campo.  
ele coloca Sim  no campo Naoquero  quando eu coloco sim no campo tenho  de um mesmo Numero

exemplo,  ao marcar SIM no "Tenho" em qualquer dos 65000, ele marcae 'SIM' no "NaoQuero" nos outros 65000.  quantos tiverem.
65000
65000B
65000C

Código:

Private Sub Tenho_click()
Dim strsqlNaoquero As String

Me!Naoquero = Not Me!Tenho
strsqlNaoquero = "UPDATE CadastroGeral LEFT JOIN minhacoleção ON CadastroGeral.CódigoDoCadastro = minhacoleção.CódigoDoCadastro SET NaoQuero = -1 WHERE aceca like '" & Left(Me!ACECA, 5) & "*' AND Tenho=0"
DoCmd.RunSQL strsqlNaoquero
    DoCmd.SetWarnings True

End Sub

Duvida:   Como rodar isso no BD inteiro, já que esse codigo é no evento clique e ele pega o campo que estou

Tentei dar um update pela consulta sem referenciar o campo com o Me!  mas ele colocou  "SIM" no campo para todos os registros do BD.

UPDATE CadastroGeral LEFT JOIN minhacoleção ON CadastroGeral.CódigoDoCadastro = minhacoleção.CódigoDoCadastro SET NaoQuero = -1 WHERE aceca like '" & Left(ACECA, 5) & "*' AND Tenho=0

Amigo, nao quero atrapalhar seu forum, mas percebi que vc entende do comando UPDATE.
Estou com um problema acredito bem simples.
Nao entendo muito de VBA, será que vc poderia me ajudar? Segue link do forum com minha duvida

https://www.maximoaccess.com/t31902-comando-update-em-vba

Desculpe nao conseguir te ajudar, sou muito iniciante em Access e VBA.

Obrigado

Boa noite,
Tente
Currentdb.execute "UPDATE CadastroGeral LEFT JOIN minhacoleção ON CadastroGeral.CódigoDoCadastro = minhacoleção.CódigoDoCadastro SET NaoQuero = -1 WHERE Tenho=0

Boa Note, desculpe a demora em responder.
Tentei dessa maneira e ele colocou "sim" em todos os registros do campo 'NãoQuero' onde o 'tenho' está igual a "não".
Não é isso que preciso, mas tá quase. acho que tem que fazer uma contagem de caractere.

ele precisa entender que eu posso ter qualquer um dos itens 65000, e coloque o sim no campo NaoQuero dos outros 2.

65000
65000B
65000C

no evento Clique do campo Tenho, funciona. só que preciso rodar pro BD inteiro essa mesma atualização.

Código:

Me!Naoquero = Not Me!Tenho
strsqlNaoquero = "UPDATE CadastroGeral LEFT JOIN minhacoleção ON CadastroGeral.CódigoDoCadastro = minhacoleção.CódigoDoCadastro SET NaoQuero = -1 WHERE aceca like '" & Left(Me!ACECA, 5) & "*' AND Tenho=0"
DoCmd.RunSQL strsqlNaoquero

agradeço a ajuda

Boa tarde,
Não entendi bem o que pretende
Coloque pequeno exemplo significativo e explique com detalhe