Marie
May 18th, 2000, 03:48 AM
OK! Here goes.
In the first code segment I need to find out how to select field B.UserName and attach a carrage return if possible for formatting purposes.
Set rstGetUser = dbs.OpenRecordset("SELECT DISTINCTROW B.UserName, & Chr$(13) & As UserName, A.DateUpdated, " _
& "format(A.DateUpdated,""mmm d, yyyy"") & chr$(13) & format(A.DateUpdated,""hh:mm AMPM"") As Dateup " _
& "FROM Users As B INNER JOIN indNotes As A ON B.UserID = A.UpdatedBy " _
& "WHERE A.ID = " & Str$(individualID))
Then with this code segment I need to select two rstfields (rstGetUser!UserName & rstGetUser!Dateup) from the above rst and assign them to a name for this Data Recordset so that I can attach that field to a Grid control without using unbound columns.
Data11.RecordSource = "SELECT DISTINCTROW B.UserID, " & rstGetUser!UserName & rstGetUser!Dateup & " As Dateup, " _
& "A.Note, A.NoteID FROM Users As B INNER JOIN indNotes As A ON B.UserID = A.UpdatedBy " _
& "WHERE A.ID = " & Str$(individualID) & "And A.Private = False Order By A.DateUpdated Desc"
In the first code segment I need to find out how to select field B.UserName and attach a carrage return if possible for formatting purposes.
Set rstGetUser = dbs.OpenRecordset("SELECT DISTINCTROW B.UserName, & Chr$(13) & As UserName, A.DateUpdated, " _
& "format(A.DateUpdated,""mmm d, yyyy"") & chr$(13) & format(A.DateUpdated,""hh:mm AMPM"") As Dateup " _
& "FROM Users As B INNER JOIN indNotes As A ON B.UserID = A.UpdatedBy " _
& "WHERE A.ID = " & Str$(individualID))
Then with this code segment I need to select two rstfields (rstGetUser!UserName & rstGetUser!Dateup) from the above rst and assign them to a name for this Data Recordset so that I can attach that field to a Grid control without using unbound columns.
Data11.RecordSource = "SELECT DISTINCTROW B.UserID, " & rstGetUser!UserName & rstGetUser!Dateup & " As Dateup, " _
& "A.Note, A.NoteID FROM Users As B INNER JOIN indNotes As A ON B.UserID = A.UpdatedBy " _
& "WHERE A.ID = " & Str$(individualID) & "And A.Private = False Order By A.DateUpdated Desc"