Tenho este comando abaixo, que esta perfeito e funcionando, porem ele se refere ao botao de atualizar do meu cadastro de clientes. Ate aqui tudo bem.

Qualquer modificacao sera atualizada dentro do ID do usuario que estou alterando. Porem dentro do formulario de cada cadastro do cliente eu possuo uma textBox-1, ao qual ali eu coloco o codigo do cliente que fez a indicacao e possuo outra TextBox-2 que é apresentada quantos clientes este indicou a loja.

A minha pergunta é: Ao precionar o botao ATUALIZAR, qual modificacao tenho que fazer neste comando abaixo, para ele tambem achar o codigo do cliente que trouxe este novo indicado a loja e somar +1 a TextBox 2.

Exemplo.

O cliente ID 48 trouxe o Cliente ID 60. Entao na TextBox-1 do Cliente 60 vai aparecer o Codigo ID 48 ( ele foi apresentado pelo ID 48).
No Cliente ID 48 na TextBox-2 agora vai aparecer 1 ( ELe indicou 1 clinte ), e se ele ja tivesse por exemplo 3 indicados 3+1=4 Entao TextBox-2 do ID 48 = 4

Grato

Andre

Private Sub btn_alterar_Click()


  'Cria variável que armazena os comandos SQL
    Dim ComandoSQL As String
    Dim ID As Integer
    
    ID = Txt_Codigo
    
    'Armazena na variável o comando que fará a consulta SQL no BD Access
    ComandoSQL = "select * from tabela_clientes where ID like '" & ID & "' "
    
    'Chama a rotina que faz a conexão ao Banco de Dados
    Call Conecta
    
    'Atribui a variável global do tipo Recorset, os comandos SQL que devem ser executados
    Set Consulta = banco.OpenRecordset(ComandoSQL)
    
    
    
    
            'Armazena a resposta do usuário
        Resposta = MsgBox("Deseja mesmo alterar este registro ?", vbQuestion + vbYesNo, "EXCLUSÃO")
        
        'Se o usuário responder SIM (quer excluir o registro)...
        If Resposta = vbNo Then
                    
            'Chama a rotina de desconexão com o BD (libera variáveis de objeto do BD)
            Call Desconecta
  GoTo Pule
            
        Else
        End If

   
    
    '****Abre o Recordset do BD para edição
    Consulta.Edit
        
    'Atribui cada valor dos controles aos respectivos campos existentes na tabela tabela_clientes
        Consulta("Nome") = Me.Txt_Nome
        Consulta("Apelido") = Me.Txt_Apelido
        Consulta("CPF") = Me.Txt_CPF
        Consulta("Aniversario") = Me.Txt_Aniversario
        Consulta("Parceiro") = Me.Txt_Parceiro
        Consulta("Indicados") = Me.Txt_Indicados
        Consulta("Categoria") = Me.Txt_Categoria
        Consulta("Desconto") = Me.Txt_Desconto
        Consulta("Cod") = Me.Txt_Cod2
        Consulta("Cliente") = Me.Txt_Quem_Indicou
        Consulta("Consultas") = Me.Txt_Nutri
        Consulta("Ind") = Me.Txt_Indicado_Nutri
        Consulta("Compras") = Me.Txt_Compras
        Consulta("Gastos") = Me.Txt_Gastos
        Consulta("Endereco") = Me.Txt_Endereco
        Consulta("N") = Me.Txt_N
        Consulta("Compl") = Me.Txt_Compl
        Consulta("Bairro") = Me.Txt_Bairro
        Consulta("CEP") = Me.Txt_CEP
        Consulta("Cidade") = Me.Txt_Cidade
        Consulta("UF") = Me.Txt_UF
        Consulta("Fone") = Me.Txt_Fone
        Consulta("Zap") = Me.Txt_Zap
        Consulta("Email") = Me.Txt_Email
        Consulta("OBS") = Me.Txt_OBS
        Consulta("Cadastro") = Me.Txt_Cadastro
        
     'Atualiza o Recordset do BD
        Consulta.Update
        
     'Exibe mensagem de sucesso na alteração dos dados
        MsgBox "Registro Alterado com Sucesso!", vbDefaultButton1, "ALTERAÇÃO"
        
     'Chama a rotina que libera as variáveis de objeto do BD
      Call Desconecta
        
        
Pule:

'Abandona a subrotina
 Exit Sub
        
      Call limpar_campos
     
End Sub