Erase specific amount of characters from a string in VBA

[adibakale]

I have some VBA code in Access which inserts data from a form in Access into a Word Document.

Code:

.ActiveDocument.Bookmarks("XXXX").Select
.Selection.Text = (CStr(Forms!frm_Main!ACCOUNT_NUMBER))

The account number in Access is 16 digits long. I have it working to where it will insert the 16 digit account number into Word where I have the (XXXX) bookmarked.

What I need to do is only insert the last 4 digits of the 16 digit account number into word. I need to either remove the first 12 digits, or only select the last 4 digits from the account number.

Any help with this would be greatly appreciated - I can provide more details if necessary.

Thanks

 

[Aaron Blood]

You should be able to peel off the last 4 digits with the "Right" string function.

Dim n As String
n = "1001 2002 3003 4004"
n = Right(n, 4)
MsgBox n

 

[adibakale]

I don't understand this part

n = "1001 2002 3003 4004"

 

[adibakale]

Thanks for your help. I think this should work.

Can you please explain these 2 lines to me and their purpose?

n = "1001 2002 3003 4004"
MsgBox n

 

[Aaron Blood]

They serve no purpose other than to create a string that is at least 16 chars long, and then show you a four digit result in a msgbox.

I probably could've just as easily said, "Go look for examples of how to use the "Right" string function in VBA."

Your application might be:

.Selection.Text = Right(CStr(Forms!frm_Main!ACCOUNT_NUMBER),4)

 

[adibakale]

Thanks, for what it's worth - I really appreciate it.