Hi all
I have a drop down list of reset wordings that the user can select the presses insert which will then insert that working into a field on a form, all works good but it seems that if the default text goes over 240 characters it wont past it all into the field any suggestions?
I have a drop down list of reset wordings that the user can select the presses insert which will then insert that working into a field on a form, all works good but it seems that if the default text goes over 240 characters it wont past it all into the field any suggestions?
Code:
Public Function FUNC_BTNText()
Dim sText As String
sText = [Forms]![FRM_TBLALL_FullDetails]![SFRM_TBLALL_HRDetails].[Form]![Summary] & vbCrLf & [Forms]![FRM_TBLALL_FullDetails]![SFRM_TBLALL_HRDetails].[Form]![CmbDefaultText].Column(1)
If Len(sText) Then
sText = sText & Replace$([Forms]![FRM_TBLALL_FullDetails]![SFRM_TBLALL_HRDetails].[Form]![Summary].DefaultValue, """", "")
Else
sText = Replace$([Forms]![FRM_TBLALL_FullDetails]![SFRM_TBLALL_HRDetails].[Form]![Summary].DefaultValue, """", "")
End If
[Forms]![FRM_TBLALL_FullDetails]![SFRM_TBLALL_HRDetails].[Form]![Summary] = sText
[Forms]![FRM_TBLALL_FullDetails]![SFRM_TBLALL_HRDetails].[Form]![Summary].SetFocus
pfPositionCursor [Forms]![FRM_TBLALL_FullDetails]![SFRM_TBLALL_HRDetails].[Form]![Summary], Len([Forms]![FRM_TBLALL_FullDetails]![SFRM_TBLALL_HRDetails].[Form]![Summary] & "")
End Function