Recent content by jtheis

vongrunt, Perfect! That works exactly how I need it to work. Definitely worth a star!

I am trying to figure out how to delete one instance of a redundant row from a table with a single column. For example, in table QueuedLoads I have one column, LoadNumber. The value in LoadNumber can (and will often be) the same as other rows in the table. Table: QueuedLoads LoadNumber...

tsuji, Thank you for being so patient on this one. Yes, I now understand the problem with using () and I will never use them again! I also understand that CLng can only be used on the individual elements of the array and not on the entire array. My question now - since I can convert each...

tsuji, OK, I think I understand what you're getting at. When I take out the (), I get the type mismatch because SyncWrite is expecting that NumItems, svrHdls, and Errors will all be Long and OutValues will be Variants. I think the only one that would be right by default is the OutValues...

I've got an update on this one. Instead of using .AddItems, I made a loop and used .AddItem instead. So where I had Group.OPCItems.AddItems NumItems, szItems(), clntHdls(), svrHdls(), Errors() I now have For I = 0 To NumItems szItem = szItems(I) clntHdl = clntHdls(I)...

tsuji, Thanks for the link. I'll read up on it and post back with my results. Joe

tsuji, I agree that the arrays would be empty, or uninitialized, if I didn't ReDim them. What I meant was that omitting the () in the .AddItems is the kind of thing I'm used to seeing as being different between VB and VBScript. For grins, I did take the ReDim statements out. I get the out of...

tsuji, Good idea, but I get a type mismatch error without the (). That seems like the kind of thing that would be different between VB and VBScript. Thanks! Joe

tsuji, Thanks for reminding me. I had checked the UBound before on all of them and got a 48 back. I double checked and for all of the arrays they come back with a 0 for the LBound and 48 for the UBound. So now I have confirmation that the arrays are all 49 elements (0 to 48) but I still...

Sheco, Time for me to ask another stupid question - how would I know if it is going from 0 to 47 instead of 1 to 48? Is there something I could write to check this? If I understand what I've read about arrays, since I ReDim'd the arrays to NumItems, it should be creating the dynamic array...

I'm getting a "subscript out of range error" in my script at the following line Groups.OPCItems.AddItems NumItems, szItems(), clntHdls(), svrHdls(), Errors() Before this line is called I do the following Set objServer = CreateObject("OPC.Automation") Set Groups =...

PHV, You had it right, I just didn't understand at first what you meant in your reply. What I needed to add at the end of the MODULE function was Call_ShowLoadBuildDlg = bolShowLoadBuildDlg Then in my CLASS MODULE function I added vbsShowLoadBuildDlg = modHTS2.Call_ShowLoadBuildDlg And...

PHV, Sorry, I left out that the vbsShowLoadBuildDlg always returns a False value for Result. earthandfire, I use the 1 because if I leave it as the variable LoadNo it doesn't do anything because LoadNo does not have a value at the time that it is called. I apologize in advance if I'm...

I've got what I think is an unusual question. I have a very messy situation with multiple languages and trying to pass info from one to the other. Here's the short version. I use VBScript to call a function in a VB6 .dll file. The VB6 .dll calls an old Delphi .dll and the Delphi .dll spits...

Yes, I'm a little slow today. I just figured out what is happening there. So basically what needs to happen is that the decimal number (13600) needs to be dvided by 256 (number of ASCII characters) and the whole number returned is the first character. The remainder is then the second...