[Resolvido]Ajuda para recursos de minha planilha

Olá, Bom Dia!
Mais uma vez recorro a vocês do Fórum para conseguir uma brilhante Solução.
Estou desenvolvendo um Projeto e estou precisando arrumar os seguintes recurso do projeto que estou enviando compactada;

-peço que expliquem com detalhes pois, ainda estou engatinhando no access

Ao abrir Projeto ele abre o FmrHorasdeUsinagem; Digite um dos valores (420013, 404013 ou 402013) e click em "OK"

Bem aqui eu lanço as informações de horas de cada procedimento.
e no campo Totais embaixo faço a Soma destas horas.

1°Problema: Ao clicar no Bt "Relatório" do formulário
Quero que abra o Relatório "RltHorasdeUsinagem" com o filtro do Formulário, neste caso com o valor da caixa de texto "TxtOS1".
e inserir o valor dos totais de cada campo do Formulário.

2°Problema: Para calcular os totais de cada campo, com ajuda de vocês do Fórum, inseri um comando que calcula ao abrir Form. e após o campo perder foco. Porém ele nem sempre que saio do campo esta atualizando.
-neste problema peço que me ajudem a analisar o código e ver também se consigo reduzi-lo, afinal sei que muitas vezes faço um código enorme e no final das contas 2 linhas resolve o meu problema. rsrsrsrs

3° Problema: Quero pode Digitar
"30" e o campo atualizar para "0:30"    
"1020" e o campo atualizar para "10:20"
"12030" e o campo atualizar para "120:30"
assim por diante.




Agradeço a Ajuda de vocês do Fórum, e espero logo poder a contribuir também a final estou estudando muito sobre o assunto.

Olá Edgardido,

Estude a função Format no Ajuda do Access (pressione a tecla F1) na segunda dúvida.


Se seu código do botão possuir naturalmente uma InputBox.

Dim strPergunta As String

strPergunta = Format("Digite a hora: ","Pergunta"), "00:00")

Me.NomedoCampo = strpergunta

Ou o seu campo já possuir uma máscara de entrada com este formato. Modo Estrutura, propriedade do campo:

Máscara de entrada 00:00


No início. Entendo que seja um formulário tabular.

Dentro do ambiente de código de seu formulário, em Form_Open():

Dim i As Integer
Dim strValor As Double

i = Forms!NomedoForm!Codigo
For i = 1 To 3
strValor = Format(InputBox("Digite a hora:","Informação"),"00:00:00")

Next i

Na Fonte de controle de seu campo Total no rodapé do formulário inclua uma função que calcule as horas. Ou algo parecido.

=SuaFunção()

O Avelino tem um brilhante função que calcula as horas.

http://www.usandoaccess.com.br/tutoriais/tuto49.asp?id=1#inicio

Olá, agradeço sua ajuda.
Com tudo;
-1°Problema: ?
-2°Problema:Pode me explicar mais detalhadamente o assunto  não consegui entender. Lembrem-se das regras do fórum "tenham paciência " kkkkkk
-3°Problema: na textbox onde insiro o valor de OS: (TxtOs1) eu coloquei formatação para que ela inseri-se a "barra", mas para os campos com formato de "00:00"  não consigo inserir  ":"  . O que estou tentando é "0\:00" ou #\:00 não está funcionando.

Fico no aguardo.
Desde já muito obrigado!

Olá Airton,

Como seu código é bastante extenso, não entendi onde você está tendo problemas. Por favor, destaque o código, sinalizando onde você está tendo problemas.

Tá, vamos começar pelo 1°Problema
que é o que eu estou precisando mais.

-Minha planilha tem mais 700.000 registros, para abrir o formulário com os registros que eu queria já consegui. Agora quero que, ao clicar no botão Relatório, abra o relatório filtrado apenas com os registro do Formulário que já esta filtrado pela caixa de texto (TxtOS1).

Obs: Me desculpe também achei que postei muitas duvidas da primeira vez.

Solução que encontrei para o 1°Primeiro: (Abrir Relatório com o mesmo filtro do Formulário)
Criei um botão "BtRelatorio", nele inseri no evento (Ao liberar mouse) o seguinte código;

Código:

Private Sub BtRelatorio_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
''Abre relatório filtrando pelo valor da caixa de texto TxtOS1
DoCmd.OpenReport "RltHorasdeUsinagem", acViewPreview, , "[OSH]=" & Me.TxtOS1

''Valor do campo Total do relatório = Campo Total do Formulário
Report_RltHorasdeUsinagem.TxtRltResultadoSubPrep = Me.TxtResultadoSubPrep
Report_RltHorasdeUsinagem.TxtRltResultadoSubFRESA = Me.TxtResultadoSubFRESA
Report_RltHorasdeUsinagem.TxtRltResultadoSubCNC = Me.TxtResultadoSubCNC
Report_RltHorasdeUsinagem.TxtRltResultadoSubCNCPORTAL = Me.TxtResultadoSubCNCPORTAL
Report_RltHorasdeUsinagem.TxtRltResultadoSubTORNO = Me.TxtResultadoSubTORNO
Report_RltHorasdeUsinagem.TxtRltResultadoSubTORNOCNC = Me.TxtResultadoSubTORNOCNC
Report_RltHorasdeUsinagem.TxtRltResultadoSubRETIFICAc = Me.TxtResultadoSubRETIFICAc
Report_RltHorasdeUsinagem.TxtRltResultadoSubRETIFICAp = Me.TxtResultadoSubRETIFICAp
Report_RltHorasdeUsinagem.TxtRltResultadoSubErFIO = Me.TxtResultadoSubErFIO
Report_RltHorasdeUsinagem.TxtRltResultadoSubErPENETRACAO = Me.TxtResultadoSubErPENETRACAO
End Sub

Caso alguém consiga resumir ou melhorar este código por favor não exite em me informar.

Olá Edgar,

1-Neste novo código o relatório mencionado não deverá estar aberto para funcionar?

No código inicial, algumas notas:

2 - Dim sSQL ''VARIAVEL COMANDO SQL           'Que tipo de variável é esta? Não deixe de especificar. Neste caso, esta variável é do tipo String.

3 - Vide item 2, primeira linha.

Dim Organiza        'VARIAVEL COMANDO SQL ORGANIZAR

Decidindo qual Tipo de Variável para Definir


Visual Studio 2008




Outras versões


1 de 1 pessoas classificaram isso como útil - Avalie este tópico

Quando você define uma variável, você deve decidir as seguintes características:

• Seu tipo de dados - que tipo de dados ela deve armazenar

• Seu tempo de vida - quanto tempo ela deve continuar existindo.

• Seu escopo - qual código pode referenciá-la sem qualificar seu nome

• Seu nível de acesso - qual código deve ter permissão para ler e escrever nisso.

4 - Formate na tabela o campo referente a hora do torno, fresa, etc. Você pode impor uma máscara de entrada também.

Fonte: http://msdn.microsoft.com/pt-br/library/7e13afyd(v=vs.90).aspx

Desculpa a demora!
Exatamente, o relatório não estará aberto,só deixarei disponível para abrir pelo formulário, mesmo porque se tentar abri-lo sem filtragem do formulário ele vai demorar dois anos para carregar todas as informações de todas as Ordens de Serviço.        

Quanto as informações que me passou sobre as variáveis, muito obrigado, verifiquei o conteúdo que me enviou e deixei o código assim.

Código:

Dim sSQL  As String ''VARIAVEL COMANDO SQL
sSQL = "SELECT CNS_OSPOS.OSH, CNS_OSPOS.POS, CNS_OSPOS.QTDE, CNS_OSPOS.POSICAO.DESCRICAO, CNS_OSPOS.MATERIAL.DESCRICAO, CNS_OSPOS.PREPARACAO, CNS_OSPOS.PREPARACAORET,CNS_OSPOS.DIMX,CNS_OSPOS.DIMY, CNS_OSPOS.DIMZ, CNS_OSPOS.Oxic, CNS_OSPOS.TT,HorasdeProcesso.PREP, HorasdeProcesso.PREPRET, HorasdeProcesso.FRESA, HorasdeProcesso.CNC,HorasdeProcesso.CNCPORTAL,HorasdeProcesso.Torno, HorasdeProcesso.TorCNC, HorasdeProcesso.RetPlana,HorasdeProcesso.RetCilindrica, HorasdeProcesso.ErFio, HorasdeProcesso.ErPen FROM CNS_OSPOS LEFT JOIN HorasdeProcesso ON (CNS_OSPOS.OSH = HorasdeProcesso.codOS) AND (CNS_OSPOS.POS = HorasdeProcesso.CodPos)WHERE (((CNS_OSPOS.OSH)="

Dim Os As Long ''VARIAVEL COMANDO SQL NUMERO DE CRITERIO
Os = TxtOS1.Value

Dim Organiza As String ''VARIAVEL COMANDO SQL ORGANIZAR
Organiza = ")) ORDER BY CNS_OSPOS.OSH, CNS_OSPOS.POS;"

Bem meu 1° problema já esta resolvido, se houver qualquer melhoria será bem vindo.Muito obrigado!

Vamos para o 2°Problema
Recalcular automático
com o auxilio do Fórum criei este Código.

Função no Modulo (mod_geral)

Código:

Public Function fncMinutos(Optional strCampo As String = "00:00") As Long
Dim k
k = Split(strCampo, ":")
fncMinutos = k(0) * 60 + k(1)
End Function

Ao clicar no botão (OK) que vai filtrar meus dados e fazer somatória dos campos

Código:

Private Sub BtOk_OS_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
'
'
'
''1á10 _Calcular Soma dos Campos ao abrir;
 ''1.Calculo - Prep
Dim rs As dao.Recordset
Dim SomaPrep As Long
Set rs = Me.RecordsetClone
rs.MoveFirst
Do While Not rs.EOF
    SomaPrep = SomaPrep + fncMinutos(Nz(rs!PREP, "00:00"))
    rs.MoveNext
Loop
rs.Close
Set rs = Nothing
Sub_Descricao!TxtTotalPrep = Int(SomaPrep / 60) & ":" & (SomaPrep - (Int(SomaPrep / 60) * 60))
 
 ''2.Calculo -Fresa
Dim SomaFresa As Long
Set rs = Me.RecordsetClone
rs.MoveFirst
Do While Not rs.EOF
    SomaFresa = SomaFresa + fncMinutos(Nz(rs!FRESA, "00:00"))
    rs.MoveNext
Loop
rs.Close
Set rs = Nothing
Sub_Descricao!txtTotalFresa = Int(SomaFresa / 60) & ":" & (SomaFresa - (Int(SomaFresa / 60) * 60))
 
  ''3.Calculo -CNC
Dim SomaCNC As Long
Set rs = Me.RecordsetClone
rs.MoveFirst
Do While Not rs.EOF
    SomaCNC = SomaCNC + fncMinutos(Nz(rs!CNC, "00:00"))
    rs.MoveNext
Loop
rs.Close
Set rs = Nothing
Sub_Descricao!TxtTotalCnc = Int(SomaCNC / 60) & ":" & (SomaCNC - (Int(SomaCNC / 60) * 60))

''4.Calculo - CNC PORTAL
Dim SomaCNCPORTAL As Long
Set rs = Me.RecordsetClone
rs.MoveFirst
Do While Not rs.EOF
    SomaCNCPORTAL = SomaCNCPORTAL + fncMinutos(Nz(rs!CNCPORTAL, "00:00"))
    rs.MoveNext
Loop
rs.Close
Set rs = Nothing
Sub_Descricao!TxtTotalCncPortal = Int(SomaCNCPORTAL / 60) & ":" & (SomaCNCPORTAL - (Int(SomaCNCPORTAL / 60) * 60))
 
  ''5.Calculo - TORNO
Dim SomaTORNO As Long
Set rs = Me.RecordsetClone
rs.MoveFirst
Do While Not rs.EOF
    SomaTORNO = SomaTORNO + fncMinutos(Nz(rs!Torno, "00:00"))
    rs.MoveNext
Loop
rs.Close
Set rs = Nothing
Sub_Descricao!TxtTotalTorno = Int(SomaTORNO / 60) & ":" & (SomaTORNO - (Int(SomaTORNO / 60) * 60))


''6.Calculo - TORNO CNC
Dim SomaTORNOCNC As Long
Set rs = Me.RecordsetClone
rs.MoveFirst
Do While Not rs.EOF
    SomaTORNOCNC = SomaTORNOCNC + fncMinutos(Nz(rs!TorCNC, "00:00"))
    rs.MoveNext
Loop
rs.Close
Set rs = Nothing
Sub_Descricao!TxtTotalTornoCnc = Int(SomaTORNOCNC / 60) & ":" & (SomaTORNOCNC - (Int(SomaTORNOCNC / 60) * 60))
 
  ''7.Calculo - RetPlana
Dim SomaRetPlana As Long
Set rs = Me.RecordsetClone
rs.MoveFirst
Do While Not rs.EOF
    SomaRetPlana = SomaRetPlana + fncMinutos(Nz(rs!RetPlana, "00:00"))
    rs.MoveNext
Loop
rs.Close
Set rs = Nothing
Sub_Descricao!TxtTotalRetificaP = Int(SomaRetPlana / 60) & ":" & (SomaRetPlana - (Int(SomaRetPlana / 60) * 60))

''8.Calculo - RetCilindrica
Dim SomaRetCilindrica As Long
Set rs = Me.RecordsetClone
rs.MoveFirst
Do While Not rs.EOF
    SomaRetCilindrica = SomaRetCilindrica + fncMinutos(Nz(rs!RetCilindrica, "00:00"))
    rs.MoveNext
Loop
rs.Close
Set rs = Nothing
Sub_Descricao!TxtTotalRetificaC = Int(SomaRetCilindrica / 60) & ":" & (SomaRetCilindrica - (Int(SomaRetCilindrica / 60) * 60))
 
  ''9.Calculo - Erosão a Fio
Dim SomaErFio As Long
Set rs = Me.RecordsetClone
rs.MoveFirst
Do While Not rs.EOF
    SomaErFio = SomaErFio + fncMinutos(Nz(rs!ErFio, "00:00"))
    rs.MoveNext
Loop
rs.Close
Set rs = Nothing
Sub_Descricao!TxtTotalErFio = Int(SomaErFio / 60) & ":" & (SomaErFio - (Int(SomaErFio / 60) * 60))

''10.Calculo - Erosão a Penetração
Dim SomaErPen As Long
Set rs = Me.RecordsetClone
rs.MoveFirst
Do While Not rs.EOF
    SomaErPen = SomaErPen + fncMinutos(Nz(rs!ErPen, "00:00"))
    rs.MoveNext
Loop
rs.Close
Set rs = Nothing
Sub_Descricao!TxtTotalErPen = Int(SomaErPen / 60) & ":" & (SomaErPen - (Int(SomaErPen / 60) * 60))


e no sub-Formulário inseri ao campo perder foco ele vai recalcular;

Código:

'Calculo ao perder foco no campo
''1.Calculo - Prep
Private Sub PREP_LostFocus()
Dim rs As dao.Recordset
Dim SomaPrep As Long
Set rs = Me.RecordsetClone
rs.MoveFirst
Do While Not rs.EOF
    SomaPrep = SomaPrep + fncMinutos(Nz(rs!PREP, "00:00"))
    rs.MoveNext
Loop
rs.Close
Set rs = Nothing
Me!TxtTotalPrep = Int(SomaPrep / 60) & ":" & (SomaPrep - (Int(SomaPrep / 60) * 60))
End Sub
''2.Calculo -Fresa
Public Sub Fresa_LostFocus()
Dim rs As dao.Recordset
Dim SomaFresa As Long
Set rs = Me.RecordsetClone
rs.MoveFirst
Do While Not rs.EOF
    SomaFresa = SomaFresa + fncMinutos(Nz(rs!FRESA, "00:00"))
    rs.MoveNext
Loop
rs.Close
Set rs = Nothing
Me!txtTotalFresa = Int(SomaFresa / 60) & ":" & (SomaFresa - (Int(SomaFresa / 60) * 60))
End Sub
''3.Calculo -CNC
Private Sub CNC_LostFocus()
Dim rs As dao.Recordset
Dim SomaCNC As Long
Set rs = Me.RecordsetClone
rs.MoveFirst
Do While Not rs.EOF
    SomaCNC = SomaCNC + fncMinutos(Nz(rs!CNC, "00:00"))
    rs.MoveNext
Loop
rs.Close
Set rs = Nothing
Me!TxtTotalCnc = Int(SomaCNC / 60) & ":" & (SomaCNC - (Int(SomaCNC / 60) * 60))
End Sub
''4.Calculo - CNC PORTAL
Private Sub CNCPORTAL_LostFocus()
Dim rs As dao.Recordset
Dim SomaCNCPORTAL As Long
Set rs = Me.RecordsetClone
rs.MoveFirst
Do While Not rs.EOF
    SomaCNCPORTAL = SomaCNCPORTAL + fncMinutos(Nz(rs!CNCPORTAL, "00:00"))
    rs.MoveNext
Loop
rs.Close
Set rs = Nothing
Me!TxtTotalCncPortal = Int(SomaCNCPORTAL / 60) & ":" & (SomaCNCPORTAL - (Int(SomaCNCPORTAL / 60) * 60))
End Sub
''5.Calculo - TORNO
Private Sub Torno_LostFocus()
Dim rs As dao.Recordset
Dim SomaTORNO As Long
Set rs = Me.RecordsetClone
rs.MoveFirst
Do While Not rs.EOF
    SomaTORNO = SomaTORNO + fncMinutos(Nz(rs!Torno, "00:00"))
    rs.MoveNext
Loop
rs.Close
Set rs = Nothing
Me!TxtTotalTorno = Int(SomaTORNO / 60) & ":" & (SomaTORNO - (Int(SomaTORNO / 60) * 60))
End Sub
''6.Calculo - TORNOCNC
Private Sub TorCNc_LostFocus()
Dim rs As dao.Recordset
Dim SomaTORCNC As Long
Set rs = Me.RecordsetClone
rs.MoveFirst
Do While Not rs.EOF
    SomaTORCNC = SomaTORCNC + fncMinutos(Nz(rs!TorCNC, "00:00"))
    rs.MoveNext
Loop
rs.Close
Set rs = Nothing
Me!TxtTotalTornoCnc = Int(SomaTORCNC / 60) & ":" & (SomaTORCNC - (Int(SomaTORCNC / 60) * 60))
End Sub
''7.Calculo - RetPlana
Private Sub RetPlana_LostFocus()
Dim rs As dao.Recordset
Dim SomaRetPlana As Long
Set rs = Me.RecordsetClone
rs.MoveFirst
Do While Not rs.EOF
    SomaRetPlana = SomaRetPlana + fncMinutos(Nz(rs!RetPlana, "00:00"))
    rs.MoveNext
Loop
rs.Close
Set rs = Nothing
Me!TxtTotalRetificaP = Int(SomaRetPlana / 60) & ":" & (SomaRetPlana - (Int(SomaRetPlana / 60) * 60))
End Sub
''8.Calculo - RetCilindrica
Private Sub RetCilindrica_LostFocus()
Dim rs As dao.Recordset
Dim SomaRetCilindrica As Long
Set rs = Me.RecordsetClone
rs.MoveFirst
Do While Not rs.EOF
    SomaRetCilindrica = SomaRetCilindrica + fncMinutos(Nz(rs!RetCilindrica, "00:00"))
    rs.MoveNext
Loop
rs.Close
Set rs = Nothing
Me!TxtTotalRetificaC = Int(SomaRetCilindrica / 60) & ":" & (SomaRetCilindrica - (Int(SomaRetCilindrica / 60) * 60))
End Sub
''9.Calculo - Erosão a Fio
Private Sub ErFio_LostFocus()
Dim rs As dao.Recordset
Dim SomaErFio As Long
Set rs = Me.RecordsetClone
rs.MoveFirst
Do While Not rs.EOF
    SomaErFio = SomaErFio + fncMinutos(Nz(rs!ErFio, "00:00"))
    rs.MoveNext
Loop
rs.Close
Set rs = Nothing
Me!TxtTotalErFio = Int(SomaErFio / 60) & ":" & (SomaErFio - (Int(SomaErFio / 60) * 60))
End Sub
''10.Calculo - Erosão a Penetração
Private Sub ErPen_LostFocus()
Dim rs As dao.Recordset
Dim SomaErPen As Long
Set rs = Me.RecordsetClone
rs.MoveFirst
Do While Not rs.EOF
    SomaErPen = SomaErPen + fncMinutos(Nz(rs!ErPen, "00:00"))
    rs.MoveNext
Loop
rs.Close
Set rs = Nothing
Me!TxtTotalErPen = Int(SomaErPen / 60) & ":" & (SomaErPen - (Int(SomaErPen / 60) * 60))
End Sub

Problema; ele nem sempre esta recalculando ao sair do campo ou demora para atualizar o valor,eu também acredito que temos alguma forma mais resumida para fazer este recalculo. Mas já torrei meus miolos tentando.

Agradeço a ajuda
e fico no aguardo.

Olá Edgar,

Tente adaptar para o seu código pelo aplicativo do Avelino.


http://www.usandoaccess.com.br/tutoriais/tuto49.asp?id=1#inicio

Agradeço a ajuda.
Foi de muito útil.

Olá Edgar,

Valew. Sucesso !!! Mas não esqueça de postar como Resolvido. Até mais !!!

obrigado!!!!