StackOverflow2013

Note that there are some explanatory texts on larger screens.

plurals

PO
primarykey
Id
18795867
data
AcceptedAnswerId
0
AnswerCount
0
ClosedDate
CommentCount
1
CommunityOwnedDate
CreationDate
2013-09-13T21:53:56.937
FavoriteCount
0
LastActivityDate
2013-09-13T21:53:56.937
LastEditDate
LastEditorUserId
0
OwnerUserId
167935
ParentId
18795263
PostTypeId
2
Score
1
ViewCount
0
LastEditorDisplayName
text
Body
<p>Create an Access Module and use the following code. Replace the values in the test sub with your table and destination names</p> <pre><code>Option Compare Database Option Explicit Function SplatTablesSql(pT1 As String, pT2 As String, pDest As String) Dim lDb As Database Dim lTd1 As TableDef, lTd2 As TableDef Dim lField As Field, lF2 As Field Dim lS1 As String, lS2 As String, lSep As String SplatTablesSql = "Select " lS1 = "Select " lS2 = "Select " Set lDb = CurrentDb Set lTd1 = lDb.TableDefs(pT1) Set lTd2 = lDb.TableDefs(pT2) For Each lField In lTd1.Fields SplatTablesSql = SplatTablesSql & lSep & "x.[" & lField.Name & "]" lS1 = lS1 & lSep & "a.[" & lField.Name & "]" Set lF2 = Nothing On Error Resume Next Set lF2 = lTd2.Fields(lField.Name) On Error GoTo 0 If lF2 Is Nothing Then lS2 = lS2 & lSep & "Null" Else lS2 = lS2 & lSep & "b.[" & lField.Name & "]" End If lSep = ", " Next For Each lField In lTd2.Fields Set lF2 = Nothing On Error Resume Next Set lF2 = lTd1.Fields(lField.Name) On Error GoTo 0 If lF2 Is Nothing Then SplatTablesSql = SplatTablesSql & lSep & "x.[" & lField.Name & "]" lS1 = lS1 & lSep & "Null as [" & lField.Name & "]" lS2 = lS2 & lSep & "b.[" & lField.Name & "]" End If lSep = ", " Next SplatTablesSql = SplatTablesSql & " Into [" & pDest & "] From ( " & lS1 & " From [" & pT1 & "] a Union All " & lS2 & " From [" & pT2 & "] b ) x" End Function Sub Test() CurrentDb.Execute SplatTablesSql("a", "b", "c") End Sub </code></pre>
Tags
Title
singulars
PostAcceptedAnswerId
1. This table or related slice is empty.
PostParentId
1. POHow to merge two database tables when only some fields are common?
  singulars
  PostTypePostTypeId
  PTQuestion
PostTypePostTypeId
1. PTAnswer
UserLastEditorUserId
1. This table or related slice is empty.
UserOwnerUserId
1. USLaurence
plurals
PostLinksPostIdRelatedPostId
1. This table or related slice is empty.
PostLinksRelatedPostIdPostId
1. This table or related slice is empty.
PostsAcceptedAnswerId
1. POHow to merge two database tables when only some fields are common?
  singulars
  PostTypePostTypeId
  PTQuestion
PostsParentIdCreationDate
1. This table or related slice is empty.
VotesPostIdCreationDate
1. VO
  singulars
  PostPostId
  PO
  UserUserId
  This table or related slice is empty.
  VoteTypeVoteTypeId
  VTUpMod
2. VO
  singulars
  PostPostId
  PO
  UserUserId
  This table or related slice is empty.
  VoteTypeVoteTypeId
  VTAcceptedByOriginator
CommentsPostId
1. COTested: It works!
  singulars
  PostPostId
  PO
  UserUserId
  USapalopohapa

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.