Answered step by step

Verified Expert Solution

Link Copied!

Question

1 Approved Answer

Posted on Sep 21, 2024

What in the world is causing this error message? Object referenced not set to an instance of an object. It happens when searching by Customer

What in the world is causing this error message? Object referenced not set to an instance of an object. It happens when searching by Customer number.

Imports System.IO

Public Class MainForm

Dim txtFile As StreamReader ' Object variable

Dim searchFile As StreamReader ' Object variable

Dim txtfileName As String

Dim intCounter As Integer

Structure CustomerAccounts ' Structure declaration

Dim LastName As String

Dim FirstName As String

Dim CustomerNumber As String

Dim Address As String

Dim City As String

Dim State As String

Dim ZIPCode As Integer

Dim TelephoneNumber As String

Dim AccountBalance As Double

Dim DateOfLastPayment As String

End Structure

Dim CSearchRecord As CustomerAccounts = New CustomerAccounts ' Define search record

Dim CustomerRecord As CustomerAccounts ' Define structure variable

Dim fileName As String

Dim LastName As String

Dim FirstName As String

Dim CustomerNumber As String

Dim Address As String

Dim City As String

Dim State As String

Dim ZIPCode As Integer

Dim TelephoneNumber As String

Dim AccountBalance As Double

Dim DateOfLastPayment As String

Private Sub mnuEditAddNewRecord_Click(sender As Object, e As EventArgs) Handles mnuEditAddNewRecord.Click

' Create an instance of the AddForm

Dim frmAddForm As New AddForm

' Display the form in modal style.

frmAddForm.ShowDialog()

End Sub

Private Sub mnuFileOpen_Click(sender As Object, e As EventArgs) Handles mnuFileOpen.Click

' ID the file to open.

txtfileName = "Records.txt"

' Open the file to read the records.

txtFile = File.OpenText(txtfileName)

' Use the setData function to place the file data into the text boxes

setData()

End Sub

Public Sub setData()

' Increment the counter by 1.

intCounter += 1

' check to see if the file is empty.

If Not txtFile.EndOfStream Then

' Palcce data into the text boxes.

txtLName.Text = txtFile.ReadLine()

txtFName.Text = txtFile.ReadLine()

txtCustNum.Text = txtFile.ReadLine()

txtAddress.Text = txtFile.ReadLine()

txtCity.Text = txtFile.ReadLine()

txtState.Text = txtFile.ReadLine()

txtZip.Text = txtFile.ReadLine()

txtTelNum.Text = txtFile.ReadLine()

txtAcctBal.Text = txtFile.ReadLine()

txtDatePmt.Text = txtFile.ReadLine()

Else

' Notify the user that the end of file hase been reached.

MessageBox.Show("You are at the end of the file")

End If

End Sub

Private Sub btnNextRec_Click(sender As Object, e As EventArgs) Handles btnNextRec.Click

' run the setData function.

setData()

End Sub

Private Sub clearfields()

' Clear the text fields on the form.

txtLName.Text = ""

txtFName.Text = ""

txtCustNum.Text = ""

txtAddress.Text = ""

txtCity.Text = ""

txtState.Text = ""

txtZip.Text = ""

txtTelNum.Text = ""

txtAcctBal.Text = ""

txtDatePmt.Text = ""

End Sub

Private Sub btnClear_Click(sender As Object, e As EventArgs) Handles btnClear.Click

clearfields()

End Sub

Private Sub btnExit_Click(sender As Object, e As EventArgs) Handles btnExit.Click

' Close the form.

Me.Close()

End Sub

Private Sub mnuFileExit_Click(sender As Object, e As EventArgs) Handles mnuFileExit.Click

' Close the form.

Me.Close()

End Sub

Private Sub AboutToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AboutToolStripMenuItem.Click

' Tell user about the program.

MessageBox.Show("This application demonstrates various file functions, enjoy.")

End Sub

Private Sub MnuFielPrint_Click(sender As Object, e As EventArgs) Handles MnuFielPrint.Click

printCustomerReport.Print()

End Sub

Private Sub printCustomerReport_PrintPage(sender As Object, e As Printing.PrintPageEventArgs) Handles printCustomerReport.PrintPage

Dim count As Integer = 0

Dim intVertPos As Integer

e.Graphics.DrawString("Customer Account Report", New Font("Courier New", 12, FontStyle.Bold), Brushes.Black, 200, 10)

' ID the file to open.

txtfileName = "Records.txt"

' Open the file to read the records.

txtFile = File.OpenText(txtfileName)

' Use the setData function to place the file data into the text boxes

setData()

searchFile = File.OpenText(txtfileName)

intVertPos = 50

Try

' Read the file to end of file.

' Print the contents to the PrintDocument.

While Not searchFile.EndOfStream

If count = 10 Then

count = 0

intVertPos += 20

Else

e.Graphics.DrawString(String.Format("{0,20}{1,10}", "Last Name:",

searchFile.ReadLine()),