QUOTE(Amadeus @ 6 May, 2007 - 02:38 PM)
Can you show the declarations for memberrecord? Can you show an example of the file?
Not sure what you mean by declaration so I will post the sub procedure and how the add records button is coded, hope this information is correct.
CODE
Private Sub frmember_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
filename = CurDir() & "\Memberdetails.txt" 'creates text file
Call subloadfile() 'call Subroutine
End Sub
Sub subloadfile()
filenum = FreeFile()
memberrecord = 0
If filename <> "" Then
Try
FileOpen(filenum, filename, OpenMode.Input)
Do Until EOF(filenum)
memberrecord = memberrecord + 1
members(memberrecord, 0) = LineInput(filenum)
members(memberrecord, 1) = LineInput(filenum)
members(memberrecord, 2) = LineInput(filenum)
members(memberrecord, 3) = LineInput(filenum)
members(memberrecord, 4) = LineInput(filenum)
members(memberrecord, 5) = LineInput(filenum)
members(memberrecord, 6) = LineInput(filenum)
members(memberrecord, 7) = LineInput(filenum)
members(memberrecord, 8) = LineInput(filenum)
members(memberrecord, 9) = LineInput(filenum)
members(memberrecord, 10) = LineInput(filenum)
cmbsurname.Items.Add(members(memberrecord, 1))
Loop
lastmemberrecord = memberrecord
Catch
MsgBox("error opening start file")
Finally
FileClose(filenum)
End Try
End If
currentmemberrecord = 1
txtmemno.Text = members(currentmemberrecord, 0)
cmbsurname.Text = members(currentmemberrecord, 1)
cmbforename.Text = members(currentmemberrecord, 2)
txtdob.Text = members(currentmemberrecord, 3)
txttelno.Text = members(currentmemberrecord, 4)
txtmemdate.Text = members(currentmemberrecord, 5)
txtaccbal.Text = members(currentmemberrecord, 6)
cmbcard.Text = members(currentmemberrecord, 7)
txtcardno.Text = members(currentmemberrecord, 8)
txtcardstart.Text = members(currentmemberrecord, 9)
txtcardexp.Text = members(currentmemberrecord, 10)
cmbsurname.Focus()
End Sub
Private Sub btnaddmem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnaddmem.Click
Dim counter1 As Integer
Dim counter, filenum As Integer
filenum = FreeFile()
If filename <> "" Then
Try
lastmemberrecord = lastmemberrecord + 1
members(lastmemberrecord, 0) = txtmemno.Text
members(lastmemberrecord, 1) = cmbsurname.Text
members(lastmemberrecord, 2) = cmbforename.Text
members(lastmemberrecord, 3) = txtdob.Text
members(lastmemberrecord, 4) = txttelno.Text
members(lastmemberrecord, 5) = txtmemdate.Text
members(lastmemberrecord, 6) = txtaccbal.Text
members(lastmemberrecord, 7) = cmbcard.Text
members(lastmemberrecord, 8) = txtcardno.Text
members(lastmemberrecord, 9) = txtcardstart.Text
members(lastmemberrecord, 10) = txtcardexp.Text
FileOpen(filenum, filename, OpenMode.Append)
PrintLine(filenum, members(lastmemberrecord, 0))
PrintLine(filenum, members(lastmemberrecord, 1))
PrintLine(filenum, members(lastmemberrecord, 2))
PrintLine(filenum, members(lastmemberrecord, 3))
PrintLine(filenum, members(lastmemberrecord, 4))
PrintLine(filenum, members(lastmemberrecord, 5))
PrintLine(filenum, members(lastmemberrecord, 6))
PrintLine(filenum, members(lastmemberrecord, 7))
PrintLine(filenum, members(lastmemberrecord, 8))
PrintLine(filenum, members(lastmemberrecord, 9))
PrintLine(filenum, members(lastmemberrecord, 10))
MsgBox("Member details added to file")
currentmemberrecord = lastmemberrecord
cmbsurname.Items.Add(members(currentmemberrecord, 1))
FileOpen(filenum, filename, OpenMode.Output)
For counter = 1 To lastmemberrecord
PrintLine(filenum, members(counter, 0))
PrintLine(filenum, members(counter, 1))
PrintLine(filenum, members(counter, 2))
PrintLine(filenum, members(counter, 3))
PrintLine(filenum, members(counter, 4))
PrintLine(filenum, members(counter, 5))
PrintLine(filenum, members(counter, 6))
PrintLine(filenum, members(counter, 7))
PrintLine(filenum, members(counter, 8))
PrintLine(filenum, members(counter, 9))
PrintLine(filenum, members(counter, 10))
Next counter
Catch
MsgBox("error opening add file")
Finally
FileClose(filenum)
End Try
End If
Private Sub cmbsurname_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbsurname.SelectedIndexChanged
currentmemberrecord = cmbsurname.SelectedIndex + 1
txtmemno.Text = members(currentmemberrecord, 0)
cmbsurname.Text = members(currentmemberrecord, 1)
cmbforename.Text = members(currentmemberrecord, 2)
txtdob.Text = members(currentmemberrecord, 3)
txttelno.Text = members(currentmemberrecord, 4)
txtmemdate.Text = members(currentmemberrecord, 5)
txtaccbal.Text = members(currentmemberrecord, 6)
cmbcard.Text = members(currentmemberrecord, 7)
txtcardno.Text = members(currentmemberrecord, 8)
txtcardstart.Text = members(currentmemberrecord, 9)
txtcardexp.Text = members(currentmemberrecord, 10)
Many regards
Sorry the file has each record entered on a seperate line eg.
Member No.
Surname
Forename
DOB
etc.
This post has been edited by jayman9: 6 May, 2007 - 02:18 PM
| 