Ok, a little more info (this is a PITA, since I don't have Win2007 installed).
.ActiveSheet.Shapes("Text Box 2").Select
.Selection.Characters.Text = Mid(txtBHEnvFactors.Text, 1, 200)
Do Until i > Len(txtBHEnvFactors.Text)
i = i + 200...
Howdy folks,
Got an existing VBA app that runs an export to excel. Works perfectly fine in excel 2003, fortunately one of my testers has recently had Office 2007 installed and when testing, gets the 'Run-time error 1004, Unable to get the Characters property of the Textbox class.'
Do Until i...
Thanks to everyone for their assistance, I got the issue resolved. It's basically Andy's code with some variation that you can see if you cut and paste into a new form. I had existing indices that I also had to capture and place in the row, although the columns are not consecutive. Works...
Peter,
Yes it does. I'm trying to use Andy's method. Right now the user can select from a combo box a value which sets up the selection criteria for the second column list box. Once the selection(s) are made in the list box in the second column, I need to populate the grid with the first...
Andy, thanks for jumping on that, and you got most of it right off the bat. The only thing I'm not getting is how to iterate each row. With your response, how do I take the first new row, add it with the selection, then continue until the fifth selection?
Checked the FAQs and came up empty, so if this has been done before, please set me straight.
In a nutshell, I'm using a multi-select list box, the second column in the grid (the data displayed based on the selection in the first column, a combobox). When I select multiple items, I need to add...
Score! Thanks tsuji, that did the trick. Only had one glitch, which was I needed to preface the while with the parent element:
If xtr.Name "Quote_Coverages" then
then the readtofollowing "Quote_Coverage" and the rest worked perfectly.
Thanks again.
I'm using XMLReader, so far so good. However, my problem is I need to parse out a subnode and cannot figure out how to use the XMLReader to do that.
My code:
If xtr.Name = "Quote_Coverage" Then
xtr.MoveToAttribute("Quote_Coverage_Id")
xml_MessageArray.Quote_Coverage_Id = xtr.Value...
Wow, nobody likes the Out of Stack Space prob. I have read up on SS problems and verified that I do not have any recursive functions running. This problem may just be a hosed CR install. I'm reloading. Thanks for reading.
Hello all,
I'm looking for some ideas for a problem that has just manifested itself. I have a CR that worked perfectly fine yesterday. Today I made some changes to it, basically overhauling data elements. When I open my project using VB, and run the report, it works.
If I close the app to...
Hi all, VB6 - CR9 DE.
I need to print reports with multiple pages, in this case an auditor can have numerous audits assigned to them, each with it's own auditnumber.
The following code gets the criteria the reports will be based on, in this case get all audits requested for an auditor and...
Thanks for the help guys, that line of code does work, however, I found that I can still pass the parameter via the stored procedure when I use the following code after setting mrsDataSet as an ADOR.Recordset.
crReport.Database.SetDataSource mrsDataSet
I stumbled upon this fix Sunday...
Forgive me if I'm flogging a dead horse, but everywhere I've searched I find the .Net solution and not VB6. Using VB6 and CR9, using a stored procedure. When I select the SP in my report, it automatically creates a parameter which means I get the parameter prompt at run time. How do I...
Ok, some of this worked, some didn't, but here's what I have so far:
left({SPName;1.DateRange},instr({SPName;1.DateRange},"-")-1)
gets me 200410.
right({@sFirstDateRange},2) & "/" & left({@sFirstDateRange},4) gets me 10/2004 and then cdate({@sFirstDateRangeConverted}) gets me 10/1/2004. How...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.