Edit button ?HELP PLEASE

[Yamasassy]

i have an edit button that is supposed enable the txt boxes to be able to write in it does this but when i click save i want the edited person to save

Private Sub cmdEdit_Click(Index As Integer)
 
txtFullname.Enabled = True
txtAddress.Enabled = True
txtArea.Enabled = True
txtPostcode.Enabled = True
txtContactno.Enabled = True
txtPos.Enabled = True
txtSalary.Enabled = True
 
End Sub
 
Private Sub cmdExit_Click(Index As Integer)
 
counter = EmployeeCollection.Count
 
Dim forcounter As Integer
 
Open "c:\temp\Storage.txt" For Output As #1
 
For forcounter = 1 To EmployeeCollection.Count
 
Print #1, """" & EmployeeCollection.Item(forcounter).Fullname & """,";
Print #1, EmployeeCollection.Item(forcounter).Address & ",";
Print #1, EmployeeCollection.Item(forcounter).Area & ",";
Print #1, EmployeeCollection.Item(forcounter).Postcode & ",";
Print #1, EmployeeCollection.Item(forcounter).Contactno & ",";
Print #1, EmployeeCollection.Item(forcounter).Pos & ",";
Print #1, EmployeeCollection.Item(forcounter).Salary
 
Next
Close #1
End
 
End Sub
 
 
Private Sub cmdFirst_Click(Index As Integer)
 txtEmployeeno.Text = 1
 
   txtFullname.Text = EmployeeCollection.Item(1).Fullname
    txtAddress.Text = EmployeeCollection.Item(1).Address
    txtArea.Text = EmployeeCollection.Item(1).Area
    txtPostcode.Text = EmployeeCollection.Item(1).Postcode
    txtContactno.Text = EmployeeCollection.Item(1).Contactno
    txtPos.Text = EmployeeCollection.Item(1).Pos
    txtSalary.Text = EmployeeCollection.Item(1).Salary
 
   cmdP.Enabled = False
   cmdNext.Enabled = True
 
 
   If counter - 1 < 1 Then
   MsgBox ("First Record")
 
    End If
 
 
End Sub
 
 Private Sub cmdsave_Click(Index As Integer)
 
Set Employee = New clsEmployee
 
    Employee.Fullname = txtFullname.Text
    Employee.Address = txtAddress.Text
    Employee.Area = txtArea.Text
    Employee.Postcode = txtPostcode.Text
    Employee.Contactno = txtContactno.Text
    Employee.Pos = txtPos.Text
    Employee.Salary = txtSalary.Text
 
        txtFullname.Enabled = False
        txtAddress.Enabled = False
        txtArea.Enabled = False
        txtPostcode.Enabled = False
        txtContactno.Enabled = False
        txtPos.Enabled = False
        txtSalary.Enabled = False
 
EmployeeCollection.Add Employee
txtEmployeeno.Text = EmployeeCollection.Count
Set Employee = Nothing
 
End Sub
 

Really greatfull for n e help
yamasassy

[gobblegob]

i have an edit button that is supposed enable the txt boxes to be able to write in it does this but when i click save i want the edited person to save


[code]


Private Sub cmdEdit_Click(Index As Integer)

txtFullname.Enabled = True
txtAddress.Enabled = True
txtArea.Enabled = True
txtPostcode.Enabled = True
txtContactno.Enabled = True
txtPos.Enabled = True
txtSalary.Enabled = True


End Sub


Really greatfull for n e help
yamasassy

So these are not being enabled?

change this..
Private Sub cmdEdit_Click(Index As Integer)

to this..
Private Sub cmdEdit_Click()

GobbleGob.

[Yamasassy]

sorry didnt make my self clear , when edited the detaikls save again not over write the persons details in the file

[gobblegob]

Thats becuase your code only enables the objects for use, it doesnt tell your program do anything else.

try this,

Private Sub cmdEdit_Click(Index As Integer)
   Set Employee = New clsEmployee
 
    txtFullname.Enabled = True
    txtAddress.Enabled = True
    txtArea.Enabled = True
    txtPostcode.Enabled = True
    txtContactno.Enabled = True
    txtPos.Enabled = True
    txtSalary.Enabled = True
 
    Employee.Fullname = txtFullname.Text
        Employee.Address = txtAddress.Text
        Employee.Area = txtArea.Text
        Employee.Postcode = txtPostcode.Text
        Employee.Contactno = txtContactno.Text
        Employee.Pos = txtPos.Text
        Employee.Salary = txtSalary.Text
 
    EmployeeCollection.Add Employee
    txtEmployeeno.Text = EmployeeCollection.Count
    Set Employee = Nothing
 
End Sub

GobbleGob.