Well I made this work on a form but not on a report<br>
---------------------<br>
Private Sub Form_Current()<br>
Dim ImagePath As String<br>
Dim DigitOne, DigitTwo, DigitThree, DigitFour As String<br>
<br>
ImagePath = "P:\0-9 Images\"<br>
DigitOne = Left(Me!Invoice, 1)<br>
DigitTwo = Mid(Me!Invoice, 2, 1)<br>
DigitThree = Mid(Me!Invoice, 3, 1)<br>
DigitFour = Mid(Me!Invoice, 4, 1)<br>
Image3.Picture = ImagePath & DigitOne & ".gif"<br>
Image4.Picture = ImagePath & DigitTwo & ".gif"<br>
Image5.Picture = ImagePath & DigitThree & ".gif"<br>
Image6.Picture = ImagePath & DigitFour & ".gif"<br>
End Sub<br>
------------------------<br>
It does not give any errors but does not show anything either.<br>
I goes through the motions<br>
Anyway...<br>
<br>
<p> DougP<br><a href=mailto: dposton@universal1.com> dposton@universal1.com</a><br><a href= > </a><br>