[Resolvido]Caminho das Tabelas em consulta

Boa tarde Pessoal;
No sistema que criei, acabei usando um exemplo que acredito ser do Fabio Paes, não tenho certeza, mas vamos ao problema que encontrei agora, antes utilizava o sistema em apenas uma maquina tudo funcionando beleza, agora com a colocação de mais um computador, dividi o sistema e vinculei as tabelas, só que onde eu validava o CPF_CNPJ dá erro, sei que é porque não localiza a tabela para pesquisar, só não sei como mostrar o caminho na pesquisa, abaixo como está:

Private Function Antes_DeAtualizar()
'Pesquisa a existência do cliente através do seu CPF/CNPJ
Dim rs As Recordset, C As Control
Set C = Screen.ActiveControl

''''Deve ser aqui o problema, como informar que as tabelas estão na rede pasta orçamentos sistema integrado """"
Set rs = CurrentDb.OpenRecordset("tbl_Clientes", dbOpenTable)

On Error Resume Next


With rs
.Index = "CPF_CNPJ"
.MoveFirst
.Seek "=", C
End With

On Error GoTo 0
If err <> 0 Then
MsgBox Error(err), 48
DoCmd.CancelEvent
Exit Function
End If
rs.Close

Found = C

End Function

Tentei colocar o caminho das tabelas, mas não tive exito, se alguem poder me ajudar agradeço.

Roxo

Com certeza ao dividir seu arquivo, a verificação do seu código não encontra a fonte de dados ou tabela, que precisam ser referenciadas.

Esse exemplo do colega ahteixeira é muito bom para resolver o vínculo automático das suas tabelas.

Bons estudos!!!

https://www.maximoaccess.com/t27608-exemplo-de-sistema-multi-empresa

Cleverson, boa noite
Obrigado pelo retorno, dei uma olhada no sistema do ahteixeira, meus conhecimentos estão longe para acompanhar o projeto dele. Na verdade o que sei aprendi aqui no forum e no avelino Sampaio e fui criando um frankenstein. Funciona bem para o meu uso, só que fui melhorar colocando em rede e me apertei no conhecimento. O sistema está funcionando perfeitamente em rede, só no momento que vou cadastrar um cliente novo, no momento da pesquisa para saber se já está cadastrado o referido CPF_CNPJ dá este erro. tem como me ajudar num passo a passo.

Roxo

Tudo bem, no momento estou sem acesso ao meu computador, assim que conseguir primeiro te mando um código de verificação do CPF para vc testar.

Abraços

Olá Cleverson!
O teste já tenho, está funcionando perfeito, tudo estava funcionando até o momento em que dividi o banco e coloquei na rede, agora ao adicionar novo cliente, quando o sistema vai conferir se o CPF_CNPJ já está cadastrado, aponta para aquele erro no lugar onde informei no inicio do post
Fico no aguardo de você
muito obrigado

Roxo

Bom dia Roxo,


O arquivo que vc mandou estava sem a função de verificação do CPF e CNPJ.

Bem alterei a tabela Partes, criando o campo Matricula, unindo assim o CPF e CNPJ, criei também o form Pessoa, analise a solução.

Repare que dividi seu arquivo, pois o código de verificação no evento Antes de Atualizar do campo Matricula(CPF_CNPJ) só funciona com tabelas vinculadas, ou seja, para trabalhar em rede.

Bons estudos.


Cleverson

Obrigado Cleverson,
Vou aproveitar o final de semana para estudar este teu material, assim que possível dou retorno

Grande abraço

Roxo

Desculpa Roxo

O seu tópico é semelhante ao do colega Alexandre, mas acredito que resolve também.

Cleverson, estou disponibilizando o meu BD para você me ajudar melhor.
Olha só, no BE deixei a tabela Clientes, deixei o form e os modulos para voce ver que funciona normalmente se trabalhar sem o sistema dividido, mas se voce for FE vincular a tabela clientes do BE, quando vou adicionar um novo CPF_CNPJ "pelo FE" dá o erro.

A rotina que utilizo é a seguinte, o Usuário digita o numero do CPF ou CNPJ lá em cima na caixa de pesquisa, se o referido CPF ou CNPJ já estiver cadastrado, traz para o form todos os dados referente a ele.
Se o CPF ou CNPJ digitado não estiver cadastrado, apos confirmação já começa o cadastramento do cliente em questão, inclusive abrindo o site para consulta junto a receita.

Se você tiver um tempinho para me ajudar fico muito grato

Att.

Roxo

Não foi na mensagem anterior

Roxo

Boa tarde José,

Ainda vou analisar seu arquivo, logo te retorno.

Abraços

Olá pessoal, alguém consegue me ajudar?

Roxo

Olá pessoal. resolvido com a ajuda do Avelino Sampaio
Tabela vinculada não aceita o método SEEK
Tem que utilizar o FindFirst

Valeu