[Resolvido]Preencher automaticamente um campo ao abrir um formulario

Pessoal.

Tenho uma dúvida, pesquisei posts e não achei algo que possa aproveitar, pois meu problema é simples em relação aos outros (penso eu).

Tenho um tabela de clientes "tacliente" com o campo nome e telefone e um formulario "fcliente" para cadastro dessa tabela

Tenho alguns clientes cadastrados

Tenho um botão "Agendar" no formulario de cadastro de clientes "fcliente".

Gostaria que, ao abrir o "fcliente" e clicar no botão agendar, o formulario de agendamento "fagendamento" abrisse preenchendo automaticamente o nome do cliente que estava selecionado no formulario de clientes "fcliente".

Segue o bd com o exemplo.

Não sei que comando colocar nem onde, pra que o acess preencha este campo automaticamente e depois ao salvar os dados no "fagendamento" o campo nome seja salvo na "taagendamento"

Muito obrigado.

Boa tarde amigo, acabei de solucionar esse problema!
Ai vai:

No evento ao clicar do seu botão:
Private Sub SeuBotão_Click()
DoCmd.OpenForm "SeuFormPrincipal", acNormal, "", "[SuaTabela]![codigoNúmerico]=[forms]![FmlQueDesejaAbrir]![Campo(s)QueDesejeQueCopieDoFormPrincipal]", , acNormal
End Sub

E no evento ao apertar mouse do seu botão, coloque a seguinte macro:
( foto em anexo ).

Boa tarde Caiofabio, Veja se e isto.

Obrigado Caiofabio pelo retorno.

Estou tentando adaptar a linha de código vb.

Mas em matéria de macro nunca estudei, aprendi a fazer via vb "procedimento do envento"...

To usando acess 2007 e nao entendi a imagem, mas vou tentar.

Obrigado Bigfill,

O resultado que eu queria é esse,

Vou estudar, vi que voce alterou o "fagendamento" com o código =[Formulários]![fcliente]![Nome]

Foi só isso que alterou?

Estou indo pra casa e irei analisar melhor o exemplo, pra ver se for só isto está resolvido e encerrarei o tópico.

Obrigado colegas.

Isso mesmo Bigfill.

Ok amigo, pelo título do tópico seria isso sim.
Esperamos o seu retorno!

Boa tarde pessoal, obrigado pelo retorno.

FlavioLima, foi sim, somente no campo de "Valor Padrão" coloquei o código "=[Formulários]![fcliente]![Nome]".

Quando voce coloca um valor em "Valor Padrão" ele ja abre com o valor iserido.

Exemplo: se colocar "=Agora()" ao abrir o campo recebe a data/hora atual.

Espero ter esclarecido, valeu!

Obrigado
Valeu.

Pessoal,

agora a noite resolvi implementar a solução

Enquanto não tinha nenhum registro salvo deu certo

Apos salvar um registro, a solução não mais funcionou.

Refiz o bd "teste" q segue e percebi mais uma dificuldade minha q nao sei como superar.

Eu tenho no fcliente um campo do tipo que puxa informação atraves do assistente de pesquisa, entao no formulario cliente aparece uma lista, assim quando clico em agendar, o campo tipo me retorna o numero correspondente ao texto salvo na tatipo.

Tentei superar isto usando uma consulta, mas acho q me embolei na formula.

A partir do primeiro registro salvo, a solução a formula no valor padrão na cbo não resolve, pois se tiver 60 registros salvos, ao clicar ele não cai no registro novo e sim no primeiro registro, tendo q passar todos ate chegar no registro ainda nao salvo.

acho q a solução talvez passe por usar no procedimento do evento ao clicar algo como

DoCmd.OpenForm "fagendamento", acNormal, "", " [Código]=[Forms]![fcliente]![nome]", , acNormal

nao sei...

Bom dia FlavioLima, depois estive pensando que faltava um código para seu projeto, pois quando um formulário abre por padrão ele ira abrir no primeiro registro, então temos que colocar um código para ir sempre para um "Novo". segue o código e o exemplo.

Faltava isto em "Abrir o formulario agenda"
DoCmd.GoToRecord , "", acNewRec

FlavioLima, alterei a sua segunda duvida.

Retirei o relacionamento entre tabelas que você tinha criado, pois ele não permitia a inclusão do tipo por "Nome" pois o campo era numérico.

Aguardo o retorno.

Obrigado amigo bigfill,

Ta funcional,


Só não entendi uma coisa.

Você tirou a relação, e após deletou a caixa de combinação que estava no fcliente e inseriu uma caixa de combinacao nova e o comando em "origem da linha" ou aproveitou a caixa que já estava? Nao sei se isto faz alguma diferença, mas estou tendo dificuldade, mesmo após excluir a relação em algumas tentativas continua aparecendo o número.

Enquanto isso vou tentar aplicar a solução.

Muito obrigado!

FlavioLima, Fiz alguns testes aqui e não esta aparecendo números não.
Aproveitei e deixei como "Física" o padrão do campo de cadastro.

Mais utilizei o seu campo mesmo, só excluir o relacionamento e alterei o tipo do campo para texto.

Aguardo retorno

Seu exemplo funciona, eu é que não estou conseguindo aplicar com sucesso no meu projeto.

Hospedei parte do meu projeto,

é para controle de cliente, processo, diligencia, etc.. pra usar aqui no escritorio que faço parte.

No caso real, do "FRM-CAD-PROCESSOS" em cima do lado direito tem o botão para abrir o "FRM-CAD-DILIGENCIANOVA"

creio que fiz o que você falou, mas tem algo que não estou percebendo.

São 3 campos que estou tentando puxar automaticamente: Processo, cliente e parteadversa

Os que não usam caixa de combinação estão ok, mas o campo cliente está puxando numero correspondente e nao o texto.

Grato e desculpe qq transtorno.

FlavioLima, Como voce criou o vinculo entre tabelas eu achei melhor colocar um código que puxasse o valor da segunda coluna (Nome do Cliente).

Agora uma dica, tente não utilizar espaços, Caracteres, etc...

Tente manter um critério tipo:

Exp:
Tabelas: TbClientes
Consultas: ConsClientes
Formulários: FClientes
Relatórios: RClientes

E em campo tente não deixar espaços ou caracteres tipo:

Exp:

Campos: Nome ou Rasão Social
para
Campo: NomeRasaoSocial

Fico no aguardo.

Mais uma vez seu exemplo funcionou, agradeço por todo o esforço e ajuda.

Infelizmente eu não consigo refazer sua solução...

Meu projeto é maior e vou ter que entender o que foi mudado pra poder aplicar nos outros formularios, se fosse só este formulario eu copiava e colava as tabelas e formularios funcionando pra dentro do meu projeto e já estava tudo resolvido.

Vejo que meu projeto tá cheio de imperfeições, eu já esperava, me aventurei em acess assistindo video aulas pelo youtube, e quando as video aulas terminaram entrei neste forum para continuar aprendendo e contribuindo com o que puder.

Vi q tem outras modificações q você fez, tais como tirar os "traços" dos nomes dos formularios, juntar palavras e tirar os acentos do campo Nome ou Razão Social na tabela e não sei mais em que ou o que foi alterado pra fazer funcionar.

Por causa do meu nível de iniciante eu precisaria saber os passos que usou para consertar as incorreções e conseguir fazer funcionar.

Enfim, assumo a responsabilidade e darei o topico como resolvido, pois sua ajuda está aqui, só preciso chegar no nível de compreensão, vai demorar um pouco por que não sou da área mas quando a "dor de cabeça" de falhar e falhar diminuir eu continuo tentando... talvez eu ja esteja estressado e ansioso em conseguir terminar esse projeto q isso esteja atrapalhando...

Muito Grato.

FlavioLima, Primeiramente o que eu realmente alterei em seu projeto que fez funcionar foi o "Valor Padrão" do campo Cliente.

Antigamente estava como "=Formulario![FRM-CAD-PROCESSOS]![tipo]

ai ele estava puxando o valor da primeira coluna de sua tabela "TA_CAD_CLIENTE" que no caso seria o "COD" campo numérico.
como no campo "Combo" de consulta voce colocou a configuração de coluna como "2 colunas" e os tamanhos como "0;2cm" lhe apresentava o nome.
porem como voce esta tentando puxar o valor de uma campo como : Antigamente estava como "=Formulario![FRM-CAD-PROCESSOS]![tipo]
Ele busca o primeiro valo (Coluna), e ai o valor que estava "0cm" acima e o numero. então no codigo novo foi pedido o valor da coluna "2".

Exemplo: =[Formulários]![FRMCADPROCESSOS]![Tipo].[Column](1)

Em vez da primeira coluna ele mostra o valor da segunda.

E em segundo se servir de inspiração ano retrasado não sabia nada de Access, e a maioria do que aprendi foi neste forum.
Para mim um dos melhores.

obrigado pelo retorno

Notícia boa, consegui fazer, tive que excluir algumas relações para transformar o campo de número para texto e coloquei as fórmulas

Notícia ruim para mim, varias consultas e caixas de listagem de formulários usadas para pesquisa começaram a apresentar o seguinte erro:

"Tipo não coincidente na expressão"

Tipo não coincidente na expressão JOIN. (Erro 3615)

Uma expressão JOIN está tentando associar duas tabelas em campos cujos tipos de dados são incompatíveis.
Por exemplo, você receberá este erro se tentar associar um campo Memorando a um campo Texto.

Acho que isto se deve ao fato de eu ter alterado o campo número para o texto. E agora tenho dados puxando automaticamente e com
várias consultas dando este erro, que por consequência refletiram em erros em relatórios e em caixas de listagem de outros forms...

Fica aí o alerta pra quem tentar usar esta solução após já estar muito adiantado no projeto, desfazer relações e mudar tipos de dados é sempre problema...

Agora estou pensando em jogar tudo pela janela e começar do zero. Porque se existe outra solução para isto que evite quebrar relações e mudar tipos de dados de tabela eu não sei...

                   

FlavioLima, "Tipo não coincidente na expressão" refere-se a isto mesmo, a consulta esta relacionando um campo numérico com um campo texto.

Mais com a ultima dica que mandei não precisaria fazer a exclusão do relacionamento.
Exemplo: =[Formulários]![FRMCADPROCESSOS]![Tipo].[Column](1)

Pegue um Backup que você fez (Que contenha todos os relacionamentos) e somente inclua este código.

Não acho que deveria jogar "tudo pela janela", pois assim você ira abrir mão do aprendizado.

Grande parte do que aprendi foi aqui neste fórum, para min o melhor.
E nem sempre fui feliz em minhas adaptações, nem por isso desistia de minha duvidas. pelo contrario ficava fascinado pela procura da resposta e/ou da solução.

Não acho que sei muito mais aprendi bastante. E com o que aprendi desenvolvi vários sistemas ate então estão em funcionamento com mais de 50 usuários.

segue imagens dos sistemas.

FlavioLima, Estarei a disposição para lhe ajudar.

Obrigado pelo incentivo.

Vou tentar...

Sucesso para nós!

Abraço.

Consegui resolver
Vou aproveitar um campo tipo texto que ja estava na tabela e puxar dele sem precisar modificar o campo tipo numero.

tambem poderia usar o comando para salvar em outra tabela quando eu salvasse um processo e daí puxaria dela.

FlavioLima, obrigado pelo retorno, o fórum agradece.



Favor alterar o tópico para resolvido.

oks