Quote:
Originally Posted by PhilBowen
Thanks. If you have the code that would be really useful.
In the mean time have you or any others used Active X control (DBPIX0 2.O control) or something similar
Application.Echo False 'Turn OFF Screen Updating
If IsNull(Me![txtFieldPicture]) Then
Me![txtFieldPicture].Visible = False
Me![imgFieldInventory].SizeMode = acOLESizeStretch
Me![imgFieldInventory].Picture = fGetDBPath & "Graphics\Inventory\" & "Thumbs Down.jpg"
Else
If Dir(fGetDBPath & gINVENTORY_GRAPHICS & Me!txtFieldPicture, vbNormal) <> "" Then ' <R87>
Me![txtFieldPicture].Visible = True
Me![imgFieldInventory].SizeMode = acOLESizeClip
Me![imgFieldInventory].Picture = fGetDBPath & gINVENTORY_GRAPHICS & Me!txtFieldPicture
Else
Me![txtFieldPicture].Visible = False
Me![imgFieldInventory].SizeMode = acOLESizeStretch
Me![imgFieldInventory].Picture = fGetDBPath & "Graphics\Inventory\" & "Thumbs Down.jpg"
End If
End If
Application.Echo True