FMS Memo control

  • Thread starter Thread starter SHIPP
  • Start date Start date
S

SHIPP

I purchased the FMS suite for 2003 and am using the Memo enhancer. I am
trying to use the following code to save the RTF format as plain text in a
secondary memo field.

Private Sub Form_BeforeUpdate(Cancel As Integer)


'***************************************************************************************
'* PROGRAM : TRN
'* CREATED : 7/27/08
'* COMMENTS : Save the memo field in plain text.
'* PARAMETERS: -
'* RETURNS : -
'* CALLED BY :
'* MODIFIED :

'***************************************************************************************

On Error GoTo HandleErr
Const cstrProcName As String = "sfrmtblTRN - btnSaveTentativeRuling_Click"

Me.TrnHdrPlainText = Me.TrnHdr.Text
Me.TrnDtlPlainText = Me.TrnDtl.Text

ExitHere:
Exit Sub

HandleErr:
Select Case Err.Number
Case Else
MsgBox "Error " & Err.Number & ": " & Err.Description, vbCritical,
cstrProcName
End Select

End Sub

I receive the error "Method or Data Member Not Found" and the .text is
highlighted. I checked my references and FMS Total Access Memo 2002 Control
is checked. What else could be the problem?
 
SHIPP said:
I purchased the FMS suite for 2003 and am using the Memo enhancer. I am
trying to use the following code to save the RTF format as plain text in a
secondary memo field.

Private Sub Form_BeforeUpdate(Cancel As Integer)


'***************************************************************************************
'* PROGRAM : TRN
'* CREATED : 7/27/08
'* COMMENTS : Save the memo field in plain text.
'* PARAMETERS: -
'* RETURNS : -
'* CALLED BY :
'* MODIFIED :

'***************************************************************************************

On Error GoTo HandleErr
Const cstrProcName As String = "sfrmtblTRN -
btnSaveTentativeRuling_Click"

Me.TrnHdrPlainText = Me.TrnHdr.Text
Me.TrnDtlPlainText = Me.TrnDtl.Text

ExitHere:
Exit Sub

HandleErr:
Select Case Err.Number
Case Else
MsgBox "Error " & Err.Number & ": " & Err.Description, vbCritical,
cstrProcName
End Select

End Sub

I receive the error "Method or Data Member Not Found" and the .text is
highlighted. I checked my references and FMS Total Access Memo 2002
Control
is checked. What else could be the problem?
Click to expand...

So TrnHdr and TrnDtl are both FMS controls? Both say "FMS Total Access Memo
2003 Control" under OLE Class in the control's properties? And in
references, under FMS Total Access Memo, that refers to fmsmemo9.ocx?

If both of those are true, then there's no reason that it wouldn't work. Is
your project compiling correctly? Are there any other errors in your
reference list?

Neil
 
SHIPP said:
I purchased the FMS suite for 2003 and am using the Memo enhancer. I am
trying to use the following code to save the RTF format as plain text in a
secondary memo field.

Private Sub Form_BeforeUpdate(Cancel As Integer)


'***************************************************************************************
'* PROGRAM : TRN
'* CREATED : 7/27/08
'* COMMENTS : Save the memo field in plain text.
'* PARAMETERS: -
'* RETURNS : -
'* CALLED BY :
'* MODIFIED :

'***************************************************************************************

On Error GoTo HandleErr
Const cstrProcName As String = "sfrmtblTRN -
btnSaveTentativeRuling_Click"

Me.TrnHdrPlainText = Me.TrnHdr.Text
Me.TrnDtlPlainText = Me.TrnDtl.Text

ExitHere:
Exit Sub

HandleErr:
Select Case Err.Number
Case Else
MsgBox "Error " & Err.Number & ": " & Err.Description, vbCritical,
cstrProcName
End Select

End Sub

I receive the error "Method or Data Member Not Found" and the .text is
highlighted. I checked my references and FMS Total Access Memo 2002
Control
is checked. What else could be the problem?
Click to expand...

also, i assume you've posted this in the FMS forum? if not, then you most
definitely should.
 
Back
Top