Solved

XArrayDB of Apex True DB Grid

Posted on 2001-07-27
5
1,366 Views
Last Modified: 2012-05-07
I seems to be having problems. On the load event of a form I am filling the XArrayDB of the grid. I check in that same load event and after a rebind and update stuff is where it's suppose to be and I have the correct row count and everything seems hunky dory. But when I access the array from a differerant event I get the correct row count(which is good) but when I check any of the array values I get an 'Object Required' error.

Any ideas??

signed it's been a long day
0
Comment
Question by:thenrich
5 Comments
 
LVL 39

Expert Comment

by:appari
ID: 6329178
if possible post the code from form_load event and the other event where you are checking the values.

RAO
0
 
LVL 5

Author Comment

by:thenrich
ID: 6329808
Dim rowCounter, colCounter, xlCounter As Long
Dim tempStr As String
  rowCounter = 0
  xlCounter = 18
 
  Do Until xlSheet.Cells(xlCounter, 1) = ""
     For colCounter = 0 To 17
        If colCounter = 0 Then
           If InStr(xlSheet.Cells(xlCounter - 1, 3), "non-Extruded") <> 0 Then
              xXarray(rowCounter, colCounter) = "No"
           Else
              xXarray(rowCounter, colCounter) = "Yes"
           End If
        ElseIf colCounter = 1 Then
            xXarray(rowCounter, colCounter) = xlSheet.Cells(xlCounter - 1, 2)
        ElseIf colCounter = 2 Then
           temp = Len(xlSheet.Cells(xlCounter - 3, 3)) - InStr(xlSheet.Cells(xlCounter - 3, 3), "-")
           tempStr = Trim(Right(xlSheet.Cells(xlCounter - 3, 3), temp))
           temp = Len(tempStr) - InStrRev(tempStr, "-")
           tempStr = Trim(Right(tempStr, temp))
           xXarray(rowCounter, colCounter) = tempStr
        ElseIf colCounter > 7 Then
           If colCounter = 15 Then
              If Not xlSheet.Cells(xlCounter - 2, 2) = "" Then
                 xXarray(rowCounter, colCounter) = xlSheet.Cells(xlCounter - 2, 2)
                 temp = InStr(xlSheet.Cells(xlCounter - 2, 2), "P")
                 tempStr = Trim(Left(xlSheet.Cells(xlCounter - 2, 2), temp - 1))
                 xXarray(rowCounter, colCounter + 1) = tempStr
              End If
              colCounter = colCounter + 1
           Else
              xXarray(rowCounter, colCounter) = xlSheet.Cells(xlCounter - 2, 2)
           End If
        Else
           xXarray(rowCounter, colCounter) = xlSheet.Cells(xlCounter - 2, 2)
        End If
        xlCounter = xlCounter + 1
     Next
     For xlCounter = xlCounter To xlCounter + 37
        If Not xlSheet.Cells(xlCounter, 1) = "" Then
           xXarray.AppendRows (1)
           rowCounter = rowCounter + 1
           Exit For
        End If
     Next
  Loop
 
        temp = xXarray(0, 8)
        temp = xXarray(1, 8)
0
 
LVL 5

Author Comment

by:thenrich
ID: 6528063
have not got an answer
0
 
LVL 49

Expert Comment

by:DanRollins
ID: 7088576
Hi thenrich,
You've requested to delete this question, but its status has remained as 'Pending Delete' because one or more comments have been added.  Normally, the only way to fully delete such a Question is to post a message to Community Support and ask for assistance.

EE is making a one-time database sweep to purge the Pending Delete Questions automatically.  During this sweep:

    thenrich -- To allow the deletion to proceed:  Do nothing.
    EXPERTS -- Please DON'T POST a comment except to contest this deletion.

In the future, please refer to http://www.experts-exchange.com/jsp/cmtyHelpDesk.jsp#8 for instruction on deleting questions.

DanRollins -- EE database cleanup volunteer
0
 
LVL 1

Accepted Solution

by:
Moondancer earned 0 total points
ID: 7093818
200 points refunded, item closed.  Needed response not received.
Moondancer - EE Moderator
0

Featured Post

Free Tool: SSL Checker

Scans your site and returns information about your SSL implementation and certificate. Helpful for debugging and validating your SSL configuration.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

Title # Comments Views Activity
Updates not working for MS Windows 7 12 183
MsgBox 2 59
Run code from text file in vb 1 74
Search combo error "Data Type Mismatch in Criteria Expression" 2 71
Introduction While answering a recent question (http://www.experts-exchange.com/Q_27402310.html) in the VB classic zone, I wrote some VB code in the (Office) VBA environment, rather than fire up my older PC.  I didn't post completely correct code o…
When designing a form there are several BorderStyles to choose from, all of which can be classified as either 'Fixed' or 'Sizable' and I'd guess that 'Fixed Single' or one of the other fixed types is the most popular choice. I assume it's the most p…
Get people started with the process of using Access VBA to control Excel using automation, Microsoft Access can control other applications. An example is the ability to programmatically talk to Excel. Using automation, an Access application can laun…
Show developers how to use a criteria form to limit the data that appears on an Access report. It is a common requirement that users can specify the criteria for a report at runtime. The easiest way to accomplish this is using a criteria form that a…

820 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question