Access MVP (2010-2015)

oOo.oOo.oOo.oOo.oOo.oOo

Show the Cents Symbol

To use the cents symbol on your report or in a TEXT field use the extended ASCII 162, so…

Me.YourTextBox & Chr(162)

Loading

Use Replace() to Create a Bullet List

Use the Replace() function to turn your comma delimited values into a bullet list. So…

Specification ID, Alloy, Temper, Gauge, Lot Number

…turns into…

· Specification ID · Alloy · Temper · Gauge · Lot Number

strFields: Chr(183) & " " & Replace([sdFields],", ",Chr(13) & Chr(10) & Chr(183) & " ")

Note, sdFields is the […]

Loading

Get Initials

I use Initials in Combo Boxes for space conservation on a Form. I don’t depend on the User to enter them, instead, I enter the below in the After_Update event of the Last Name Control on my Form…

Me.txtAssociateInitials = Trim(Left(Me.txtFirstName, 1)) & Trim((" " + Left(Me.txtMiddleInitial, 1))) & Trim((" " + Left(Me.txtLastName, 1)))

Loading

Combining Fields

Combining fields is easy enough BUT when there’s a chance one of the fields might be blank (empty), well, that presents an issue. Especially, when you don’t want the comma, period or dash to show if the adjoining field is blank (empty), ie: Jane . Doe (no Middle Inital so only the period shows) or […]

Loading