[AccessD] Blanks in text box

Rocky,

    You wish to trap the trailing spaces in a text box, while using its contents for applying filter. This calls for certain special measures as trailing spaces (if any) get lost while exiting the text box.

    Sample code in form's module, as given below, demonstrates application of filter on a subform, duly taking into account the contents of text box (including trailing spaces if any) located on the parent form.

Best wishes,
A.D.Tejpal
------------

Sample code in form's module
Txt1 is the name of text box where criteria string is
entered. SF_Sub is the name of control holding the
subform. Clicking command button named CmdFilter
applies filter on subform records - duly taking into
account the trailing blanks (if any) in text box Txt1
PCode is the name of field on which filter is applied.
'=================================
' Declarations section
Private RefTxt As String
'--------------------------------------------------

Private Sub CmdFilter_Click()
    With Me.SF_Sub.Form
        .Filter = "PCode Like '" & RefTxt & "*'"
        .FilterOn = True
    End With
End Sub
'--------------------------------------------------

Private Sub Txt1_Change()
    RefTxt = ActiveControl.Text
End Sub
'--------------------------------------------------

Private Sub Txt1_Enter()
    RefTxt = ActiveControl.Text
End Sub
'=================================



  ----- Original Message ----- 
  From: Rocky Smolin at Beach Access Software 
  To: 'Access Developers discussion and problem solving' 
  Sent: Tuesday, November 13, 2007 07:17
  Subject: Re: [AccessD] Blanks in text box


  It the text box where I want to have the trailing blanks retained. I'm
  setting the filter for the text box in a subroutine that's called from the
  Change event of the text box.

  Rocky

  -----Original Message-----
  From: accessd-bounces at databaseadvisors.com
  [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Charlotte Foust
  Sent: Monday, November 12, 2007 4:59 PM
  To: Access Developers discussion and problem solving
  Subject: Re: [AccessD] Blanks in text box

  What is the "it" that won't accept and retain trailing blanks, Rocky, the
  list box, the textbox, the filter, or what?  If you're trapping keystrokes,
  make sure you aren't including a Trim in there somewhere.

  Charlotte Foust

  -----Original Message-----
  From: accessd-bounces at databaseadvisors.com
  [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin at
  Beach Access Software
  Sent: Monday, November 12, 2007 4:24 PM
  To: 'Access Developers discussion and problem solving'
  Subject: [AccessD] Blanks in text box

  Dear List:
   
  I am trapping keystrokes in a text box and setting a filter in a list box
  based on the current value in the text box.  But it won't accept and retain
  trailing blanks.  If my client wants to search on R & R for example, he
  presses R and the list box of names is filtered to all those beginning with
  R.  if he then presses the space bar, it should show all the name beginning
  with R-blank.  But of course, it strips the trailing blank.
   
  Is there some trick to getting the trailing blanks to be included in the
  string?
   
  MTIA
   
  Rocky