davidctba
-
Total de itens
91 -
Registro em
-
Última visita
Posts postados por davidctba
-
-
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...
Como criar um despertador
em Access
Postado
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