[Resolvido]Sub Form com endereços frequentes

Boa tarde senhores,

Preciso colocar no meu form um subform que carregue endereços frequentes de entrega de um determinado cliente.
No form anexo, tenho uma combobox que seleciono o cliente e um código preenche os comandos do bloco Endereço Coleta automaticamente,preciso que no mesmo evento do comando ele preencha o subform com estes endereços frequentes para seleção.

Pergunto, a forma seria criar uma tabela para cada cliente que possue estes endereços frequentes? se for isso ok,mas qual é a dinâmica, o código no evento do comando vai chamar tal tabela pelo cliente selecionado, então devo nomear cada tabela com o nome do cliente por exemplo???

Senhores, preciso que alguém me auxilie no caminho, vou fazendo mas preciso saber se o caminho é realmente este.

Pelo que entendi seria

1 - Tabela clientes
2 - Tabela endereços frequentes.

Relacioná-las e assim o sub form seria baseado na tabela endereços.

Cumprimentos.

Piloto,

entendi mas este caso só conheço na teoria, vou aprender por bem agora,
então eu tenho que criar realmente uma tabela com os tais endereços para cada cliente certo? e relaciona-las...
mas ai como faço para o código popular o subform? hoje o código que utilizo para preencher os comandos no evento atualizar do combobox é:

Private Sub Cliente_AfterUpdate()
Dim seq As String, k

seq = "[Nome] & '|' & [Contato] & '|' & [Telefone] & '|' & [Endereço] & '|' & [Nº] & '|' & [Bairro] & '|' & [Complemento]"
seq = DLookup(seq, "tabelaclientes", "Nome= '" & Me!Cliente.Column(1) & "'")
k = Split(seq, "|")
Me!Cliente = k(0)
Me!EndereçoColeta = k(3)
Me!NºColeta = k(4)
Me!BairroColeta = k(5)
Me!Contato = k(1)
Me!Telefone = k(2)
Me!Complemento = k(6)
End Sub

Vou complementar este código???

O Form é baseado na tabela clientes
o Sub form é baseado na tabela endereços

As tabelas sao relacionadas

e o form relacionado ao sub form
Em propriedades, aba dados
Vincular campos mestre
vincular campos filho

Preenchido com os devidos codigos utilizados no relacionamento das tabelas..
\

No Form, uma combo baseada no nome do cliente.. com o código

' Encontrar o registro que coincide com o controle.
Dim rs As Object
Forms![f_folha Obra]!CodigoCliente = Me.Combinação94.Column(0)
Set rs = Me.Recordset.Clone
rs.FindFirst "[CodigoCliente] = " & Str(Nz(Me![Combinação94], 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub

Ondo Column(0) === 0 é a coluna da combo onde fica o codigo.


Cumprimentos.

Piloto, não consegui,

vamos por partes,


se serão varias tabelas para vincular não posso basear um subform em uma tabela certo?
to perdidinho...

Porque varias tabelas?

Sao apenas duas...

Logo te faço um exemplo.

Ok

Veja

Desculpe não ter entendido antes,

posso fazer tudo isso em uma so tabela,

Obrigado por enquanto Piloto.

Resolveu?

Vou testar agora, mas ja aproveito a tua atenção para perguntar outra coisa,
posso usar o duplo click no subform para preencher comandos dentro do form certo?

sim

Piloto

seria muito pedir para você fazer no meu anexo pois não estou conseguindo nem fazer o vinculo das tabelas, diz que devo fazer com o mesmo nome e quantidade peço desculpas pela falta de conhecimento.


Obrigado

O que se pretende que este fomulario faça?

Voce tem a tabela cliente e a tabela convenios

como funciona isso?

Cumprimentos.

Todas as informações preenchidas no form são salvas na tabela Convênios, a tabela clientes esta ai para poder popular o combobox cliente e preencher automaticamente os comandos do bloco Endereço Coleta.

A ideia de criar este subform é porque muitos dos nossos clientes mandam sempre o motoqueiro para os mesmos lugares então se eu tiver estes endereços no subform a minha disposição na hora de preencher o formulário, vai agilizar um monte o preenchimento do formulário.
O problema esta sendo que tenho as ideias mas falta ainda muito experiencia, para construir as rotinas e os códigos.
Exemplo esta no fato que achei que teria que criar uma tabela para cada cliente, e no teu exemplo você cadastra o endereço pelo numero de registro do cliente, vivendo e aprendendo.

Tentei adaptar o que voce fez no teu anexo mas não consegui nem fazer o vinculo entre as tabelas.

Obrigado pela atenção Piloto.

Vinculei as tabelas.... Veja como ficou o vinculo entre a tabela cliente e tabela convenios..

observe que na tabela convenio tem um novo campo cliente_ID onde deve obrigatoriamente estar preenchido com o codigo do cliente

Criei a tabela enderecos onde podera ter varios enderecos por cliente...

O sub form exibe estes enderecos..

Selecione os clientes na combo e observe.

Cumprimentos.

Piloto,


não entendi o porque de vincular o formulário Convenio se ele não tem nada a ver com o processo?
quer dizer, almenos eu não entendi...

quando clico em novo, seleciono na combobox um cliente, ele ate popula o subform, mas preenche também os comandos do form com um registro antigo...

estou anexando o projeto completo para que por gentileza você possa dar uma olhada porque também esta dando um erro, devo ter deixado de fazer alguma coisa mas não entendi o que.

Muito obrigado por enquanto pela sua paciência e dedicação a esta caso...

Ajudaria se voce me fizesse entender o que pretente com este form..

De detalhes.

Cumprimentos.

Então, a nossa é uma empresa de motoboy onde iremos registrar as corridas do dia por este projeto,
se um cliente conveniado liga, logo abro o formulário convenio, e começo a preenche-lo, para ficar mais rápido o preenchimento, fui aprendendo com vocês aqui do fórum algumas manhas, como por exemplo criar uma combobox( cliente ), e no evento atualizar ele ja preenche automaticamente os campos referente ao endereço de coleta,
como em alguns casos ( alguns clientes ), os endereços de entrega são sempre os mesmos, para agilizar ainda mais o preenchimento, pensei em criar dentro do formulário Convenio um subform que ao selecionar no combobox cliente um dos meus clientes, alem do código preencher automaticamente os campos do endereço de coleta ele também populasse este subform com os endereços mais comuns para este tal cliente selecionado,( endereços ja cadastrados anteriormente em uma tabela ), assim com mais um clique em um dos endereços do subform eu teria o endereço de entrega também preenchido com mais agilidade.
Resumindo, em dois cliques preencho quase todo o form para registro da corrida.

Esse form é pra que????????

Cada registro é uma corrida?

Pra que varios endereços nele?

Cumprimentos.

Seria assim..

Escolhe o cliente, preenche os dados... e seleciona o endereço de entrega no sub form onde estara os endereços mais frequentes...

O que nao entendi é: É apenas uma entrega por chamada ou mais de uma? por isso a quantidade de endereços para preencher?

Cumprimentos.

exatamente isso,

"Escolhe o cliente, preenche os dados... e seleciona o endereço de entrega no sub form onde estarão os endereços mais frequentes"...

em alguns casos o cliente liga e pede para entregar em dois ou três endereços diferentes porisso tantos controles para entrega,
mas na maioria dos casos é um endereço so mesmo
e como não sei se posso preencher mais de um endereço de entrega dando duplo clique nos endereços que estarão no sub form nem quis tocar no assunto, seria perfeito se eu pudesse fazer isso...

Ok Amanha vejo isto pra ti.

Boa Noite.

Boa Noite e muito obrigado pela atenção.

Criei uma List Box baseada na tabela endereços, no evento duplo clique da lista o preenchimento dos endereços verificando sempre o ultimo preenchido, sendo preenchido no proximo duplo clique o proximo endereço vago.

para a lista ficar sincronizada com o cliente utilizo o requery da lista nos eventos no atual (do form), após atualizar da combo, e ao carregar do form.


Private Sub lstend_DblClick(Cancel As Integer)
If IsNull(Me.EndereçoEntrega) Or Me.EndereçoEntrega = "" Then
Me.EndereçoEntrega = Me.lstend.Column(2)
ElseIf IsNull(Me.EndereçoEntrega2) Or Me.EndereçoEntrega2 = "" Then
Me.EndereçoEntrega2 = Me.lstend.Column(2)
ElseIf IsNull(Me.EndereçoEntrega3) Or Me.EndereçoEntrega2 = "" Then
Me.EndereçoEntrega3 = Me.lstend.Column(2)
ElseIf IsNull(Me.EndereçoEntrega4) Or Me.EndereçoEntrega4 = "" Then
Me.EndereçoEntrega4 = Me.lstend.Column(2)
ElseIf IsNull(Me.EndereçoEntrega5) Or Me.EndereçoEntrega5 = "" Then
Me.EndereçoEntrega5 = Me.lstend.Column(2)
End If
End Sub


Cumprimentos.

Bom dia Piloto,


Quem sabe sabe, no exemplo ficou perfeito, vou adaptar no projeto completo te dou um retorno assim que possível, peço desculpas pela dificuldade de me explicar direito.

Muito obrigado Piloto.


Fabio Pradella

Ficou perfeito mesmo Piloto, muito obrigado,


se puder dar uma passadinha neste tópico ai de baixo...a tabela é aquela convenio que você já tem.


http://maximoaccess.forumeiros.com/t12628-somar-um-dia-completo-de-registros

O Fórum agradece o retorno.