Solved

XArrayDB of Apex True DB Grid

Posted on 2001-07-27
5
1,337 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

Highfive + Dolby Voice = No More Audio Complaints!

Poor audio quality is one of the top reasons people don’t use video conferencing. Get the crispest, clearest audio powered by Dolby Voice in every meeting. Highfive and Dolby Voice deliver the best video conferencing and audio experience for every meeting and every room.

Join & Write a Comment

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…
Article by: Martin
Here are a few simple, working, games that you can use as-is or as the basis for your own games. Tic-Tac-Toe This is one of the simplest of all games.   The game allows for a choice of who goes first and keeps track of the number of wins for…
Get people started with the utilization of class modules. Class modules can be a powerful tool in Microsoft Access. They allow you to create self-contained objects that encapsulate functionality. They can easily hide the complexity of a process from…
This lesson covers basic error handling code in Microsoft Excel using VBA. This is the first lesson in a 3-part series that uses code to loop through an Excel spreadsheet in VBA and then fix errors, taking advantage of error handling code. This l…

758 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

Need Help in Real-Time?

Connect with top rated Experts

21 Experts available now in Live!

Get 1:1 Help Now