davidctba

Resolvido, criei uma tabela chamada horas com os campos codigo e hora... Criei um form chamado ajuste_horas... No formulario despertador, adicionei um botao chamado ajuste horas onde ele chama o form ajuste_horas e eu configuro a hora que devera despertar... Criei 10 horarios diferentes, e no clique de cada um dos 10 botoes que eu já tinha no form, eu chamei a uma posicao da tabela e pronto ... esta funcionando... Vlw a força... Abraços; David

MrMalj, consegui fazer com que os 10 horarios despertem nas horas configuradas, porem, cada vez que eu executo o aplicativo, eu tenho que configurar essas horas novamente, teria como fazer um esquema para que ela salve esses horarios em um arquivo txt ou numa tabela? Aguardo retorno; David

Bom dia MrMalj, não entendi muito bem essa função que você indicou... Abaixo esta o meu código fonte, para um unico horario esta funcionando certinho, toca meu arquivo de som e tudo, so que se eu faço o mesmo esquema para o segundo botão, ele sempre vai tocar o ultimo horario informado, e não estou conseguindo colocar a menssagem no momento em que ele desperta.... bom, meu formulario esta composto de 10 botões onde cada um configura um horário, e um label onde me mostra o relógio. Não sei se esta seria a maneira mais facil de fazer, caso tenha outra, favor me indicar.... Código fonte: Option Compare Database Option Explicit Dim AlarmTime Const conMinimized = 1 Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long Private Sub Btn_hora1_Click() AlarmTime = InputBox("Digite a hora para alarmar (hh:mm:ss)", "Access Alarme", Time) If AlarmTime = "" Then Exit Sub If Not IsDate(AlarmTime) Then MsgBox "A hora digitada não é válida." Else ' String returned from InputBox is a valid time, AlarmTime = CDate(AlarmTime) ' so store it as a date/time value in AlarmTime. End If End Sub Private Sub Btn_hora2_Click() AlarmTime = InputBox("Digite a hora para alarmar (hh:mm:ss)", "Access Alarme", Time) If AlarmTime = "" Then Exit Sub If Not IsDate(AlarmTime) Then MsgBox "A hora digitada não é válida." Else ' String returned from InputBox is a valid time, AlarmTime = CDate(AlarmTime) ' so store it as a date/time value in AlarmTime. ' cmdConfig.Caption = "Alarmar as: " & AlarmTime End If End Sub Private Sub Form_Timer() Dim X As Integer Static AlarmSounded As Integer If Lbl_Hora.Caption <> CStr(Time) Then ' It's now a different second than the one displayed. If Time >= AlarmTime And Not AlarmSounded Then 'Beep 'Grave um arquivo WAV com outra mensagem e sobrescreva este X = sndPlaySound(Left$(CurrentDb.Name, Len(CurrentDb.Name) - Len(Dir(CurrentDb.Name))) & "alarme.wav", 1) 'MsgBox "Alarme as " & Time AlarmSounded = True ElseIf Time < AlarmTime Then Lbl_Hora.Caption = Time AlarmSounded = False End If End If Lbl_Hora.Caption = Time End Sub Aguardo retorno, Obrigado; David

Bom dia Srs... venho novamente pedir a ajuda de vocês para resolver uma pequena questão.... Seguinte, estou criando um formulario onde o mesmo funcionara como um despertador, o intuito é fazer um "lembrete" sonoro e visual para o pessoal da linha de produção... minha ideia é, registrar os 9 horarios de advertencia que eles teem e quando o relogio chegar no horario definido, aparecer um pop-up com uma menssagem de adertencia e disparar um alarme sonoro.... Gostaria de saber se tem como fazer isso no access, caso sim, se alguém pode me ajudar, pois nunca trabalhei com hora no access.. Obrigado; David

Fera tente essa opção, quando você criar o atalho da sua aplicação access na area de trabalho ou outro lugar qualquer, clique com o botao direito do mouse, va em propriedades... na opção "destino" no final da linha depois do "c:\xxx.mdb", você coloca ( /runtime) ficando então, "C:\xxx.mdb" /runtime .... PS: as aspas tem que permanecer exatamente como estão adicionando o /runtime apos ela... e na opção "executar" você escolhe "minimizado"... aplicar e testar... :)

ola MrMalj, tudo bem... Então é justamente ai que esta a minha dificuldade, via formula não estou conseguindo fazer com que ela calcule o desconto, não estou conseguindo identificar onde esta o "erro" na formula, pois a mesma somente não esta calculando o desconto... formula: Total_Mon: SeImed([Horafim_Mon]>[HoraInicio_Mon];[Horafim_Mon]-[HoraInicio_Mon];([Totalhoras]-[HoraInicio_Mon]-[desconto]+[Acerto])+[HoraFim_Mon]) ela calcula a hora certinho, manda para o campo totalhoras, porem sem o desconto =(

Senhores, coloquei um campo "desconto" no meu formulario e fiz a inclusão do mesmo na minha formula, porem ela não esta calculando o desconto e tambem não esta gerando "erro" para que eu possa identificar o que esta acontecendo... a formula simplesmente esta ignorando o campo desconto..... segue a formula Total_Mon: SeImed([Horafim_Mon]>[HoraInicio_Mon];[Horafim_Mon]-[HoraInicio_Mon];([Totalhoras]-[HoraInicio_Mon]-[desconto]+[Acerto])+[HoraFim_Mon]) tentei a seguinte opcao tambem, adicionar na opcao "apos atualizar" do campo "desconto" a seguinte formula: (totalhoras-desconto) porem ele dispara um erro informando que não pode alterar o campo totalhoras porque o mesmo esta vinculado a uma formula.... sera que alguém tem ideia de como eu resolvo essa questao? fico no aguardo... Obrigado; David

Olá nilsophos, então, respondendo a sua duvida, abaixo cito uma pequena rotina que podera ser adaptada a sua realidade... en tese é assim, ao escolher "caixa" ou "capa", ele automaticamente atualiza a caixa de combinacao 2 para "acondicionado" e ao escolher qualquer outro valor, ele atualizara a caixa de combinacao 2 para "não acondicionado"... rotina: If Me.Combinacao0 = "caixa" Then Me.Combinacao2 = "acondicionado" Else If Me.Combinacao0 = "capa" Then Me.Combinacao2 = "acondicionado" Else Me.Combinacao2 = "não acondicionado" End If End If espero que tenha ajudado....

Opa deu certo, consegui dividir minha aplicação ... obrigado

Senhores, informo que seguindo as dicas de vocês, consegui resolver meu problema.... Obrigado ...

Então amigo Humm... coloquei o campo "desconto" para que o usuario digite a qntidade de horas que o produto ficou em "aguardo", porem esta dando uma menssagem de erro dizendo: ""a expressao que você criou tem uma funcao que contem o numero de argumentos incorretos"" essa seria a minha expressao original.... Total_Etq: SeImed([Horafim_Etq]>[HoraInicio_Etq];[Horafim_Etq]-[HoraInicio_Etq];([Totalhoras]-[HoraInicio_Etq]+[Acerto])+[HoraFim_Etq]) porem a ideia era, depois que ela calcular o total de horas, pegar esse total e subtrair o "desconto" caso tenha e atualizar o total de horas... e é aqui o problema.. como faco?

Então MrMalj, eu tenho um form com 20 campos para inserção dos itens .... abaixo um print do meu form para ver verificar como esta e me dar uma luz.... desricoes dos campos: - no campo codigo, eu digito o cod do produto e ele me traz automaticamente a descricao e quantidade atual. - no campo ent/sda, ele vai verificar se o check box de entrada ou saida esta marcado, e fara o calculo... ex: se estiver marcado o check de entrada, ele pega o atual e soma com o valor digitado no campo (ent/sda) e vice versa... - ele tem q salvar a quantidade nova depois do calculo na tabela produtos e o restante das informacoes na tavela controle_estoque. so que ele esta funcionando somente para a primeira linha, para as demais, você digita o codigo, ele traz as informacoes so que ao invés de calcular para aquela linha, ele esta ""atualizando"" o valor da primeira linha sempre.... gerando informacoes erradas na tabela produtos... como posso resolver isso?

amigo Humm, entendi seu exemplo, porem o q eu preciso fazer é um pouquinho mais complicadinho, pos preciso ter um historico das notas de entrada com codigo, descricao e qntidade de cada item da nota.... e a mesma coisa para as notas de saida... dessa forma que eu to fazendo, eu concigo isso, porem estou tendo dificuldades em pegar por exemplo uma nota com 20 itens e registra-la, no meu form tem 20 campos para insercao, porem so o primeiro esta funcionando corretamente, os outros da aquele erro citado acima.....

Bom dia Senhores.... Estou com uma duvida que é a seguinte: Tenho um formulario com 2 checkbox (entrada e saida) nesse formulario ainda tenho varios campo pesquisa chamado "codigo" onde ao digitar o codigo do produto ele me tras a descricao e quantidade. No campo quantidade eu tenho um codigo que verifica se esta checado a entrada ou saida, e faz o seguinte calculo: se for entrada, ele pega a quandidade em estoque e soma com a quantidade digitada e vice versa em caso de saida.... porem isso esta funcionando apenas para a primeira linha... para as demais, ele traz os dados do produto pesquisado certinho mas no campo quantidade ao invez de atalizar o produto pesquisado na referida linha, ele esta atualizando sempre a primeira linha... estou colocando apenas o codigo das 2 primeiras linhas para acharmos o erro: Private Sub calc_qnt1_AfterUpdate() If Me.CHK_Entrada = True Then qnt = [qnt] + [calc_qnt1] qnt1 = qnt Else If Me.CHK_saida Or Me.CHK_RMA = True Then qnt = [qnt] - [calc_qnt1] qnt1 = qnt End If End If End Sub Private Sub calc_qnt2_AfterUpdate() If Me.CHK_Entrada = True Then qnt = [qnt] + [calc_qnt2] qnt2 = qnt Else If Me.CHK_saida Or Me.CHK_RMA = True Then qnt = [qnt] - [calc_qnt2] qnt2 = qnt End If End If End Sub * A pesquisa pega os dados (codigo, descricao, quantidade) da tabela produtos. * Esse formulario de movimentacao q estou fazendo, ele recebe esses dados pesquizados, faz o calculo e atualiza a quantidade na tabela produtos E tambem salva outras informcaoes como (nota, data e quantidade de entrada/saida) na tabela controle_estoque. mais uma vez obrigado;

Exatamente, é justametne nessa parte que eu estou com a dificuldade, em criar uma rotina que me de o desconto de final de periodo, finais de semana, feriado, etc... quanto ao campo de desconto, seria baseado em horas ou data?

Então, estou postando uma imagem do meu formulario para ajudar no entendimento do problema.... veja: Nos campos referentes ao "estoque", onde iniciou-se a prodicao no dia 28-12 e encerrou-se no mesmo dia, o calculo de total de horas esta correto, pois se verificar que a producao comecou as 14h e terminou as 15h da-se um total de 1h trabalhada... ate ai OK.... O problema é quando a produção fica de um dia para o outro como vemos nos campos referente a "montagem", onde a producao comecou no dia 28-12 e terminou dia 29-12... Pois se verificarmos que a producao comecou as 15h do dia 28-12 e encerrou as 9h do dia 29-12 isso me da um total de 5h trabalhadas e não 18h como esta mostrando no campo "total hrs"... porque? levando em consideracao que a empresa trabalha das 8h as 12h e das 13h as 18h, o pedido caiu em producao na metade da tarde e parou as 18h (termino do expediente), sendo o mesmo reinicializado as 8h do dia seguinte e finalizado as 9h, tenho q descontar esse tempo onde o pedido ficou parado aguardando o novo expediente... e é aqui que esta a dificuldade... PS: esse form é baseado numa consulta onde no campo "TOTAL HRS" contem a formula citada no post anterior que faz o calculo do total de horas, porem a mesma so esta funcionando para inicio e fim de producao no mesmo dia :(

Cara hj eu tenho a seguinte formula de calculo, mas a mesma não esta "descontando" as horas paradas... Formula: Total_Mon: SeImed([Horafim_Mon]>[HoraInicio_Mon];[Horafim_Mon]-[HoraInicio_Mon];([Totalhoras]-[HoraInicio_Mon]+[Acerto])+[HoraFim_Mon]) valores padrão na tabela acerto = 00:00:01 totalhoras = 23:59:59 com isso quando tem "parada" no processo, quando fica a producao de um dia pro outro, eu tenho q fazer esse desconto na mao :(

Ola a todos... Estou com uma dificuldade que é a seguinte: preciso calcular o tempo que cada célula esta levando para produzir um produto... sendo assim em cada célula eu tenho os seguintes campos: Data inicial Hora inicial Data final Hora final Tempo total de producao (aqui entra a formula) O que eu tenho q fazer é o seguinte: verificar se o produto iniciou e terminou no mesmo dia... caso SIM ai calcular o tempo de horas que levou para aprontar o pedido.... caso não ai descontar o tempo que ficou parado (no caso o periodo de fechamento da empresa e reabertura no dia seguinte) e calcular quanto tempo levou.... exemplo (considerando que a empresa trab das 8:0h as 18:00), se o produto comecou dia 21-12-2010 as 17:00h e terminou dia 22-12-2010 as 11:00h o total de horas que levou para produzir o produto sera de 4:00h .... Obrigado David

Senhores, como que eu faco para pegar uma aplicação em access que já esta rodando a algum tempo na empresa em um unico arquivo e transforma-la em uma aplicação front end - back end?? pois ela esta trabalhando de forma compartilhada e esta perdendo desempenho... Obrigado

Bom dia Humm, então realmente os mapementos das maquinas estavam apontando para o IP do server ao invés de apontar para o nome do server, com isso o access não estava entendendo o endereçamento, refis os mapeamentos apontando para o nome do server e tudo voltou ao normal.... Agora quando me sobrar um tempo vou mexer nele para deixa-lo funcionando como back end e front end... obrigado pelas dicas... e mais um tópico resolvido... :D

Bom dia Humm tudo bem.... Então, quando entrei na empresa já existia essa aplicação funcionando, porem, depois que foi feito o Upgrade no server, a mesma parou de funcionar em modo compartilhado, mesmo estanto o caminho de rede correto e a opção compartilhado habilitada.... Por falta de tempo em parar para arrumar-la, queria de resolver esse problema, ai com calma eu faço o Back End e Front End... sabe de alguma maneira que eu possa resolver ? Obrigado;

Bom dia senhores... Então, tenho uma aplicação em access onde a mesma esta em uma pasta no servidor e compartilhada para alguns usuarios da rede, essa aplicação trabalha de forma compartilhada para que todos os usuarios permitidos possam acessa-la a qualquer momento, ate ai tudo bem, porem foi trocado o servidor e concequentemente foi migrado tudo do servidor "antigo" para o "novo" e com essa mudança a aplicação parou de trabalhar como compartilhada, apesar de que nas propriedades do access, ela esta setada para trabalhar como compartilhada, so estou conseguindo abrir um por vez ou seja se o usuario "A" esta usando a aplicação, o outros usuarios terão que esperar ele fechar a aplicação para um outro poder usar, e assim por diante.... pergunto: como faço para resolver isso, pois as polices do server são exatamente as mesmas do server antigo, os compartilhamentos tambem... e nas configurações do access estão corretas... obrigado; David

Fala MrMALJ beleza... então consegui resolver o problema da seguinte forma.... Na macro que abre o relatorio, mudei a opção "modo Janela" de normal para Diálogo, ai ele traz o relatório na frente do formulario e já poe o foco no relatório... :) mais uma vez obrigado pela ajuda e mais um tópico resolvido ...

então MrMALJ, fiz da maneira que você me falou, porem não deu certo, pois mesmo minimizado ele ainda fica com o foco e não me deixa mexer no relatorio..... minha aplicacao esta funcionando assim: tenho um menu onde ao clicar na opcao relatorios, ele abre um form com varias opcoes de relatorios, ate aqui esta funcionando 100%, ele chama o relatorio correspontende, passa o foco pro relatorio, me deixa mexer no relatorio e tals..... porem uma dessa opcao chama um segundo formulario onde o mesmo tem mais opcoes de relatorios com algumas particularidades de filtros e tals.... e é aqui q esta o problema.... eu clico no botao, ele chama o segundo form, escolho a opcao nesse segundo form porem ele não passa o foco para o relatorio, mesmo minimizando ele.... PS: eu estava reparando, ambos os formularios estao com as mesmas configuracoes, não estou entendendo o porque q ele não esta passando o foco para o relatorio :(

ok cara... fiz umas modificacoes usando sua dica e deu certo... obrigado...