MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


2 participantes

    [Resolvido]Como criar um despertador

    davidctba
    davidctba
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 38
    Registrado : 09/08/2011

    [Resolvido]Como criar um despertador Empty Como criar um despertador

    Mensagem  davidctba 15/8/2011, 13:28

    Bom dia Srs...

    preciso da 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 10 horarios de advertencia que eles teem durante o expediente e quando o relogio chegar no horario definido, disparar um alarme sonoro....

    Ja 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?


    Obrigado;
    David
    bitabit
    bitabit
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 225
    Registrado : 14/07/2010

    [Resolvido]Como criar um despertador Empty Re: [Resolvido]Como criar um despertador

    Mensagem  bitabit 15/8/2011, 13:49

    porque nao guardar os dados numa tabela?
    davidctba
    davidctba
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 38
    Registrado : 09/08/2011

    [Resolvido]Como criar um despertador Empty Re: [Resolvido]Como criar um despertador

    Mensagem  davidctba 15/8/2011, 14:28

    Ola Bitabit, então é o que eu estou tentando fazer, mas o problema é que nao estou conseguindo fazer com que o codigo va ate a tabela e traga o valor salvo para que o despertador funcione...

    abaixo segue meu código do jeito que esta rodando hj... se posivel me ensinar o que tenho que fazer para resolver a questao dele buscar a hora na tabela ficaria grato...

    ---------------------------------------------

    no botao ref. ao primeiro horario

    Private Sub Btn_hora1_Click()
    AlarmTime1 = InputBox("Digite a hora para alarmar (hh:mm:ss)", "Access Alarme", Time)
    If AlarmTime1 = "" Then Exit Sub
    If Not IsDate(AlarmTime1) Then
    MsgBox "A hora digitada não é válida."
    Else ' String returned from InputBox is a valid time,
    AlarmTime1 = CDate(AlarmTime1) ' so store it as a date/time value in AlarmTime.
    Btn_hora1.Caption = "Alarmar as: " & AlarmTime1
    End If
    End Sub

    ----------------------------------------------------------------------------------------
    no timer do formulario

    'Declaração das variaveis
    Dim V1, V2, V3, V4, V5, V6, V7, V8, V9, V10 As Integer

    Static AlarmSounded1, AlarmSounded2, AlarmSounded3, AlarmSounded4, AlarmSounded5, AlarmSounded6, AlarmSounded7, AlarmSounded8, AlarmSounded9, AlarmSounded10 As Integer

    If Lbl_Hora.Caption <> CStr(Time) Then

    If Time >= AlarmTime1 And Not AlarmSounded1 Then
    'Reproduz o arquivo WAV
    V1 = sndPlaySound(Left$(CurrentDb.Name, Len(CurrentDb.Name) - Len(Dir(CurrentDb.Name))) & "alarme.wav", 1)
    'MsgBox "ALMOCO !!!"
    AlarmSounded1 = True
    Else
    If Time < AlarmTime1 Then
    Lbl_Hora.Caption = Time
    AlarmSounded1 = False
    else.....

    'aqui basicamente é a mesma rotina so que mudando as variaveis

    endif

    Aguardo Retorno;
    David
    avatar
    Convidado
    Convidado


    [Resolvido]Como criar um despertador Empty Re: [Resolvido]Como criar um despertador

    Mensagem  Convidado 15/8/2011, 16:15

    Crie uma tabela: tblHorarios
    com os campos: Código e horário


    AlarmTime1 = DLookup("txtHorario", "TblHorarios", "Código=" 1)

    Onde um é o registro de horário referente o botão 1


    Se para outro botão e horário:

    AlarmTime2 = DLookup("txtHorario", "TblHorarios", "Código=" 2)

    é por ai....
    davidctba
    davidctba
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 38
    Registrado : 09/08/2011

    [Resolvido]Como criar um despertador Empty Re: [Resolvido]Como criar um despertador

    Mensagem  davidctba 15/8/2011, 18:10

    Ola Harysohn

    então, eu tenho criado uma tabela com os campos "horario1" a horario10"; não sei se esta certo...

    duvida: tenho que criar os campos "codigo1" a "codigo10" ou so um campo codigo? nao entendi...

    Aguardo Retorno;
    David
    avatar
    Convidado
    Convidado


    [Resolvido]Como criar um despertador Empty Re: [Resolvido]Como criar um despertador

    Mensagem  Convidado 15/8/2011, 18:16

    Não Amigão..Basta ter apenas dois Campos

    Código | Horário

    Sua tabela ficaria Assim

    1 - 12:00 (Horário utilizado para almoço)
    2 - 3:00 (Horario utilizado para o outro evento)

    e assim para quantos eventos desejar

    No horário do alarme do almoço utilizaria o registro 1... que é o registro para o horário almoço

    e assim sucessivamente para com os outros horários...
    davidctba
    davidctba
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 38
    Registrado : 09/08/2011

    [Resolvido]Como criar um despertador Empty Re: [Resolvido]Como criar um despertador

    Mensagem  davidctba 15/8/2011, 19:16

    Ok, resolvido a questão da tabela fiz os testes e o codigo esta me gerando o seguinte erro:
    Erro de compilacao ou sintaxe na linha:
    AlarmTime1 = DLookup "txthorario", "TBL_Horarios", "codigo="1)

    para eu entender, o que seria o txthorario?

    no meu form eu uso 10 botoes nomeados "btn_hora1" ate "btn_hora10"
    uso tambem um label nomeado: lbl_hora

    se eu tirar o n° 1 do final da expressao {AlarmTime1 = DLookup "txthorario", "TBL_Horarios", "codigo=")}
    ele me retorna o seguinte erro:
    erro em tempo de execução 3075
    erro de sintaxe(operador faltando)na expressao de consulta'codigo='

    Crying or Very sad
    avatar
    Convidado
    Convidado


    [Resolvido]Como criar um despertador Empty Re: [Resolvido]Como criar um despertador

    Mensagem  Convidado 15/8/2011, 19:26

    txtHorário é o seu campo na tabela onde ficam os Horários...

    Caso não consiga resolver poste o BD aqui..

    Saudações
    avatar
    Convidado
    Convidado


    [Resolvido]Como criar um despertador Empty Re: [Resolvido]Como criar um despertador

    Mensagem  Convidado 15/8/2011, 19:27

    Veja que escreveu errado.. falta um parênteses

    AlarmTime1 = DLookup("txtHorario", "TblHorarios", "Código=" 1)
    davidctba
    davidctba
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 38
    Registrado : 09/08/2011

    [Resolvido]Como criar um despertador Empty Re: [Resolvido]Como criar um despertador

    Mensagem  davidctba 15/8/2011, 19:48

    Verifiquei o codigo aqui, o mesmo esta diitado correto, jo no post anterior que eu esqueci de colocar o "(" na expressao...

    bom, devido a minha falta de conhecimento em VBA, pois sou novo na linguagem e tenho muito que aprender é que estou encontrando esta dificuldades...

    estou postando o BD para que se possivel verificar onde esta meu erro..

    PS: como que eu sei se anexou mesmo o arquivo? pois pra mim não apareceu nada simplesmente voltou para a tela de resposta..

    agradeço a ajuda e paciencia;
    David
    avatar
    Convidado
    Convidado


    [Resolvido]Como criar um despertador Empty Re: [Resolvido]Como criar um despertador

    Mensagem  Convidado 15/8/2011, 19:54

    Envie-me no e-mail que posto aqui..

    Saudações
    davidctba
    davidctba
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 38
    Registrado : 09/08/2011

    [Resolvido]Como criar um despertador Empty Re: [Resolvido]Como criar um despertador

    Mensagem  davidctba 15/8/2011, 19:59

    ok, ja mandei para seu e-mail...

    vlw;
    avatar
    Convidado
    Convidado


    [Resolvido]Como criar um despertador Empty Re: [Resolvido]Como criar um despertador

    Mensagem  Convidado 15/8/2011, 20:03

    O Bd do colega para quem quiser ajudar

    http://dl.dropbox.com/u/26441349/DavidCtba.zip
    avatar
    Convidado
    Convidado


    [Resolvido]Como criar um despertador Empty Re: [Resolvido]Como criar um despertador

    Mensagem  Convidado 15/8/2011, 20:10

    Eis ai... Está feito apenas para o primeiro botão..

    Na tabela.. O Campo ID é Autonumerico
    E o Hora Date/Time

    ao adicionar novo horário será criado o proximo Código: 2

    No outro botão basta apenas substituir o 1 pelo 2


    Saudações

    http://dl.dropbox.com/u/26441349/DavidCtba_15_08_11.rar
    avatar
    Convidado
    Convidado


    [Resolvido]Como criar um despertador Empty Re: [Resolvido]Como criar um despertador

    Mensagem  Convidado 15/8/2011, 20:12

    Voce pode tambem criar um form apenas para definir os horários na tabela caso seja necessário alterá-los...
    e o form horários ja pode abrir configurado com os horário sem precisar toda vez que abrir, configurar a clicar em confirmar

    Saudações
    davidctba
    davidctba
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 38
    Registrado : 09/08/2011

    [Resolvido]Como criar um despertador Empty Re: [Resolvido]Como criar um despertador

    Mensagem  davidctba 15/8/2011, 20:47

    Então, a ideia inicial era justamente essa, quando executar o form horarios, ele buscaria na tabela os horarios salvos e usaria-os como padrao, mas ate o momento nao consegui...

    ai com os botoes eu consegui fazer funcionar, da maneia trabalhosa, mas pretendo faze-lo buscar na tabela...

    aproveitando a deixa: nao tem como eu usar os botoes para buscar na tabela e clicando no botao e ao alterar a hora ele atualizar na tabela?

    Rolling Eyes
    avatar
    Convidado
    Convidado


    [Resolvido]Como criar um despertador Empty Re: [Resolvido]Como criar um despertador

    Mensagem  Convidado 15/8/2011, 20:50

    Voce ja coloca o teu form horario para abrir automaticamente com os horários da tabela...

    e cria um form apenas para alterá-los
    avatar
    Convidado
    Convidado


    [Resolvido]Como criar um despertador Empty Re: [Resolvido]Como criar um despertador

    Mensagem  Convidado 15/8/2011, 20:53

    Basta no evento ao carregar do seu form aplicar:

    Private Sub Form_Load()
    Call Btn_hora1_Click
    Call Btn_hora2_Click
    Call Btn_hora3_Click
    Call Btn_hora4_Click
    Call Btn_hora5_Click
    Call Btn_hora6_Click
    Call Btn_hora7_Click
    Call Btn_hora8_Click
    Call Btn_hora9_Click
    Call Btn_hora10_Click
    Call Btn_Confirmar_Click

    End Sub
    avatar
    Convidado
    Convidado


    [Resolvido]Como criar um despertador Empty Re: [Resolvido]Como criar um despertador

    Mensagem  Convidado 15/8/2011, 21:01

    http://dl.dropbox.com/u/26441349/DavidCtba_15_08_11_1.rar
    davidctba
    davidctba
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 38
    Registrado : 09/08/2011

    [Resolvido]Como criar um despertador Empty Re: [Resolvido]Como criar um despertador

    Mensagem  davidctba 16/8/2011, 18:48

    Fala Harysohn blz...

    Então cara onde me empolguei fazendo aquel formulario de ajuste de horas e quando vi ja tinha dado o horario de expediente... mas enfim, o importante é que funcionou...

    Ele ficou assim: tenho o form_ajuste_horas onde nele eu altero as horas que deve ser dispertadas.... form_horario que é o despertador propriamente dito...

    No form_horario, tenho o botao de ajuste que me abre o form_ajuste_horas e o botao confirmar que atualiza os botoes horario1 a horario10....

    PS: so agora que eu percebi que vc mandou um e-mail com um DB exemplo com umas alteracoes parecidas com as que eu fiz...


    Agradeço a força, e ja podemos encerrar este topico Very Happy

    AH!, caso ache interessante, posso encaminhar esse projetinho para deixarmos de exemplo no forum...

    abraço;
    David
    avatar
    Convidado
    Convidado


    [Resolvido]Como criar um despertador Empty Re: [Resolvido]Como criar um despertador

    Mensagem  Convidado 16/8/2011, 19:27

    Claro.. depis de pronto.. compile-o para ver se não há erros.. e poste no repositório...

    Esqueceu apenas do resolvido amigão..

    Saudações
    davidctba
    davidctba
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 38
    Registrado : 09/08/2011

    [Resolvido]Como criar um despertador Empty Re: [Resolvido]Como criar um despertador

    Mensagem  davidctba 16/8/2011, 19:51

    Ultima questãozinha, como faco para prostar no repositorio? ontem tentei e nao deu certo, acho que estou dfazendo algo errado... Rolling Eyes
    avatar
    Convidado
    Convidado


    [Resolvido]Como criar um despertador Empty Re: [Resolvido]Como criar um despertador

    Mensagem  Convidado 16/8/2011, 20:07

    Basta apenas criar um tópico la.. igual fez este aqui...

    Observer se seu aplicativo não tem nenhum erro de compilação antes de postar no repositório!

    Para adicionar o lik, podes abrir uma contra no dropBox, zip teu exemplo e cole na pasta publica que o Drop disponibilizará no seu PC, depois clique em cima do arquivo e com o botão direito vá em Copy public Link, depois cole-o no tópico no repositório

    Saudações
    davidctba
    davidctba
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 38
    Registrado : 09/08/2011

    [Resolvido]Como criar um despertador Empty Re: [Resolvido]Como criar um despertador

    Mensagem  davidctba 16/8/2011, 20:31

    OK farei isso Very Happy

    vlw a força!

    Conteúdo patrocinado


    [Resolvido]Como criar um despertador Empty Re: [Resolvido]Como criar um despertador

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 11:49