[Resolvido]Caixa de Combinação carrega formulário usando Filter e Like

OLá a todos.
Estou com uma nova duvida
Tenho uma caixa de combinação que uso em um formulário de serviços de clientes, que filtra o nome de clientes.O que está acontecendo é o seguinte
se estiver em um determinado serviço e clicar nessa caixa ela muda o nome do cliente, gostaria que ao abrir esse formulário essa caixa de combinação funcionasse da seguinte forma, que quando o formulario fosse aberto fique travada para não poder alterar o nome do cliente do serviço, e sim se quizer lançar um novo serviço ai sim clico e filtro o cliente clicando na caixa de combinação e fixando ele no novo registro.

Espero ter explicado, obrigado Amanda

Bom dia;

Faça o teste no evento VBA do currente no seu formulario;

Private Sub Form_Current()
    If Me.NewRecord Then
       Me.SuaCombo.Enabled = True
       Else
       Me.SuaCombo.Enabled = False
       End If
End Sub

OLá JPaulo, desculpe não ter dado um retorno antes pois tive de viajar.
Vi sua sugestão, é quase isso, gostaria se tivesse jeito que ao abrir o formulario, essa combo por exemplo funcionasse como um filtro dos serviços de cada cliente. por exemplo se o cliente João tivesse três numeros de serviços ela me mostraria todos os serviços relacionados referente a esse cliente, não permitindo que se estivesse nesse cliente com o form aberto não aceitar a troca de cliente para esse numero de serviço, por que as vezes estou num derteminado cliente e clico para ver outro cliente e acabo trocando acidentamente o nome do cliente do numero de serviço ativo. e só liberasse a mudança do nome do cliente somente se for um regisro novo e também se possivel na legenda do formulario aparecesse o nome do cliente.
Obrigada novamente Amanda

Ola Amanda,

No Access quase tudo é possivel.

Para a ajudar em concreto, agradecia que anexe aqui parte do seu banco ou simplesmente um pequeno exemplo envolvendo esse form.

Fiz como pediu e estou enviando o bd somente com o formulario e com as explicações do que estou tentando fazer, se puder dar mais essa ajuda, ficarei muito grata, eu apaguei todas as macros, deu um erro mas da para entender espero é só ir ignorando os erros.
Obrigada novamente Amanda

Bom dia Amanda;

Como a sua combo está vinculada a um campo da tabela, sugiro desta forma;

Oi JPaulo bom dia e a todos os demais membros do forum também muito bom dia.
Vi o exemplo que enviou, ja ficou excelente mas se tivesse como fazer mais uma alteração para poder funcionar do jeito que estou precisando, fiz uma marcação no formulário em vermelho se puder ajudar novamente, desde já agradeço.
Atenciosamente Amanda

https://dl.dropboxusercontent.com/u/90217826/Clientes_OLD.zip

Ola Amanda tipo assim.
Na parte da combo creio que o Mestre JP ja fez.

olá Kainan, muito obrigada pela ajuda.

É quase isso, eu tinha chegado desse modo, mas é o seguinte no campo QtdMt do formulario Serviço tem que ter a soma total das areas dos comodos do sub formulario detalhe do serviço.

Eu coloquei um novo arquivo o Clientes_OLDII, fica mais fácil para entender e também se possivel tem mais uma alteração na combo ta tudo explicado lá
Obrigada novamente Amanda

Olha eu aqui de novo;

Como se trata de campos calculados, tem de ser com uma consulta e um pequeno DLookup;

Veja o simples;

Oi JPaulo, ficou perfeito.
A respeito da combo tem como fazer como mencionei no form ou não iria funcionar assim do jeito que mencionei no exemplo Clientes_OLDII

Obrigada novamente Amanda

Como lhe disse na mensagem Nº6, não dá como pretende, porque a sua combo faz parte da sua tabela e tem dados do registro da propria tabela, somente como lhe fiz, com uma combo desvinculada para filtrar.

JPaulo só mais uma duvida tem como ir atualizando em tempo real o campo QtdMt conforme for incluindo ou alterando os campos no formulario detalhes do serviços

Mas assim mesmo ficou excelente muito obrigado a você e a todos que comtribuem para tirar a duvida de nós principiantes
Abraço Amanda

Obrigada pelo retorno o forum agradece.

JPaulo só mais uma duvida tem como ir atualizando em tempo real o campo QtdMt conforme for incluindo ou alterando os campos no formulario detalhes do serviços

Claro que sim;

JPaulo está dando um erro quando tento lançar um cliente novo ou quando vai navegando em um cliente que não possue registros no formulario de detalhes de serviço.

Erro é esse:

Erro em temp de execução '3075':

Erro de sintaxe (operador faltando) na expressão de consulta
'codCliente='.

Nada que um On Error Resume Next não resolva;

Vou testar mais tarde pois estou indo almoçar, tenho certeza que ficou ótimo
Obrigada Amanda

Valew, bom almoço.

Bom dia a todos, JPaulo ficou excelente obrigada.

Fico feliz,

Obrigada pelo retorno o forum agradece.

Olá boa noite a todos, estou com mais um problema o meu patrão pediu para eu colocar mais um campo neste exemplo que JPaulo fez para mim, pois precisariamos saber quanto ficaria o custo de cada cômodo, mais ou menos como se fosse um sub total, então acrescentei o campo que necessito no sub formulario e coloquei uma explicação se puderem me ajudar, puxar o valor de um formulario para um sub formulario, não é minha area, pois o que sei aprendi aqui. Estou anexando o bd que me foi enviado

Preciso multiplicar os campos que coloquei fundo em vermelho e o resultado no que está em amarelo

Desde já agradeço a todos pela coloboração.
Atenciosamente Amanda

Ola Amanda bom dia !

A formula é esta na origem da caixa;

=Nz([txtArea]*[Forms]![FrmServiço]![Valor];0)

Veja;

Oi JPaulo
Muito obrigado, era isso mesmo


Obrigada novamente, fica com Deus e ótimo fim de semana, a você e a todos do forum.



Eu cliquei em resolvido mas nada aconteceu, tópico resolvido.

Atenciosamente Amanda

Obrigada pelo retorno o forum agradece.

Olá amigos boa tarde a todos, a mais de um ano atras o mestre JPaulo me ajudou com este exemplo, na época fiz para poder consolidar as medidas e controlar melhor serviços. Agora estou necessitando que um campo faça a soma dos rodapés de cada comodo e vai acumulando e no final da ultima vou ter o total de todos os comodos em quantidade linear. vou anexar o bd para os amigos poder entender melhor.
Obrigada Amandaalves

esqueci de tirar o resolvido

Bom dia a todos, nehum dos amigos não teria uma luz para mim?

OLá fiz um exemplo com ma foto do que necessito, obrigada Amandaalves

Segue o arquivo

Olá bom dia !

Verifique por favor se é o pretendido;

Oi JPaulo, bom dia e obigada pela ajuda.
Baixei e testei, daria para mudar uma coisa ai ficará do jeito que necessito, fiz umas anotações no campo observação referente aos valores que dará no campo TotalComodo, e coloquei o resultado que terá que dar no campo xtQtdRodape, coloquei tres casas decimais depois da virgula pois tem cliente que manda com duas e outros com três casas depois da virgula.

Navegue até o registro numero 3 do cliente Wagner andrade que entenderá.

Obrigada novamente Amandaalves

A formula está na consulta "qryDetalheServiço".

O problema é estarmos a trabalhar com Texto em vez de numerico com decimais.

Olá JPaulo, obrigada pela força ao sr Dilson obrigada por mudar o nome para poder ficar mais fácil para procurar.

Amigo JPaulo, poder ficar a vontade para mudar para numerico o campo texto para poder resolver, confio no seu trabalho sei que o precisar de ser alterado para o correto funcionamento , será feito.

Obrigada Amandaalves

Ola;

Alterado.

O seu subform agora é alimentado pela consulta "qryDetalheServiço".

Deixei apenas alguns registos para ver como funciona;

Bom dia JPaulo, acabei de baixar, pelo que vi ficou excelente, mais a tarde terei que fazer alguns lançamentos e vou poder falar melhor, mas de anti mão ficou excelente tenho certeza, só uma pergunta não tem nada haver com esse tópico, tenho um formulário, e quanto altero alguma coisa ele aumenta de tamanho, sendo que a alteração que fiz não alterei em nada o seu tamanho, o que acontece?

Mais uma vez muito obrigada e volto para finalizar este tópico.

Atenciosamente Amandaalves

Olá JPaulo e a todos do forum boa tarde.

Fiz varios lançamentos e ficou perfeito, vou encerrar novamente o tópico, qualquer coisa eu reabro

Mais uma vez muito obrigada

Atenciosamente Amandaalves

Obrigada pelo retorno o fórum agradece.