StackOverflow2013

Note that there are some explanatory texts on larger screens.

plurals

PO
primarykey
Id
20664702
data
AcceptedAnswerId
0
AnswerCount
0
ClosedDate
CommentCount
1
CommunityOwnedDate
CreationDate
2013-12-18T17:33:43.340
FavoriteCount
0
LastActivityDate
2013-12-18T17:33:43.340
LastEditDate
LastEditorUserId
0
OwnerUserId
0
ParentId
20489594
PostTypeId
2
Score
2
ViewCount
0
LastEditorDisplayName
text
Body
After some thinking create a Class module and name it <code>Location</code> this is the code to use in the class module <pre><code>Option Explicit Public LocationID As String Public Description As String Public ZoneID As String Public IsntEmpty As Boolean Public LastPalletArrivedTime As Date Public PalletID As String Public Sequence As Long Public Property Let Item(index As Long, value As Variant) Select Case index Case 1 LocationID = value Case 2 Description = value Case 3 ZoneID = value Case 4 IsntEmpty = value Case 5 LastPalletArrivedTime = value Case 6 PalletID = value Case 7 Sequence = value End Select End Property Public Property Get Item(index As Long) As Variant Select Case index Case 1 Item = LocationID Case 2 Item = Description Case 3 Item = ZoneID Case 4 Item = IsntEmpty Case 5 Item = LastPalletArrivedTime Case 6 Item = PalletID Case 7 Item = Sequence End Select End Property </code></pre> this is a standard Module1 for testing (note the commented section) <pre><code>Option Explicit Sub Main() Dim myLoc As Location Set myLoc = New Location Dim i As Long '//////////////// ' SAMPLE filling For i = 1 To 7 ' covering BOOLEAN If i = 4 Then myLoc.Item(i) = False ' covering DATE ElseIf i = 5 Then myLoc.Item(i) = Now ' covering LONG ElseIf i = 7 Then myLoc.Item(i) = i ' convering STRING Else myLoc.Item(i) = CStr("property " & i) End If Next i '/////////// ' PRINTING For i = 1 To 7 Debug.Print "property:" & i, myLoc.Item(i) Next i '///////////////// ' pay attention ' this is what you could do ' this section is commented as Im unable to test it ' but this should work for you ' create a collection ' Dim c As Collection ' Set c = New Collection ' ' Dim x As Long ' For x = 1 To UBound(TextFileLine()) ' Dim loc As Location ' Set loc = New Location ' ' For i = 1 To 7 ' loc.Item(i) = SplitTextLines(x, i - 1) ' Next i ' ' c.Add loc ' Next x ' ' ' now if you wanted to retrieve the data ' ' you iterate over the collection ' ' For i = 1 To c.Count ' For j = 1 To 7 ' Debug.Print c.Item(i).Item(j) ' Next j ' Next c End Sub </code></pre>
Tags
Title
singulars
PostAcceptedAnswerId
1. This table or related slice is empty.
PostParentId
1. POData structure which needs to be filled in VBA
 singulars
 PostTypePostTypeId
 PTQuestion
PostTypePostTypeId
1. PTAnswer
UserLastEditorUserId
1. This table or related slice is empty.
UserOwnerUserId
1. This table or related slice is empty.
plurals
PostLinksPostIdRelatedPostId
1. This table or related slice is empty.
PostLinksRelatedPostIdPostId
1. This table or related slice is empty.
PostsAcceptedAnswerId
1. POData structure which needs to be filled in VBA
 singulars
 PostTypePostTypeId
 PTQuestion
PostsParentIdCreationDate
1. This table or related slice is empty.
VotesPostIdCreationDate
1. This table or related slice is empty.
CommentsPostId
1. This table or related slice is empty.

Querying!

Guidance

A row detail

Detail views are divided into sections. All the information in the data section comes from columns in the selected row. The other sections display data from other, related rows.

Related data can be related in a to-one or a to-many fashion. Captions of data related in a to-many fashion link to a list view showing a filtered view of the table.

Try moving around until you find a non-empty to-many entry and click on the label to get to one. You can move back to the root by clicking on the database name in the header.