D
Dabaum
I have a listbox that shows the Time a note was written, the EntryType
whether the source of the note is an Email saint/recieved, letter
setn/recieved, phone call S/R etc and then the First 8 characters from the
Note. Users can then select a note based on when they wrote to Whom it was
concerning, and the Content of the note.
However recently it spazzed out and now on one record (yes it works on
everything but one) it selects the first item in the listbox when I select
the last one.
The lstbox is populated by a query on the notesTable.
******* RecordSource for the Listbox.
Public Sub UpdateList()
On Error GoTo UpdateListError
' If IsNull(Forms!frmPropertiesNew!ID) Then ' removed 16 Sep
2003, did not get to clear lstDates
' Exit Sub
' End If
strSQL = "SELECT PropertyID, NoteDate, MemoPart, EntryType, RER,
Contacts " & _
"FROM tblPropertiesUpdates " & _
"WHERE (PropertyID = " & [Forms]![frmPropertiesNew]![ID] & ") "
& _
"ORDER BY NoteDate desc" ' SMRF 6392 - 13
October 2000 - Ruth Radmall
Me.lstDates.RowSource = strSQL
Me.lstDates.Requery
Me.Memo.SetFocus
Exit Sub
UpdateListError:
MsgBox Err.Number & " " & Err.Description
End Sub
*********When I click on a listbox item.
Private Sub lstDates_AfterUpdate()
On Error Resume Next
Dim strSQL As String
Me.RecordsetClone.FindFirst "PropertyID= " & Me.lstDates.Column(0) _
& " AND NoteDate= #" & Me.lstDates.Column(1)
& "#" _
& " AND MemoPart = '" &
Me.lstDates.Column(2) & "'"
Me.Bookmark = Me.RecordsetClone.Bookmark
Me.lstDates.SetFocus
End Sub
whether the source of the note is an Email saint/recieved, letter
setn/recieved, phone call S/R etc and then the First 8 characters from the
Note. Users can then select a note based on when they wrote to Whom it was
concerning, and the Content of the note.
However recently it spazzed out and now on one record (yes it works on
everything but one) it selects the first item in the listbox when I select
the last one.
The lstbox is populated by a query on the notesTable.
******* RecordSource for the Listbox.
Public Sub UpdateList()
On Error GoTo UpdateListError
' If IsNull(Forms!frmPropertiesNew!ID) Then ' removed 16 Sep
2003, did not get to clear lstDates
' Exit Sub
' End If
strSQL = "SELECT PropertyID, NoteDate, MemoPart, EntryType, RER,
Contacts " & _
"FROM tblPropertiesUpdates " & _
"WHERE (PropertyID = " & [Forms]![frmPropertiesNew]![ID] & ") "
& _
"ORDER BY NoteDate desc" ' SMRF 6392 - 13
October 2000 - Ruth Radmall
Me.lstDates.RowSource = strSQL
Me.lstDates.Requery
Me.Memo.SetFocus
Exit Sub
UpdateListError:
MsgBox Err.Number & " " & Err.Description
End Sub
*********When I click on a listbox item.
Private Sub lstDates_AfterUpdate()
On Error Resume Next
Dim strSQL As String
Me.RecordsetClone.FindFirst "PropertyID= " & Me.lstDates.Column(0) _
& " AND NoteDate= #" & Me.lstDates.Column(1)
& "#" _
& " AND MemoPart = '" &
Me.lstDates.Column(2) & "'"
Me.Bookmark = Me.RecordsetClone.Bookmark
Me.lstDates.SetFocus
End Sub