VB code to create pop-up reminders for tasks listed in a database that are due

Question

Could you help me to put together the VB code that would enable a pop-up reminder to appear when a user logs on to an Access database, when the task date equates to the current date or is over-due?

Answer 1

Hi TheGodofPleasure,

you had mentioned that you are using VB.

so here I assume that you are talking about VB.Net and not about VBA.

below is an Example.

I create 1 table named "task" in Access and insert data in to it.

then I create Windows Application using VB.

Below is the code.

Imports System.Data.OleDb
Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        ReadData("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Backup 22-11-2016\Database2.mdb", "select * from task")
    End Sub
    Public Sub ReadData(ByVal connectionString As String,
    ByVal queryString As String)
        Using connection As New OleDbConnection(connectionString)
            Dim command As New OleDbCommand(queryString, connection)
            Dim dt, dt1 As Date
            dt = Format(DateTime.Now, "MM/dd/yyyy").ToString
            connection.Open()

            Dim reader As OleDbDataReader = command.ExecuteReader()
            While reader.Read()
                dt1 = reader(2).ToString()
                Console.WriteLine(reader(0).ToString())
                If (dt1 >= dt) Then
                    Me.TextBox1.Text += "Task:" + reader(1).ToString() + "Date:" + dt1 + vbNewLine
                    MsgBox("Task:" + reader(1).ToString() + "Date:" + dt1 + vbNewLine)
                End If

            End While
            reader.Close()
        End Using
    End Sub

End Class

Output:

when I click on button popup will display and data will also added to textbox.

it will check all the data in the table.

Regards

Deepak

---

MSDN Community Support
Please remember to click "Mark as Answer" the responses that resolved your issue, and to click "Unmark as Answer" if not. This can be beneficial to other community members reading this thread. If you have any compliments or complaints to MSDN Support, feel free to contact [e-mail].

Answer 2

can you give me the source code what you make before?? please

Answer 3

what if the popup msg have to be shown 7 days before for everydays? any solution?

Answer 4

what if the popup msg have to be shown 7 days before for everydays? any solution?

For future reference, rather than piggy-backing on an old thread, it is preferable to start a new thread and include a hyperlink to any earlier thread to which you wish to refer.

Taking the OP's table as an example a simple query will return all rows with dates on or later than 7 days after the current date:

SELECT *
FROM task
WHERE t_date >= DATE()+7
ORDER BY t_date;

Save the query as qryTasksDue say.  You can then bind a form, frmTasksDue say, to the query and open it conditionally like this:

If Not IsNull(DLookup("t_id", "qryTasksDue")) Then
    DoCmd.OpenForm "frmTasksDue", WindowMode:=acDialog
End If

---

Ken Sheridan, Stafford, England