Prev: go to a particular record in a form
Next: VBA - rst.Open cmd goes to error handling
From: Krzysztof Naworyta on 12 Apr 2010 06:14
Prakash wrote:
| I'm using the foll code to display images from a folder on a form.
|
| Each time I try to scroll to the "next" record a small window flashes
| past saying:
| "Importing C:\Al-Maha-Membership\Snaps\FILENAME.jpg"
|
| 1) Why does this appear even though I've specified: Application.Echo
| False

http://www.mvps.org/access/api/api0038.htm


| 2) If I wait for some time (say 1 sec) between each click to go to the
| next record there's no problem. However, if I try to scroll fast the
| program hangs after scrolling say 8 to 10 records and Access pops up a
| message saying:
| Microsoft Office Access has encountered a problemand needs to close.
| We are sorry for the inconvenience.
|
| Using Access 2003 over Windows Xp SP3.

http://www.mvps.org/access/bugs/bugs0044.htm

--
KN
From: Phil on 15 Apr 2010 19:19
On 10/04/2010 18:09:12, Prakash wrote:
> I'm using the foll code to display images from a folder on a form.
>
> Each time I try to scroll to the "next" record a small window flashes
> past saying:
> "Importing C:\Al-Maha-Membership\Snaps\FILENAME.jpg"
>
> 1) Why does this appear even though I've specified: Application.Echo
> False
>
> 2) If I wait for some time (say 1 sec) between each click to go to the
> next record there's no problem. However, if I try to scroll fast the
> program hangs after scrolling say 8 to 10 records and Access pops up a
> message saying:
> Microsoft Office Access has encountered a problemand needs to close.
> We are sorry for the inconvenience.
>
> Using Access 2003 over Windows Xp SP3.
>
> Could someone please look at my code and point out as to where I'm
> going wrong ?
>
>
> Private Sub Form_Current()
>
> Application.Echo False
> Dim stFileName As String
> stFileName = "C:\Al-Maha-Membership\Snaps\" + Me.MembershipNo +
> ".jpg"
>
> If Dir(stFileName) = "" Then
> 'MsgBox "file does not exist"
> Me.Image_Holder.Picture = ""
> Me.Lbl_NoPhotoAvailable.Visible = True
> Else
> 'MsgBox "file does exist"
> Me.Image_Holder.Picture = "C:\Al-Maha-Membership\Snaps\" +
> Me.MembershipNo + ".jpg"
> Me.Lbl_NoPhotoAvailable.Visible = False
> End If
> Application.Echo True
>
> End Sub
>
>
>
> Rgds,
> Prakash.
>

Using Regedit have a look at

HKEY_LOCAL_MACHINE\Software\Microsoft\ Shared Tools\Graphics
Filters\Import\JPEG\Options ShowProgressDialog

This should be set to No, it's my guess it's set to Yes

Phil
First  |  Prev  | 
Pages: 1 2 3 4
Prev: go to a particular record in a form
Next: VBA - rst.Open cmd goes to error handling