[Resolvido]Adaptar no Via Vida

https://dl.dropbox.com/u/90217826/SysOS.rar

Boas Piloto,bom dia,quando puder me responder sobre nossa adaptação, o problema do relatório da OS ja resolvi, agora é nos campos estado e cidade do cadastro de cliente,sempre que clico n compo pede para inserir valor parâmetro,veja ai.
cumprimentos.

Qual form... seja mais claro por gentileza...

Como ja disse, a do cadastro de clientes do via vida,campos estado e cidade,quando clico,pede para inserir valor parâmetro.

Abra a consulta qryFiltra2 em modo Design

Nela existem 3 campos, observe que nos tres está assim:

Expr1: Estado
Expr2: Municipio
Expr3: Cidade


Exclua o prefixo Expr1, 2 e 3 deixando apenas

Estado
Municipio
Cidade


Salve


Apenas isso.


Cumprimentos.

Perfeito mestre funcionou direitinho.Agora só mais uma coisa para terminar essa lida.No formulario Dial-Ordens no campo nome do cliente essa combo não esta funcionando e o botão abrir registros também não esta,é por ali que da pra ver quando as OS foram baixadas entende.

Abra o form em modo design, clique na combo, em propriedades, dados, Origem da linha:

SELECT DISTINCTROW [Tab Ordem].Código, [Tab Ordem].Ordem, tbl_Clientes.strNome, [Tab Ordem].ID_Cliente, [Tab Ordem].Endereco, [Tab Ordem].Cidade, [Tab Ordem].Fone, [Tab Ordem].Aparelho, [Tab Ordem].Marca, [Tab Ordem].Modelo, [Tab Ordem].Defeito, [Tab Ordem].Emissao, [Tab Ordem].Prometido, [Tab Ordem].rbaixa
FROM tbl_Clientes LEFT JOIN [Tab Ordem] ON tbl_Clientes.Matricula = [Tab Ordem].ID_Cliente
WHERE ((([Tab Ordem].Código) Is Not Null))
ORDER BY [Tab Ordem].ID_Cliente;



e no botão:

Private Sub Comando22_Click()
On Error GoTo Err_Comando22_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "Form Ordem"

stLinkCriteria = "[Código]=" & Me!Combinação20.Column(0)
DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Comando22_Click:
Exit Sub

Err_Comando22_Click:
MsgBox err.Description
Resume Exit_Comando22_Click

End Sub


Cumprimentos.

Piloto fiz como disse,só que na combo ao inves de aparecer o nome do cliente aparece o código do cliente,ai da erro de sintaxe e não abre.No botão abrir registros que é as OS com baixa sim ou não, onde coloco esses códigos.

Nas propriedades, Formato, Largura das colunas:

0cm;0cm;11cm;0cm;0cm


Cumprimentos.

****

Piloto no formuláio Dial-Ordens,ordens com baixa sim ou não, cada vez que clico pede para inserir valor parâmetro porque?

Boa tarde.

Clica onde?

Seja mais específico...

Cumprimentos.

Piloto,só pude te responder agora, tive que sair.É o seguinte, no formulário Dial-Ordens ali onde esta escrito ordens com baixa, tem uma combo onde coloco sim ou não,quando clico no botão abrir registros vem uma mensagem inserir valor do parâmetro,depois em baixo escrito:Con Ordem_grade.Nome, se clico outra vez ai abre normal outro formulário.

No form Ordem grade, propriedades, aba Dados
Fonte de registro:

SELECT [Tab Ordem].Código, [Tab Ordem].Ordem, tbl_Clientes.strNome, [Tab Ordem].Endereco, [Tab Ordem].Cidade, [Tab Ordem].Fone, [Tab Ordem].Aparelho, [Tab Ordem].Marca, [Tab Ordem].Modelo, [Tab Ordem].Defeito, [Tab Ordem].Emissao, [Tab Ordem].Prometido, [Tab Ordem].rbaixa
FROM tbl_Clientes LEFT JOIN [Tab Ordem] ON tbl_Clientes.Matricula = [Tab Ordem].ID_Cliente
WHERE ((([Tab Ordem].rbaixa)=[forms]![Dial_Ordens]![baixa]));

e na caixa texto onde vai o nome substitua nome por StrNome



Cumprimentos.

https://dl.dropbox.com/u/90217826/SysOS.rar

Boa tarde mestre, realmente sabes das coisas, tudo certinho,só queria se não for pedir demais, no Form Ordem colocar do lado, a lista dos clientes,como esta no cadastro de clientes,não sei se isso é possivel, to mandando o bd para ver se o mestre faz isso.

Obrigado.muito bom!

MAs nesta lista quer listas apenas os clientes com ordens efetuadas ou todos os clientes?

E para que deseja essa lista?

Isso mestre, eu quero a lista dos clientes com ordens efetuadas,para futuras consultas entende.

futuras consultas a que?

ao clicar da listbox ir para o registro no form?

É isso mesmo,ao clicar da listbox ir para o registro do formulário.

Amanha amigão...
Até lá!

Cumprimentos.

Ok mestre até amanhã.

Piloto eu tive analizando nossa ordem de servisso e é assim,é melhor se der de fazer no mesmo formulário Form Ordem,colocar uma combo, que ao digitase o nome do cliente,aparecesse logo a baixo a relação do(s) aparelhos desse cliente com data de entrada data saida e valor do conserto,seria possivel?

Obrigado e desculpa se to pedindo muito.

Seja mais claro...

Cumprimentos.

https://dl.dropbox.com/u/90217826/SysOS.rar

Veja o bd,no Form Ordem quero ao lado ou em outro lugar, talvez uma listbox ou relatório, que ao digitar o nome do cliente dessa OS, aparecesse todos os aparelhos desse cliente que chegou para conserto,com data de entrada,data de saida e valor do conserto.Veja se é possivel.
cumprimentos.

Em qual tabela estão estas informações?


Cumprimentos.

Bom dia mestre,tudo bem.

Estão na Tab Ordem e o valor esta na talela Tab Ordem_tab,esse valor voce veja se da pra buscar nesta outra tabela ou por na mesma como achar melhor.
Cumprrimentos

https://dl.dropbox.com/u/26441349/SysOS.rar

O BE tem que ser este, pois tive que relacionar as tabelas Ordem e ordemTab

Cumprimentos;

Exelente mestre é assim como queria,agora como faço para somar as OS prontas com seus valores.E também gostaria muito de saber como fez essa Listbox com o lugar para digitar o nome do cliente passo a passo,quero aprender fazer isso,é claro quando tiver tempo.
Parabéns mestre.

Para aprender mais você deve observar o Objeto e os passos envolvidos... ABra a list em modo design...

Observe que tem um criterio no campo StrNome... Que referencia a caixa texto..

Nos eventos Ao Alterar e Apos atualizar... observe que ao digitar o código faz um recalc e um requery na list...

Basta uma obsrvação criteriosa que ira entender..


Quanto a somar OS...

Por gentileza... sempre que tratar um assunto especifique os objetos envolvidos.. e o que pretende com isso.


Cumprimentos.

Obrigado mestre,a soma é nesta ultima listbox que fez,onde diz SomadeRvalor eu quero o total que apareça o total final de todas as OS entende.

Para isto tem que utilizar uma função que percorre os registros da listBox, somando estes valores...


Cole esta função no Módulo do Form:

Function SomaColuna(obj As Control, iCol As Integer) As Double
On Error Resume Next
Dim OldCol As Integer
Dim vTotal As Double

OldCol = obj.BoundColumn
obj.BoundColumn = iCol
For X = 0 To obj.ListCount - 1
vTotal = vTotal + obj.ItemData(X)
Next

obj.BoundColumn = OldCol
SomaColuna = vTotal
End Function


- Crie uma caixa Texto e nomeeie como txtValorTot

Em eventos... ao carregar do form:
Private Sub Form_Load()
Me.txtValorTot = Format(SomaColuna(Me.lstOrdem, 6), "#,##0.00")
End Sub[b]


E no eventos apos atualizar da caixa texto onde se digita o nome:


Private Sub txtBusca_AfterUpdate()
Me.lstOrdem.Requery
Me.txtValorTot = Format(SomaColuna(Me.lstOrdem, 6), "#,##0.00")
End Sub


Cumprimentos.

Mestre não me chame de inteligente rsrsrsr.. mas não consigui,se possivel faz isso pramim e me mande,só falta esse detalhe para encerrar.
obs;não fique bravo ta.

Não to conseguindo,sou muito fraco nestes códigos.

https://dl.dropbox.com/u/26441349/SysOS.rar

Cumprimesntos.

Muito bem mestre,tudo funcionando direitinho,que seria da gente sem essas pessoas que dão o seu tempo em ajudar e ensinar os outros, muito obrigado por tudo.
Agora vou personalisar o Bd a meu gosto, e vou dispor para quem presizar.
Muito obrigado mestre e fica com Deus.

Bem... Só faltou o resolvido no tópico...

Desta vez eu Coloco.

Ao concluir.. agradeceriamos postar o exemplo nos repositórios, antes porém compile o sistema para verificar erros de códigos.
Após isso.. Poste.

Abraços.

Resolvido.

O Fórum agradece o retorno.

Piloto,kaynan>
parabens pelo desempenho,e pela paciencia de Jò do piloto.
eu e acredito que todo o forum aguarda,a disponibilizaçao do via vida completo è logico se for possivel.
windpws 7 e ofice 2003. valeu mestre piloto.

Boa noite grisalho, eu arrumei os objetos conforme o Kaynnan solicitou, porem não apliquei no formulario de menu (Principal) oobjeos do sistema de OS, o deixei para ele fazer... Espero que ele assim que possivel poste o mesmo.

Bem.. de Minha parte está o modelo completo, apenas sem os icones do sistema de Os no Formulário principal.

https://dl.dropbox.com/u/26441349/SysOS.rar


Cumprimentos.

mestre,boa tarde.
ainda estou usando o ofice 2003,rsrs
se tiver um tempinho...


desde ja agradeço.

https://dl.dropbox.com/u/26441349/SysOS.rar


Ambos..

Cumprimentos.

Boa tarde,Piloto,Grisalho postei o Via-vida no repositório,fiz mais algumas modificações mas tudo funcionando direitinho esta em 2007 ou 2010,logo posto em 2003. Cumprimentos a todos.

Piloto,boa noite
agradeço por ter atendido minha solicitaçao tão rapido, mas nao pude verificar a nao ser agora, infelizmente du erros ,um deles quando ao abrir o bd aparece uma mensagem algo como (intrusted), outros como caminho invalido para o be.ja percebi esses erros normalmente quando se coverte um bd 2007 para 2003.se tiver um tempo e precisar de detalhes....

grato.

Boa noite Grisalho,esta na hora de migrar para o access 2007 ou 2010,tu vais ver que é muito melhor,com mais recursos pra gente trabalhar.No repositório postei o via-vida-OS com mais recursos, só que esta em 2007 ou 2010.

Abçs.

Infelizmente não disponho do 2003 para testar ou mesmo substituir codigos que o mesmo aceite...

Creio que o 2007 e uma boa opção amigão.

Cumprimentos.

Mestre piloto,kaynan
boa tarde a voces e aos demais mestres e membros do forum.
so estou retornando agora pois tive problemas com o PC.
Conforme recomendaçao agora estou usando o ofice 2007,e eswtou adaptando o via-vida para meu uso como nao tenho
muitos recursos tecnicos, apaenas estou renomeando formularios, relatorios ,rsrs.
por isso que gosto do access,e deste forum....



grato a todos

O Fórum agradece o retorno.

Bom trabalho.

Valeu Grisalo,qualquer dúvida da um grito.
Bom trabalho.