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?