Function EDI(txt, leng, Patten)
Dim LL As Long
LL = Len(txt)
EDI = String(leng - LL, Patten) & txt
then in a query
the 20 is the lenght of the over all text you want
Last edited by myle; 03-08-11 at 21:56.
hope this help
See clear as mud
the aim is store once, not store multiple times
Remember... Optimize 'til you die!
Progaming environment: Access based on my own environment: DAO3.6/A97/A2000/A2003/A2007/A2010 VB based on my own environment: vb6 sp5 ASP based on my own environment: 5.6 VB-NET based on my own environment started 2007 SQL-2005 based on my own environment started 2008 MYLE YOUR PASSWORD IS JUST LIKE YOUR TOOTHBRUSH DON'T SHARE IT.