View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
terry terry is offline
external usenet poster
 
Posts: 193
Default Excel Form for updating records

Hi Guys
I need a form to let me update records in Excel 2002 I have a form thats
lets me enter a new record see code below but I don't know how to update the
records I have entered already
As you can see I can't use the Automatic form ie Data Forms, Excel gives
me as I have two combo boxes on it
Also I would like to use the scroll option to scroll through these records
Thanks so much Terry

Private Sub CommandButton1_Click()
Dim LastRow As Object

Set LastRow = Sheet1.Range("a65536").End(xlUp)

LastRow.Offset(1, 0).Value = Program.Text
LastRow.Offset(1, 2).Value = Catagory.Text
LastRow.Offset(1, 3).Value = Description.Text
LastRow.Offset(1, 4).Value = DiskType.Text
LastRow.Offset(1, 5).Value = DiskNumber.Text
LastRow.Offset(1, 6).Value = BackupDrive.Text
LastRow.Offset(1, 7).Value = Version.Text
LastRow.Offset(1, 8).Value = DiskName.Text
LastRow.Offset(1, 9).Value = Key.Text
LastRow.Offset(1, 10).Value = Note.Text



MsgBox "One record written to Software"

response = MsgBox("Do you want to enter another record?", _
vbYesNo)

If response = vbYes Then
Program.Text = ""
Catagory.Text = ""
Description.Text = ""
DiskType.Text = ""
DiskNumber = ""
BackupDrive.Text = ""
Version.Text = ""
DiskName.Text = ""
Key.Text = ""
Note.Text = ""


Program.SetFocus

Else
Unload Me
End If


End Sub