Making Forms Perform

[jimmyquinn]

Looping I think??

--------------------------------------------------------------------------------

Hi people thought I would drop a quick line before I go To lunch, I have designed a form which updates the fields in an excel database automatically,

I have the following code: -

Set xlwbook = xl.Workbooks.Open("C:\Documents and Settings\callcentre.temp02\My Documents\Copy of LeadsNCL.xls") 
Set xlsheet = xlwbook.Sheets.Item(1) 
xlsheet.Cells(6, 2) = TextBox1.Text 
xlsheet.Cells(6, 3) = TextBox2.Text 
xlsheet.Cells(6, 4) = ComboBox1.Text 
xlsheet.Cells(6, 5) = TextBox3.Text 
xlsheet.Cells(6, 6) = TextBox4.Text 
xlsheet.Cells(6, 7) = TextBox5.Text 
xlsheet.Cells(6, 8) = TextBox6.Text 
xlsheet.Cells(6, 9) = TextBox7.Text 
xlsheet.Cells(6, 10) = ComboBox2.Text 
xlsheet.Cells(6, 11) = TextBox8.Text 
xlsheet.Cells(6, 12) = TextBox9.Text 
xlsheet.Cells(6, 13) = TextBox10.Text 
xlsheet.Cells(6, 14) = TextBox11.Text 
xlsheet.Cells(6, 15) = TextBox12.Text 
xlsheet.Cells(6, 16) = TextBox13.Text 
xlsheet.Cells(6, 17) = TextBox14.Text 
xlsheet.Cells(6, 18) = ComboBox3.Text 
xlsheet.Cells(6, 19) = TextBox15.Text 
xlsheet.Cells(6, 20) = TextBox16.Text 
xlsheet.Cells(6, 21) = ComboBox4.Text 
xlsheet.Cells(6, 22) = ComboBox5.Text 
xlwbook.Save  

The (6) relates to the row, when i add a new record all data is currently entered into the same cell and replaces the previous data. I need the 6 to become 7 and so on everytime the form is re completed.

I hope you understand what I am trying to say,

If anyone can help me out with this it will be very much appreciated.

Kind Regards

Jimmy

[pgag45]

How many rows do you want this executed for?

[dugpits]

jimmyquinn,

Not exactly sure if this is what you meant, but this may be something that will help you. This assumes you have a non-blank set of data in the second column...otherwise it will just find the first blank...and assuming your dataset starts in the first row...if not just change to match your data.

Please Login or Register  to view this content.

Hope it helps

Doug

[mudraker]

This gets the next vacant row and adds your data to that row

Please Login or Register  to view this content.

[royUK]

This will loop through all TextBoxes on the Form, writing the data to the next empty row. Presumably you have declared all your other variables

Please Login or Register  to view this content.