Ola,

No meu cadastro de Clientes crio, edito e excluo sem problema algum pelo formaulario do Escel os dados no Acess.

Ao abrir um novo cliente ( A ), dentro do formulario possuo uma TextBox ( TXt_Cod2 ), onde coloco o ID e na outra TextBox ao lado ( Txt_Quem_Indicou), o nome da pessoa ( B ) que indicou este novo cliente. Com isso este cliente caso venha indicado por outro, estara na ficha dele a indicacao ( B ).
O Cliente B sera acrescido em +1, o numero de indicados.
Ate aqui tudo bem. Pois acrescentei o comando abaixo, para quando abrir o Cliente ( B) esteja la a soma

Sub Indicado()


  'Cria variável que armazena os comandos SQL
    Dim ComandoSQL As String
    Dim ID As Integer
 '   Dim x As Integer
 '   x = Range("L16").Value
    
    
    ID = Txt_Cod2  '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)

     
    '****Abre o Recordset do BD para edição
    Consulta.Edit
        
    'Atribui cada valor dos controles aos respectivos campos existentes na tabela tabela_clientes
        Consulta("Indicados") = Consulta("Indicados") + 1
        
     'Atualiza o Recordset do BD
        Consulta.Update
        
 
 Exit Sub
 
             
End Sub

Entao agora pra facilitar as coisas, eu gostaria que ao Cadastrar este novo Cliente, ao entrar com o ID de ( A), a textBox ( Txt_Quem_Indicou) ja preenchesse o nome relacionado que estara na Txt_Cod2,, assim nao tendo que entrar com o nome do cliente ( A).