[Resolvido]Consultar determinado serviço

Tenho uma tab onde existe 4 campos com caixa de combinção ,e dentro de cada ,caixa de combinação,uma relçãção com 20 diferentes serviços.Gostaria de fazer uma consulta para exibir alguns serviços ,como fazer essa consulta para exibir ,as vezes o mesmo serviço contidos nos quatro campo da tabela,obrigado

Boa noite, Kadhu

Não entendi

Quero criar um consulta para a exibição de determinado serviço !!!onde numa tabela eu tenho 4 campos e dentro desses campos tem uma lista com varios serviços,ok queria uma consulta para esses serviços que estão em 4 campos da tabela ok,ex :
eu digito na caixa de consulta um serviço tal:ai é exibido o serviço digitado

Procure no fórum, por combo em cascata, por exemplo

Boa noite, com permissão Alexandre Neves

Veja se esse exemplo, pode lhe ajudar, lembrando que ele é apenas um exemplo. A adaptação, o estudo tem que ser feito por ti.

Abraços.

Silvio

Obrigado ,vou ver se entendo!!!

Eu entendi seu modelo mas ,não é bem o que preciso,!!
eu preciso de uma consulta onde eu digite um nome para me exibir um relatorio,e que essa consulta busque os resultado em todos os campos dentro da minha tabela,ex;
busque todos os resultados ao digitar corte,
""" " " " " " escova,etc.
E tbm se tem como me exibir em modo de grafico todos os serviços que estão dentro desta tabela .obrigado

Khadu, essa tabela vendas está muito confusa.....vou ter que mexer um pouco nela, para ficar mais sintética.
Há itens repetidos, sem necessidade.

Já coloco ele de novo aqui.

Abraços.

Silvio

qual mudança vc faria ,pois ,uso ela pra fazer lactos ,de um unico cliente ,;ex
o cliente faz 4 serviços com valores diferentes,dai eu preciso de 4 campos para fazer os lctos ,entendeu

Silvio estou aguandando ok .!!

Sinceramente, por não ter o teu banco completo, ficou meio estranho....mas o caminho para isso... esta feito.

Eu faria bem diferente de você, a tua tabela vendas, esta muito esquisita mesmo ! Há vários campos repetidos que poderiam estar em outra tabela ( servicos por exemplo, onde você poderia ter todos eles, inclusive com o valor de cada tipo ). Depois era apenas criar um form com subform.

Mas cada um sabe o que faz.

Segue o exemplo, com filtro aplicado na caixa de texto, que esta no frm vendas !

Bons estudos para ti.

Silvio

Nossa ,brigado pela dica!! ,é que sou novo no access,qq sugestão é muito bem vinda ,vou estudar seu exmplo!!!eu gostaria de fazer como vc mencionou !!
Dei uma olhada no seu exemplo ,mas ainda não é isso!me desculpe
eu queria digitar no campo pesquisa ,ex:corte e a data do mes (tipo do dia 1 ao dia 30 ,ai o aplicativo me mostrar a quantidade de corte feita dentro desse período,.
Eu teria que criar uma tabela serviços para ficar mais facil de ter essa funcionabibidade?.mas se eu fizer essa mudança vou perder todos os dados ja lançados ?me da uma dica por favor, o que seria mais aconselhável.Posso te mandar meu BD ?Pra me dar sua opinião sobre o que fazer .
Eis o BD

Olá, boa noite....

Manda o banco para eu dar um olhada nele.

Mas te adianto que somente vou dar uma olhada nele amanhã, pois agora a noite tenho compromisso pessoal.

Abraços.

Silvio

Khadu...boa tarde....

Já estou a mexer com o teu banco.....estou fazendo algumas alterações que facilitarão a vida...

Creio que amanhã a tarde ele estará pronto para você dar uma olhada nele.

Abraços.

Silvio

Muito obrigado!!!!desculpe amolação,tentei fazer umas mudanças aqui numa copia do BD ,mas ai no campo onde eu vinculei a tabela serviços da um erro,fiz uma tabela com dois campos codigo e serviço,não rolou ,dai fiz outra como teste ,com 4 campos sendo codigo,corte,escova,hidratação,mas ai no frm tbm deu um erro ,pq isso acontece ,poque ja ha registros na tabela ?vou esperar o seu modelo .obrigado

Qual a versão do Access que estas a utilizar ?

eu uso aki na minha maquina o access 2007!!!

Ótimo....

estou te mandando ele...não está pronto ainda...falta muita coisa para terminar..mas, vai dando uma olhada no projeto.

Legal !!!vou ver !Nuossa aquela minha pergunta do titulo da ms ,gerou todo esse trabalho ,desculpe mesmo ,manda brasa ai .Do jeito que ele ta ,posso ir fazendo lactos?obrigado

vai postando tuas duvidas.....que na medida do possível vou te respondendo.

Legal !!!vou ver !Nuossa aquela minha pergunta do titulo da ms ,gerou todo esse trabalho ,desculpe mesmo ,manda brasa ai .
Do jeito que ele ta ,posso ir fazendo lactos?obrigado

te aconselho a não fazer isso ainda....
ele esta em fase de construção......
vai brincando com ele....testando...mexendo..se familiarizando com ele.

ok ,obrigado

Bom dia Khadu.

De uma olhada no exemplo que eu fiz....veja se ele te atende. Ele está aberto para você mexer nele a vontade.

Qualquer coisa estou por aqui.

Abraços.

Silvio

Bom dia Silvio vou dar uma olhada ,muito obrigado !!!!
Pq quando eu clico dentro do menu (Grafico mensal serviços),e digito a data ini e final ,abre-se o frm Venda Consulta Geralgrafico1?

boa tarde.....


É só clicar para gerar o gráfico, que fica na parte inferior da tela, lado direito.

silvio pq qd ,eu clico em consulta serviços no menu,abre-se o frm consulta por serviço 1?abre o frm ?pq?E não entendi pq tem tabela Servico e tabela Servico1,subvenda,venda,ta meio confuso a tab venda seria a mesma que Tab_Lc?obrigado

Boa noite...

Tudo que esta com o numero um na frente foi criado por mim.

Para realizar a venda( tblvenda) tem um formulário, e para adicionar um serviço qualquer temos um subformulário (tabsubvendas).

Isso serve para você, cadastrar todas vendas que você irá fazer durante o mês.

Ambas são vinculadas,e através delas, que fazemos a consulta( venda consulta1) de quando foi realizado no mês, por serviço prestado e por data.

Eu não mexi na sua tabela e nem no seu formulário.

Em servico1, coloquei alguns preços, pois os mesmos, tem incidência direta, através de uma combo, na tabsubvendas.

Essa mesma tabela, você pode cadastrar qualquer valor de serviço prestado aos teus clientes.

Qualquer coisa, agora estou por aqui...

Abraços.

Silvio

Entaum ,eu clico no frm venda,vem um caixa de msg dizendo entre com a data do seriços prestado ,clico em ok,dai ,abre-se o frm venda,dai eu clico no campo data ,da uma mesg VB "erro em tempo de execução'2450'"???????em qq campo que eu digite da o mesmo erro (no frm VENDA)?
Qual o frm eu uso para adicionar uma venda ja realizada,como incluir esse dados,não to consiguindo seria o frm vendas ?

Primeiro.......clicar em clientes, na tela inicial.

Segundo........selecionar qualquer cliente, através da combo (Buscar Cliente ), que esta a direita..na parte de cima, ao lado do botão excluir.

Terceiro.......depois de selecionar o cliente, clicar em venda.

Quarto.........em venda...entrar com a data em que você esta prestando o serviço ( venda ). Os campos do cliente, serão preenchido automaticamente.

Quinto..........no subformulário, escolha os serviços que serão prestados, através da combo (idServico), os demais campos relativos a esse serviço ( descrição e preço ) serão preenchido automaticamente.

Sexto...........para encerrar a venda, não esquecer de digitar o valor total da venda no campo...Valor Total.

Sétimo..........Salvar o mesmo.

Oitavo...para realizar outra venda, fechar esse formulário....ir para o Formulário Clientes.

RS !PUTZ BRIGADO!!

De nada.

Para alterar os preços dos serviços prestados....

a- abrir o formulário serviço.
b- escolha um serviço qualquer.
c- clicar em alterar
d- faça as alterações necessárias.
e- salvar.

obs. devido a correria aqui, esqueci de colocar um atalho na tela inicial para esse formulário. Terás que abrir ele no modo estrutura do projeto.

ok,ENTENDI ,BLZ HEIM!!!AGORA VM SUPOR QUE EU QUEIRA CONTRATAR UMA MANICURE E OUTRO CABELEIREIRO(A) ,TERIA QUE CRIAR UMA NOVA TAB COM NOME FUNCIONARIO ?SERIA UM PROCEDIMENTO SIMPLES OU TERIA QUE MUDAR TODO MEU BD?OBRIGADO e a respeito dos meus dados ja cadastrados na tab de clientes ,tem como tranferilos ou terei que digita - los um a um ? Outra coisa no exmplo acima Serviço ,vm supor que um serviço (aplicação) tenha 3 ou 4 preços diferentes ,como incluir esses valores ?
Qual o comando usar para o frm de clientes não aceitar(salvar) o campo nome em branco ,me dar um alerta preencha o campo nome antes de salvar(so aceitar salvar se o campo estiver preenchido),pois fiz um teste aki e o campo nome aceita salvar estando em branco!obrigado
Consegui criar um atalho no menu para incluir serviço!!!!

a- se houver funcionários....criar tabela+formulário.

b- para criar mais de um tipo de serviço, cadastrar com nomes diferentes. Pode-se criar um campo na tabela serviço, tipo descrição de serviço e adicioná-lo ao formulário. Não esquecer de atualizar a consulta com esse campo

c- Para não salvar ou avisar que há campos em branco. Na linha de comando do botão salvar (VBA)


If IsNull(Me.Nome) Or IsNull(Me.E_mail) Or IsNull(Me.Aniversario) Or IsNull(Me.Telefone) Or IsNull(Me.Celular) Or IsNull(Me.Endereço) Or IsNull(Me.Bairro) Then

MsgBox "O registro está incompleto e será excluído!",vbinformation,"AVISO"

DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70

Else



If MsgBox(" Deseja salvar esse cadastro ?", vbOKCancel + vbDefaultButton1 + vbInformation, "AVISO") = vbOK Then
DoCmd.Save ' salva o registro
DoCmd.RunCommand acCmdRefresh ' atualiza a tabela e o formulario
MsgBox " Cadastro salvo com sucesso", vbOKOnly, " AVISO"
DoCmd.GoToRecord , , acNewRec
End If
End If

eu colo esse codigo no evento do botao salvar (ao clicar) ? :
Na outra questão ,não seria um tipo de serviço!, seria adicionar valores aos campos de serviços ja existentes ex: corte 10,20,30 escova 15,25,35 e assim por diante (valores aos campos ja existentes)tem como ou devo fazer o que vc colocou na msg anterior?obrigado

Bom dia...

Para cadastrar os serviços

a- Entrar no frm serviço e alterar os que lá se encontram.
a1- selecionar o serviço através da combo( buscar serviço ) e depois clicar em alterar.
a2- para acrescentar um novo serviço, clicar em novo.

Para o código funcionar basta copiar esse que está na mensagem anterior e colar ele no que está no programa. Evento ao clicar do botão Salvar.

Bom dia ,preciso de um codigo para o campo nome não permitir salvar em branco,no frm clientes.obrigado,pois estudei aquele que vc me passou e ,se eu não tiver todos os dados do cliente ele não vai ser funcional pra min.obrigado

If IsNull(Me.Nome) Or IsNull(Me.E_mail) Or IsNull(Me.Aniversario) Or IsNull(Me.Telefone) Or IsNull(Me.Celular) Or IsNull(Me.Endereço) Or IsNull(Me.Bairro) Then.......

Retire o que esta em vermelho do código !

Oi Silvio fazendo desta forma ,com o campo nome em branco ,ele fala que vai excluir ,ok,mas está sempre acrescentando um novo cod?é assim mesmo por ex: eu exclui o cod 160 dai vou adicionar um novo ele abre com 161 ,e não retorna no 160 ,está certo ?obrigado
Na questão dos valores dos serviços ,eu teria que criar um mesmo nome de serviço ja existente ,mas com um valor diferente.(para ter um mesmo serviço com valores diferentes ex:valor x,y,z);
Outra coisa Silvio ,eu to la no frm venda,dai fiz um lcto ,clico em salvar o registro é salvo,porem,o frm não fecha ,vm supor que eu tenha varios lactos no mesmo dia ,pra eu não ter que fechar o frm vendas ,ir no cadastro de clientes,digitar na combo o nome do cliente.....teria como fazer um novo regsitro pelo frm de vendas ,mudando apenas o nome do cliente na combo nome,mas ai o id cleinte não muda ,o que seria mais correto (fechar o frm venda e ir desde o começo para fazer um novo lacto ,ou minha colocalçao é viável e possível .?obrigado

Bom dia....

a- toda a venda ( prestação de serviço ) está vinculada ao idcliente,pois é a chave primária de tudo. É através desse ID, que gera todo o movimento em tua empresa, que gera a consulta de serviços prestados..etc..etc..

b- quanto ao frmcliente, pode ser mudado sim, para manter o número do código...aqui no fórum temos alguns exemplos para isso.

c- quanto ao frmvenda, ele está vinculado ao idcliente, como eu te disse acima.

d- para fechar o mesmo e voltar ao frmcliente basta acrescentar uma linha ao final do código salvar que está no botão tipo

docmd.openform"cliente"

e- quanto ao serviço( escovas, luzes...etc...etc..) aconselho-te que:
1- entre com o nome do serviço de modo diferente, tipo escova1, escova2, escova3 ( isso fica ao teu critério o nome do mesmo). Caso queria, acrescente um campo descrição do serviço prestado na tabela serviço1 e importe-o, acrescente-o no frmserviço.
2- altere o preço conforme o nome do serviço prestado.
3- salve.

abraços.

Resolvido !!!!,não tem botão tipo ,é no botão salvar,entendi!!!!!!ao frm clientes se sobrepõe em cima do frm vendas ok,blz
Obs: se eu tirar esse cod do botão salvar do frm vendas ,vai dar algum erro no BD ,acho desnecessário ele!

MsgBox " Serviço salvo com sucesso", vbOKOnly, " AVISO"

Se você acha desnecessário...... manda ver...

Abraços.

Silvio

Mas gostaria de saber se dará algum erro no BD.obrigado

Não....não vai dar erro algum. Pode ficar tranquilo.

obrigado!!!

Redondinho ,valeu!!!!!

Desculpe digitei errado ,seria botão vendas e não em novo como havia digitado,silvio o frm venda ta abrindo preenchido ,como corrigir isso ?obrigado

Não sei....quais as correções que você fez ??

linha de comando botão novo ---> DoCmd.GoToRecord , , acNewRec

o comando está correto!!.não seria pq eu adicionei esse comando em negrito ?pois qd eu fecho o frm,ai em clico em vendas ele abre os campos para editá-los.pode ser esse oi erro ,ou não tem nada a ver ?

Private Sub bt_salvar_Click()
If MsgBox(" Deseja salvar esse serviço ?", vbOKCancel + vbDefaultButton1 + vbInformation, "AVISO") = vbOK Then
DoCmd.Save ' salva o registro
DoCmd.RunCommand acCmdRefresh ' atualiza a tabela e o formulario
MsgBox " Serviço salvo com sucesso", vbOKOnly, " AVISO"
DoCmd.OpenForm "cliente"
End If


End Sub

Bom Khadu....eu não estou entendo mais nada...


Você escreveu...."Bom dia silvio ,fiz algumas alterações ,e agora qd eu digito um cliente no campo nome do frm cliente e clico em novo ,o frm venda ta abrindo preenchido ,como corrigir isso ?obrigado

O código que você me passou está em cadastro de serviço !

Private Sub bt_salvar_Click()
If MsgBox(" Deseja salvar esse serviço ?", vbOKCancel + vbDefaultButton1 + vbInformation, "AVISO") = vbOK Then
DoCmd.Save ' salva o registro
DoCmd.RunCommand acCmdRefresh ' atualiza a tabela e o formulario
MsgBox " Serviço salvo com sucesso", vbOKOnly, " AVISO"
DoCmd.OpenForm "cliente"

Sinceramente, não estou a entender mais nada.