[Resolvido]Agenda de Compromissos

Esta agenda nos foi fornecida pelo usuário Balém, porém estava apresentando mal funcionamento nos códigos que vinculavam o dia ao subform de agendamentos, bem como no preenchimento dos dias agendados em verde.

Isso nos foi apresentado pelo usuário Kadhu, no tópico:
http://maximoaccess.forumeiros.com/t10212-duvida-agenda-de-clientes-respositorio

Hoje precisei utilizá-lo e vi estes problemas.. Eis aqui agora com uma nova roupagem e corrigido
Incluso Login, com níveis de permissão e menu

http://dl.dropbox.com/u/26441349/AgendaSenha.rar

Cumprimentos.

Grande Piloto, bom dia a ti !

Saúde e paz.


Seguinte, está dando erro novamente. Fui fazer alguns testes para o dia de hoje e apareceu a mensagem de data expirada e sendo impossível realizar o agendamento.

Abraços.

Grande Silvio.. vi isto gora cedo.. o que ocorre é que no módulo: MiniCalendario-Day Box CLick Code, existe um pequeno bug que quebrei a cabeça para resolver...

Esse erro consiste na linha que analiza as datas para verificar se é uma data de hoje ou maior, se for agenda, caso contrário emite mensagem de data expirada... O que ocorre é que a caixa texto que ele utilizou... se o dia é de um digito apresenta a data no formato dd/mm/yyy e se for de dois apresenta mm/dd/yyyy !!!!

Ocorre que mesmo se eu formatesse a caixa texto na comparação... mesmo assim sempre invertia... e se dava certo para dezembro/2012 já não dava certo para Janeiro/2013..

Não havia jeito de arrumar essa comparação, então o que fiz... Criei uma nova variável (StrData) do tipo Data e carreguei ela com a variável CombinedDate... ai deu certo.


No módulo:

Option Compare Database
Option Explicit
Public StrData As Date

Function fDayclick(Dialog As Boolean, TextBoxNumber)
On Error GoTo TrataErro

Dim DayControl
Dim Month As String
Dim Year As Integer
Dim Day As Integer
Dim NumberOfDays
Dim CombinedDate As Date
Dim MonthNumber As Integer
Dim ReferenceNumber
Dim Msg As String



DayControl = "Day" & TextBoxNumber
NumberOfDays = Forms![frmAgendaStudio]![subfrmMiniCalendario].Form![NumberOfDays]
ReferenceNumber = Forms![frmAgendaStudio]![subfrmMiniCalendario].Form![ReferenceNumber]
ReferenceNumber = ReferenceNumber - 1
Month = Forms![frmAgendaStudio]![subfrmMiniCalendario].Form![Month]
MonthNumber = fMonthToNumber(Month)
Year = Forms![frmAgendaStudio]![subfrmMiniCalendario].Form![Year]
Day = TextBoxNumber - ReferenceNumber
If Day > 0 And Day <= NumberOfDays Then
    CombinedDate = MonthNumber & "/" & Day & "/" & Year
    'CombinedDate = DateSerial(Year, MonthNumber, Day)
    StrData = CombinedDate
    Forms![frmAgendaStudio]![subfrmMiniCalendario].Form!DataCombinada = CombinedDate
    
   DoCmd.OpenForm "frmAgendaStudio", acNormal, "", "[dtData]=#" & [Forms]![frmAgendaStudio]![dtDia] & "#", , acNormal
   
    If IsNull(Forms!frmAgendaStudio!dtData) Or Forms!frmAgendaStudio!dtData = "" Then

       If StrData >= Format(Date, "dd/mm/yyyy") Then
          If MsgBox("Dia sem horários agendados.Deseja Agendar?", vbQuestion + vbYesNo, "Agendar horário") = vbYes Then
             [Forms]![frmAgendaStudio]![dtData] = [Forms]![frmAgendaStudio]![dtDia]
             DoCmd.RunCommand acCmdSaveRecord
          End If
       Else
          MsgBox "Data anterior ao dia de Hoje. Impossível Agendar.", vbCritical, "Data expirada"
       End If
    End If
Forms![frmAgendaStudio]!DataX = Format(CombinedDate, "mm/dd/yyyy")
StrData = Empty
End If
Exit Function
Exit_TrataErro:
    DoCmd.Hourglass False
    DoCmd.Echo True
Exit Function
 
TrataErro:
If err.Number = 2501 Then
    Resume Next
Else
 DoCmd.Hourglass False
 DoCmd.Echo True
 Msg = "Erro # " & Str(err.Number) & " gerado na: fDayclick()" _
 & vbNewLine & vbNewLine & "Descrição: " & err.Description _
 & vbNewLine & vbNewLine & "Por favor contate o Administrador de Sistema."
 MsgBox Msg, vbMsgBoxHelpButton + vbCritical, "Erro", err.Helpfile, err.HelpContext
 Resume Exit_TrataErro
End If
End Function
<\pre>

Cumprimentos.

Mesmo assim ainda da problemas em Dezembro... com este codigo em dezembro de 1 a 10 da msg expirado...

Vou ver novamente...

Já retorno.

Cumprimentos.

Boas Silvio, agora creio que resolvi...O que fiz..

Bem, não entendi o porque essa mudança quando o dia é de 1 ou 2 dígitos.. enfim..

Criei uma variável para o dia e carrego a mesma com as duas primeiras posições da data, ex: 1/12/2012
Se o dia for de um dígito a variável será carregada assim 1/, caso seja de dois será carregada com os numeros do dia, então checo se o contido na variável é numérico. Se avariável for de 1 dia (1 dígito) não será numérica pois terá a barra.. então dependendo disso redireciono as condições invertidas de formato na variável StrData.

Código:



    StrDia = Left(CombinedDate, 2)
    If IsNumeric(StrDia) = False Then
        StrData = Format(CombinedDate, "dd/mm/yyyy")
    Else
        StrData = Format(CombinedDate, "mm/dd/yyyy")
    End If

Logo mais posto o modelo no repositório e posteriormente excluo estas mensagens.

Cumprimentos.

Grande Piloto....minhas considerações a ti.

Fico no aguardo então !

Abraços !

Boas Silvio... pode testar.. está com login e menu.. veja ai.

Deu um trabalho.. rsrs

Abraços.

Boas......

Saúde e Paz.


Cade ??

Hary

Porque hoje é sexta feira dia 7, e no calendario da agenda está como qurta-feira e os meses todos só tem 28 dias
Obrigado

Assis... Esse exemplo era do Balem.. estou arrumando....
Não havia percebido isto.


Vou verifica isto, depois posto corrigido.

Silvio está no primeiro post.

Abraços.

Movi o tópico de Sala até estar pronto para postar no repositório.

Susgestões serão bem vindas.

Piloto,

Sinceramente, que roupagem nova.....muito bonita mesmo.

Agora não vou mexer muito, pois dona patroa me convocou para um compromisso. Amanhã mexerei nela.

Abraços.

Boas Amigos.. Testem por gentileza..

Lembrando que acima do subform onde exibe os compromissos, a informação exibida é do dia clicado no calendário, pois o subform exibirá as informações para o mesmo.

http://dl.dropbox.com/u/26441349/Agenda.rar

Cumprimentos.

Bom dia !muito bom mesmo,Piloto !Vou dar uma estudada .obrigado

Aguardo os resultados de vossos teste para que possa postar no repositório.

Cumprimentos.

A função para o dia atual e com as funções de feriados brasileiros de Alexandre Neves
Essa funcção deve se chamada nos eventos:

Ao Abrir
No TImer
e nos botões que avancam e retrocede o mes e ano

Sub fDefineDiaAtual()
On Error Resume Next
Dim ctrl As Control
For Each ctrl In Me.Controls
Dim dtData As Date
        With ctrl
            'Change em
            If InStr(1, .Name, "Day") = 1 Then
                dtData = CDate(ctrl.Caption & "/" & Me.Month & "/" & Me.Year)
                If FeriadoBrasileiro(dtData) Then
                    Me(ctrl.Name).BackColor = vbRed ' define do feriado
                End If
              If ctrl.Caption = Format(Date, "d") Then
                .BackColor = RGB(255, 204, 153) ' define cor fundo do dia atual
              End If
            End If
        End With
     
Next
End Sub

Coloque no evento no Timer

Call LimpaData
Call fAtualizaData
Call fDefineDiaAtual

Boa noite Piloto! ,estou a tentar acessar o modo designer do frmagenda,para inserção do cod referido,como habilito o botão direito do mouse?obrigado

Boas Cadhu.. Esta normal entre com a tecla Shift Pressionada, mas Ja terminei o modelo e Amanha disponibilizo no epositório, está com feriados brasileiros e exibe em texto o nome dos feriados no formAgenda...

Ficou legal

Ata amanha.

Eis o link do repositório, espero que gostem.

Darei este tópico como resolvido.. Caso tenham duvidas podem postar

http://maximoaccess.forumeiros.com/t10793-agenda-de-compromissos

Cumprimentos

Bom dia
Hary

No calendario se movimentar com as setas azuis para o mês seguinte ou anterior a etiqueta com a informação dos feriados atualiza.

Mas se mudar de mês com a caixa de combinação que tem o nome dos meses, a etiqueta com a informação dos meses não altera

Obrigado

Boas Assis, as funções estão prontas.. e que foram tantas coisas neste BD que esqueci-me de aplicá-las em todos os lugares necessários..

No form: subfrmMiniCalendário

Na cbo nos eventos após atualizar, aplique a variável: Continua = True

Esta variável está no eventos Timer e caso seja definida como verdadeira, executa os proncedimentos no timer

>>> No código aplique ela neste local, abaixo de MonthName = ........ como está ai.:

MonthNum = fMonthToNumber(MonthName)
MonthName = fNumberToMonth(MonthNum)
Continua = True
Call fDetermineMonthInformation(False, MonthName, YearName)
Call fShapeMiniCalendar(False)
Call fAtualizaData


Cumprimentos.

Obrigado Hary

Funcionou? o que achou do exemplo?

Grande Piloto ,testei aqui,apliquei as altereções que recomendou,na msg 21, e ficou redondinho ,meus parabéns e meus agradecimentos ,te devo mais uma !Só uma pergunta se eu mudar os nomes das colunas das legendas da planilha,pode causar mal funcionamento ,ou impedir alguma função ?

Creio que não haverá problemas, faça uma copia do sistema e teste a vontade... assim saberas e se encontrar dificuldades tente as resolve, não conseguindo poste!

Bom trabalho.

Um outro bug que encontrei. para o mês de setembro de 2009 ou setembro de 2026

O rótulo que exibe os feriados para setembro mostra 3 independências -Dia 7, Dia -1 e Dia 0

Esse big ocorre apenas em setembros cujo dia sete começa em uma segunda feira.

para corrigir:


If FeriadoBrasileiro(dtData) Then
If ctrl.Caption = 32 Or ctrl.Caption = -1 Or ctrl.Caption = 0 Then GoTo ContinuaCod
StrFer = StrFer & ctrl.Caption & " - " & NomeFeriado & vbNewLine
Me(ctrl.Name).BackColor = 12168959 ' define do feriado


Modifique a linha em vermlho para esta.

Cumprimentos.

Corrigido!!!!.Obrigado

Valeu.

Logo mais posto corrigido no repositório

Boa Noite ,Piloto !Teria como colocar as fases da lua durante o ano,neste calendario?

Da até que dá... Mas dá um trabalho grande... Eu fiz o da lua a tempos atras e quebrei a cabeça com eles.. pois envolve calculos lunares..

Naquele exemplo tem os modulos... veja se consegue adapta-los...na realidade o segredo é pegar o dia no label, juntar com o mes e o ano e fazer a verificação....

Eu so não tenho tempo pra fazer isso no momento...
em uma outra hora quem sabe..

Mas se iniciar, poste no repositorio tuas duvidas que vamos la ver.

Cumprimentos.

Obrigado ,Piloto! vou me arriscar aqui!

O Fórum agradece o Retorno.

Boa tarde ,Piloto como faço para substituir a agenda do meu aplicativo que está como erro ,por esse exemplo que voce corrigiu,não sei como fazer isso ,obrigado

Apague todos os objetos referente a agenda do teu BD...
Inclusive tabelas...
Depois abre este exemplo
Selecione todos com o mouse pressionando a tecla shift..
Copie
e cole
Apenas isso

Cumprmentos.

Simples assim?!!E para deixá-los ou torná-los ocultos dentro do meu aplicativo?Isso também serve para o aplicativo agenda senha tambem?Obrigado

Oras Amigo.. se precisa levar objetos de um BD para o outro,,, ou pode copiar e colar ou usar o assistente de importação do Access...

Para ocultar tabelas ou tudo.. no repositório de VBA tem codigos para tal.

Cumprimentos.

ok,obrigado

O Fórum agradece o Retorno.

Bom trabalho!