Deleting blank spaces after pasting data into a form text field

[zdjbel]

Hello,

I often have to copy/paste data into from an outside source to a text field on my form. When I paste the data, blank spaces at the beginning and/or end of the text are pasted as well. How can I get rid of them automatically after pasting the data?



Thank you.

[ano]

Dim MyString, TrimStringMyString = "  <-Trim->  "' Initialize string.TrimString = LTrim(MyString)    ' TrimString = "<-Trim->  ".TrimString = RTrim(MyString)    ' TrimString = "  <-Trim->".TrimString = LTrim(RTrim(MyString))    ' TrimString = "<-Trim->".' Using the Trim function alone achieves the same result.TrimString = Trim(MyString)    ' TrimString = "<-Trim->".

is this what u look ing for?
mystring fill from paste
ur field is in place of trimstring
trim do both sides so thats ur choice i guess

[Welshgasman]

https://learn.microsoft.com/en-us/of...trim-functions

[zdjbel]

Thank you Ano and Welshgasman. I applied the code to the AfterUpdate event of the combo box and it works only it deletes all the blanks and the characters I want to keep leaving the cell empty. Not sure but am I supposed to insert the name of the combo box somewhere in the code? This is what thee code looks like

Private Sub cmbGoToPr_AfterUpdate()
On Error GoTo cmbGoToPr_AfterUpdate_Err


Dim MyString, TrimString


MyString = " <-Trim-> " ' Initialize string.
TrimString = LTrim(MyString) ' TrimString = "<-Trim-> ".
TrimString = RTrim(MyString) ' TrimString = " <-Trim->".
TrimString = LTrim(RTrim(MyString)) ' TrimString = "<-Trim->".


' Using the Trim function alone achieves the same result.
'TrimString = Trim(MyString) ' TrimString = "<-Trim->".

DoCmd.SearchForRecord , "", acFirst, "[PrNumber] = " & "'" & Screen.ActiveControl & "'"


cmbGoToPr_AfterUpdate_Exit:
Exit Sub


cmbGoToPr_AfterUpdate_Err:
MsgBox Error$
Resume cmbGoToPr_AfterUpdate_Exit


End Sub


Thank you.

[ano]

i not see any field from u , u just run example not touching any field u are trying to use.
u ignored :
mystring fill from paste instead " <-trim-> "
ur field is in place of trimstring !!
so only mystring if paste is not accepted in : [ur result field] = trim([ur paste])
if Screen.ActiveControl is ur past i guess: trim(Screen.ActiveControl)

[Welshgasman]

Oh my lord
You just use
Me.mycontrolname = Trim(me.controlname) where controlname is actually the name of your control name.

Everything else was just examples.
In Access you actually have to define your variables. So Dim MyString is just rubbish.
You need Dim MyString as String
You need that actual type for every variable.

Dim a,b,c,d as string is useless. Just the d is a string, everything else is a Variant.

[ano]

Me.mycontrolname = Trim(me.controlname)

u mean this should be in after update from the field

[Micron]

u mean this should be in after update from the field

why would you allow unwanted field value first then fix it after? You would use BeforeUpdate on the control and fix it, then allow the update.

[ano]

quite simple before update is for conditions with options to cancel
after update is for adjusting

[Micron]

"quite simple before update is for conditions with options to cancel
after update is for adjusting"

Says you.

[ano]

if u put all in before why is there an after ?
if u put statements without cancel option it is useless done if update is cancelled
so its not me who developed before and after update, but i try to use it efficient

[moke123]

I often have to copy/paste data into from an outside source to a text field on my form

I applied the code to the AfterUpdate event of the combo box and it works only it deletes all the blanks and the characters I want to keep leaving the cell empty.

Perhaps the question needs clarification.

[ano]

perhaps the question needs clarification.

looking at his procedure it is useless to ask clarification .
at that moment he thought i sent for him to use , ignoring my instructions.
it works means it give no error so he is happy
then he realized no improvement. i assume he read again what i answer 1st time and change the procedure with improvement of welshgasman
or just trim in the searchforrecord bec its only used once

[moke123]

looking at his procedure it is useless to ask clarification .
at that moment he thought i sent for him to use , ignoring my instructions.
it works means it give no error so he is happy
then he realized no improvement. i assume he read again what i answer 1st time and change the procedure with improvement of welshgasman
or just trim in the searchforrecord bec its only used once

In his first post he's referencing a textbox and in the 2nd a combo box and all the characters being deleted. Makes no sense to me.
But since you apparently speak for him, I'll just leave it there.

[zdjbel]

Thank you all for your input and especially Welshgasman for the clearest, simplest explanation. The Me.mycontrolname = Trim(me.controlname) worked and now it makes sense to me why it would be in the BeforeUpdate event rather than the AfterUpdate where I initially thought it would go (thank you Micron).