StackOverflow2013

Note that there are some explanatory texts on larger screens.

plurals

PO
primarykey
Id
4855980
data
AcceptedAnswerId
0
AnswerCount
0
ClosedDate
CommentCount
1
CommunityOwnedDate
CreationDate
2011-01-31T20:53:51.303
FavoriteCount
0
LastActivityDate
2011-01-31T20:53:51.303
LastEditDate
LastEditorUserId
0
OwnerUserId
4280
ParentId
4852991
PostTypeId
2
Score
0
ViewCount
0
LastEditorDisplayName
text
Body
<pre><code>Private Sub getOutlookContacts() Dim i As Integer Dim oOutlookApp As Outlook.Application Dim oOutlookNameSpace As Outlook.NameSpace Dim oContacts As Outlook.MAPIFolder Dim oContact As Outlook.ContactItem Dim vaContacts As Variant On Error Resume Next Set oOutlookApp = New Outlook.Application Set oOutlookNameSpace = oOutlookApp.GetNamespace("MAPI") 'Get the contactfolder Set oContacts = oOutlookNameSpace.GetDefaultFolder(olFolderContacts) Set oContact = oContacts.Items ReDim vaContacts(0 To oContacts.Items.Count - 1, 0 To 1) 'oContacts.Sort "[FullName]", False, olAscending For Each oContact In oContacts.Items vaContacts(i, 0) = oContact.FullName vaContacts(i, 1) = oContact.BusinessAddress i = i + 1 Next oContact SortArray vaContacts Me.ListBox1.Clear Me.ListBox1.List = vaContacts Set oContact = Nothing Set oContacts = Nothing Set oOutlookNameSpace = Nothing Set oOutlookApp = Nothing End Sub Private Sub SortArray(ByRef vaArray As Variant) Dim i As Long Dim j As Long Dim sTemp As String Dim sTemp2 As String 'Bubble sort the array on the first value For i = LBound(vaArray, 1) To UBound(vaArray, 1) - 1 For j = i + 1 To UBound(vaArray, 1) If vaArray(i, 0) > vaArray(j, 0) Then 'Swap the first value sTemp = vaArray(i, 0) vaArray(i, 0) = vaArray(j, 0) vaArray(j, 0) = sTemp 'Swap the second value sTemp2 = vaArray(i, 1) vaArray(i, 1) = vaArray(j, 1) vaArray(j, 1) = sTemp2 End If Next j Next i End Sub </code></pre> <p>See also <a href="http://www.dailydoseofexcel.com/archives/2004/05/24/sorting-a-multicolumn-listbox/" rel="nofollow">http://www.dailydoseofexcel.com/archives/2004/05/24/sorting-a-multicolumn-listbox/</a></p>
Tags
Title
singulars
PostAcceptedAnswerId
1. This table or related slice is empty.
PostParentId
1. POVBA sort a listbox of outlook contacts
  singulars
  PostTypePostTypeId
  PTQuestion
PostTypePostTypeId
1. PTAnswer
UserLastEditorUserId
1. This table or related slice is empty.
UserOwnerUserId
1. USDick Kusleika
plurals
PostLinksPostIdRelatedPostId
1. This table or related slice is empty.
PostLinksRelatedPostIdPostId
1. This table or related slice is empty.
PostsAcceptedAnswerId
1. This table or related slice is empty.
PostsParentIdCreationDate
1. This table or related slice is empty.
VotesPostIdCreationDate
1. This table or related slice is empty.
CommentsPostId
1. CODepending on the size of the list/how responsive it needs to be, there's the possibility that a faster sort (Merge or Quick) might be more appropriate?
  singulars
  PostPostId
  PO
  UserUserId
  USSimon Cowen

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.