Tip: Symbolically Yours

   Previous topic Next topic JavaScript is required for the print function  

Charlie Curtis          Bronze Collection   
 
I've never found a suitable method for inserting symbols into text. I've written a selection of functions for the common symbols and assigned them to keystrokes. I suspect that there's an easier method, but I haven't found it yet. Here's the one I use for inserting the diameter symbol:
 

Public Function chrDia()

Dim ctl As Control

  Set ctl = Screen.ActiveControl

  ctl = ctl & Chr(216)   'diameter symbol

  ctl.SelStart = Len(ctl)

End Function

 

The Access WorkbenchData Mining Tool In AccessThe Toolbox - Access KBThe Smart Access PDFs and DownloadsLoad Basecamp Backup XML to Access or SQLServerWe are good at Access and Excel Programming and UpgradesourProducts