Best way to implement a customer notes system...


New member
Apr 11, 2019
Programming Experience
I am a beginner with and am porting an program I wrote on a old mainframe computer years ago to The software is a utility billing system that I want to store notes about a customer and meters that is stored in a access database (for now with future upgrade to some other database).

I have my tables created, one for customers, one for meters, one for customer notes and one for meter notes. I can insert, update and select to these tables.

My question is what is the best way to enter, save and display these notes for the customers and meters. I want to store the date/time of when the note was added.

Right now I have:
customer notes table
customer acct no field
date/time added field
customer notes field

The table will have duplicate enters for each customer depending on how many notes are added for the customer.

My question is how is the best way to retrieve the date/time and the notes from the database and display them on the form in a textbox.

Below is the current code that I can select one row from the table, combine and display in a text box:

Private Sub FindCustomerNotes()
            Dim drCustomerNotes As OleDbDataReader = Nothing

            With cm
                .CommandText = "SELECT * FROM tblCusNotes WHERE fldCusNotesAcctNo = @CusAcctNo"
                    .Parameters.Add("@CusAcctNo", OleDbType.Integer).Value = tbCusAcctNo.Text
                Catch ex As Exception
                    MsgBox(ex.Message, MsgBoxStyle.Critical)
                End Try
                drCustomerNotes = .ExecuteReader
            End With
            MsgBox("Cus Notes Start read.", MsgBoxStyle.Information)
            While drCustomerNotes.Read()

                CusNotesTemp = drCustomerNotes("fldCusNotesDateEntered").ToString
                CusNotesTemp = CusNotesTemp + vbCrLf + drCustomerNotes("fldCusNotesText").ToString
                tbCusNotes.Text = CusNotesTemp

                CusNotesfound = True
            End While

            If CusNotesfound = True Then MsgBox("Cus Notes Info Found.", MsgBoxStyle.Information)
            If CusNotesfound = False Then MsgBox("Cus Notes Info Not Found.", MsgBoxStyle.Information)

        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Critical)
            errornumber = 23 'Assigned error number for logging & debugging.
            clsLogFile = New LogFile(ex.Message, errornumber)
        End Try
        If CusNotesfound = False Then MsgBox("No Cus Notes Info Found.", MsgBoxStyle.Information)

    End Sub

Any help or guidance would be appreciated.
Last edited by a moderator:
Top Bottom