Gestione appuntamenti

Question

Ciao a tutti sto creando un gestionale per delle pratiche della mia agenzia nulla di complicato funziona bene e sono soddisfatto del risultato che ho ottenuto, desso però mi servirebbe un qualcosa che mi avvisi degli appuntamenti del giorno o meglio che mi avvisi prima dell'ora impostata.

ho creato la tabella appuntamenti con i seguenti campi

id

data inserimento

data appuntamento

ora appuntamento

note

ho creato un query tutti i campi nel campo data appuntamento ho assegnato il seguente criterio date()

nella maschera che ho creato ho inserito un codice che ho trovato in rete riadattandolo alle mie esigenze che è il seguente

Private Sub Form_Load()

Dim x As Integer

x = DCount("[data appuntamento]", "[App]", "[data appuntamento]=Date()")

If x > 0 Then

If MsgBox("Attenzione hai persone da chiamare " & x & "  Vuoi visualizzarle?", vbYesNo, "AVVISO") = vbYes Then

DoCmd.OpenReport "listapp", acViewPreview

End If

End If

End Sub

funziona nel senso che ogni volta che apro la maschera mi avvisa se ho persone da chiamare in quel giorno in questo modo peò mi fa un elenco di tutte le persone in una volta, ma non è quello che mi serve, mi servirebbe avere un allert che mi avvisa di chiamare quella persona all'orario prestabilito e che mi avvisi man mano che si avvicinano gli eventi. Ringrazio tutti in anticipo per l'aiuto

Answer 1

Corretto!! .... +/- ....  :-)

modifica questa parte del codice

    With rst

  .MoveLast

        iContact = .RecordCount

    End With

come segue:

---

    With rst

        If Not .EOF Then

            .MoveLast

            iContact = .RecordCount

        Else

            iContact = 0

        End If

    End With

---

dovresti poter risolvere

David

Answer 2

Ciao Fabry_102,

la prima domanda è: come ha condiviso il db? Front-end, Back-end?

Dividendo l'applicazione con un back-end su una cartella condivisa e distribuendo i front-end su due macchine non riscontro il problema: gli appuntamenti vengono visualizzati su entrambe le macchine. Semmai l'eventuale problema è nel refresh sulle altre macchine: con un timer a 60secondi, impostando il check di Contattato da una macchina , l'altra riceverà la notifica (e quindi il suo record scomparirà) in media dopo 30 secondi. Questo problema si può risolvere abbassando il tempo di aggiornamento della maschera (10 secondi? 5? ...).

Altra miglioria potenziale potrebbe essere quella di imporre un requery immediato della form degli appuntamenti dopo aver impostato il flag Contattato.

---

Private Sub Eseguito_AfterUpdate()

    Me!Eseguito.Value = Abs(Me!Eseguito.Value)

    Me.Dirty = False

    Me.Requery

    If Me.Recordset.RecordCount = 0 Then

        DoCmd.Close ObjectType:=acForm, _

                ObjectName:=Me.Name, _

                Save:=acSaveNo

    End If

End Sub

---

David

Answer 3

Ciao David, il tuo aiuto mi è stato molto utile per risolvere il problema degli appuntamenti, funziona bene se usato su un computer, purtroppo se lavoro in rete con lo steso gestionale su gli altri computer gli appuntamenti non vengono visualizzati, e non capisco il motivo, sai per caso dirmi il motivo. Ti ringrazio in anticipo per l'aiuto.

Answer 4

Funziona tutto alla perfezione ti ringrazio molto, adesso lo inserisco nel mio progetto nella speranza che funzioni anche li :-D