|
| If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below. |
|
|||||||
|
|
Thread Tools | Search this Thread | Display Modes |
|
#1
March 20th 07, 03:43 PM
posted to microsoft.public.outlook.program_vba
|
|||
|
|||
Counter stops at 6
Hi,
I have creeated a custom task form that populates a variable number of fields from an excel sheet. I have fields on the form labeled PO1; PO2; PO3; etc. and I use a counter to identify the next field to populate. (seen below) Do While cust1 = ActiveSheet.Cells(row1 + 6, 3) And prod1 = ActiveSheet.Cells(row1 + 6, 6) row1 = row1 + 6 counter = counter + 1 .UserProperties("PO Number" & counter).Value = ActiveSheet.Cells(row1, 2) .UserProperties("QTY" & counter).Value = ActiveSheet.Cells(row1, 10) MyItem.GetInspector.ModifiedFormPages("POs Affected").Controls("PO Number" & counter).Visible = True MyItem.GetInspector.ModifiedFormPages("POs Affected").Controls("QTY" & counter).Visible = True Loop My fileds are named correctly; my row counting is correct; and the counter works from PO1 to PO5. However, the macro hits an error on PO6 and stops. Any ideas why it stops at 6? THank you. 
|
| Ads |
|
#2
March 21st 07, 06:51 AM
posted to microsoft.public.outlook.program_vba
|
|||
|
|||
|
Counter stops at 6
What does the error message say? -- Viele Gruesse / Best regards Michael Bauer - MVP Outlook Quick-Cats - The most effective way to assign Outlook categories: http://www.shareit.com/product.html?...4&languageid=1 (German: http://www.VBOffice.net/product.html?pub=6) Am Tue, 20 Mar 2007 07:43:05 -0700 schrieb greg: Hi, I have creeated a custom task form that populates a variable number of fields from an excel sheet. I have fields on the form labeled PO1; PO2; PO3; etc. and I use a counter to identify the next field to populate. (seen below) Do While cust1 = ActiveSheet.Cells(row1 + 6, 3) And prod1 = ActiveSheet.Cells(row1 + 6, 6) row1 = row1 + 6 counter = counter + 1 .UserProperties("PO Number" & counter).Value = ActiveSheet.Cells(row1, 2) .UserProperties("QTY" & counter).Value = ActiveSheet.Cells(row1, 10) MyItem.GetInspector.ModifiedFormPages("POs Affected").Controls("PO Number" & counter).Visible = True MyItem.GetInspector.ModifiedFormPages("POs Affected").Controls("QTY" & counter).Visible = True Loop My fileds are named correctly; my row counting is correct; and the counter works from PO1 to PO5. However, the macro hits an error on PO6 and stops. Any ideas why it stops at 6? THank you.
|
|
#3
March 21st 07, 03:20 PM
posted to microsoft.public.outlook.program_vba
|
|||
|
|||
|
Counter stops at 6
I recieve the error message:
"Run-time error '91': Object variable or With block variable not set" I hit this error on the sixth time through the loop on the ..UserProperties("PO Number"..........line. "Michael Bauer [MVP - Outlook]" wrote: What does the error message say? -- Viele Gruesse / Best regards Michael Bauer - MVP Outlook Quick-Cats - The most effective way to assign Outlook categories: http://www.shareit.com/product.html?...4&languageid=1 (German: http://www.VBOffice.net/product.html?pub=6) Am Tue, 20 Mar 2007 07:43:05 -0700 schrieb greg: Hi, I have creeated a custom task form that populates a variable number of fields from an excel sheet. I have fields on the form labeled PO1; PO2; PO3; etc. and I use a counter to identify the next field to populate. (seen below) Do While cust1 = ActiveSheet.Cells(row1 + 6, 3) And prod1 = ActiveSheet.Cells(row1 + 6, 6) row1 = row1 + 6 counter = counter + 1 .UserProperties("PO Number" & counter).Value = ActiveSheet.Cells(row1, 2) .UserProperties("QTY" & counter).Value = ActiveSheet.Cells(row1, 10) MyItem.GetInspector.ModifiedFormPages("POs Affected").Controls("PO Number" & counter).Visible = True MyItem.GetInspector.ModifiedFormPages("POs Affected").Controls("QTY" & counter).Visible = True Loop My fileds are named correctly; my row counting is correct; and the counter works from PO1 to PO5. However, the macro hits an error on PO6 and stops. Any ideas why it stops at 6? THank you.
|
|
#4
March 22nd 07, 07:13 AM
posted to microsoft.public.outlook.program_vba
|
|||
|
|||
|
Counter stops at 6
Ok, that means that .UserProperties("PO Number" & 6) doesn't exist. -- Viele Gruesse / Best regards Michael Bauer - MVP Outlook Quick-Cats - The most effective way to assign Outlook categories: http://www.shareit.com/product.html?...4&languageid=1 (German: http://www.VBOffice.net/product.html?pub=6) Am Wed, 21 Mar 2007 07:20:50 -0700 schrieb greg: I recieve the error message: "Run-time error '91': Object variable or With block variable not set" I hit this error on the sixth time through the loop on the .UserProperties("PO Number"..........line. "Michael Bauer [MVP - Outlook]" wrote: What does the error message say? -- Viele Gruesse / Best regards Michael Bauer - MVP Outlook Quick-Cats - The most effective way to assign Outlook categories: http://www.shareit.com/product.html?...4&languageid=1 (German: http://www.VBOffice.net/product.html?pub=6) Am Tue, 20 Mar 2007 07:43:05 -0700 schrieb greg: Hi, I have creeated a custom task form that populates a variable number of fields from an excel sheet. I have fields on the form labeled PO1; PO2; PO3; etc. and I use a counter to identify the next field to populate. (seen below) Do While cust1 = ActiveSheet.Cells(row1 + 6, 3) And prod1 = ActiveSheet.Cells(row1 + 6, 6) row1 = row1 + 6 counter = counter + 1 .UserProperties("PO Number" & counter).Value = ActiveSheet.Cells(row1, 2) .UserProperties("QTY" & counter).Value = ActiveSheet.Cells(row1, 10) MyItem.GetInspector.ModifiedFormPages("POs Affected").Controls("PO Number" & counter).Visible = True MyItem.GetInspector.ModifiedFormPages("POs Affected").Controls("QTY" & counter).Visible = True Loop My fileds are named correctly; my row counting is correct; and the counter works from PO1 to PO5. However, the macro hits an error on PO6 and stops. Any ideas why it stops at 6? THank you.
|
|
#5
March 22nd 07, 04:25 PM
posted to microsoft.public.outlook.program_vba
|
|||
|
|||
|
Counter stops at 6
It was issue with the custom form. My problem has been resolved
"greg" wrote: Hi, I have creeated a custom task form that populates a variable number of fields from an excel sheet. I have fields on the form labeled PO1; PO2; PO3; etc. and I use a counter to identify the next field to populate. (seen below) Do While cust1 = ActiveSheet.Cells(row1 + 6, 3) And prod1 = ActiveSheet.Cells(row1 + 6, 6) row1 = row1 + 6 counter = counter + 1 .UserProperties("PO Number" & counter).Value = ActiveSheet.Cells(row1, 2) .UserProperties("QTY" & counter).Value = ActiveSheet.Cells(row1, 10) MyItem.GetInspector.ModifiedFormPages("POs Affected").Controls("PO Number" & counter).Visible = True MyItem.GetInspector.ModifiedFormPages("POs Affected").Controls("QTY" & counter).Visible = True Loop My fileds are named correctly; my row counting is correct; and the counter works from PO1 to PO5. However, the macro hits an error on PO6 and stops. Any ideas why it stops at 6? THank you.
|
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Thread Starter | Forum | Replies | Last Post |
| Character Counter | Paltrinieri Alejandro | Outlook - Using Forms | 0 | March 14th 07 07:02 PM |
| Calendar stops working | easouza | Outlook - Calandaring | 1 | February 23rd 07 06:50 AM |
| Newsgroups unread items counter | Rostislav Yevdyukhin | Outlook - General Queries | 2 | October 20th 06 11:42 AM |
| Outlook 2004- where is counter for contact number of address? | bpulpit | Outlook - Using Contacts | 1 | October 17th 06 10:00 PM |
| how do i make a counter in an outlook form? | Wassan | Outlook - Using Forms | 1 | May 27th 06 03:21 PM |
Linear Mode
