adding 2 functions

[fishqqq]

Can someone tell me what i'm missing here? i wish to add the 2nd
function [Me.Notes] to the first but i know i'm missing something
between the two i just don't know what?

suggestions are appreciated...



Private Sub Combo235_AfterUpdate()
Me.Notes__internal_tracking_ = Now() & " - " & Forms![Shipment Tracking
II]![fCurrentUser]![USER CODE] & " - " & "*** " & [Combo235] & " ***" &
" - " & "" & vbCrLf & Me.Notes__internal_tracking_

Me.Notes__internal_tracking_.SetFocus
Me.Notes__internal_tracking_.SelStart = 27

'something missing here???

Me.Notes_ = Now() & " - " & Forms![Shipment Tracking
II]![fCurrentUser]![USER CODE] & " - " & "*** " & [Combo235] & " ***" &
" - " & "" & vbCrLf & Me.Notes_

Me.Notes_.SetFocus
Me.Notes_.SelStart = 27

End Sub

 

[Michel Walsh]

Hi,


There are 2 expressions,
Me.Notes__internal_tracking_

and
Me.Notes_

and the last one refers to itself, not to the first one. Should it not be:

Me.Notes_ = Now() & " - " & Forms![Shipment Tracking
II]![fCurrentUser]![USER CODE] & " - " & "*** " & [Combo235] & " ***" & " -
" & "" & vbCrLf & Me.Notes__internal_tracking_


Hoping it may help,
Vanderghast, Access MVP