Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations strongm on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Slow update using bitmaps.

Status
Not open for further replies.

ghalewood

Programmer
Nov 13, 2001
42
EU
Hello,

I seem to have a problem showing some graphics on a form using my home pc, but the one I use for work seems fine.

My home PC is an Athlon 64 3200, 512mb ram, dual 80gb SATA drives in a striped raid running Access 2002 in Wondows XP. My works pc is a laptop with a P3 at 1133mz with 512mb ram, single 30gb HD running Access 97 on Windows 2000.
Both machines are getting the data from the same directory on their C: drives.
My home PC takes about 15 seconds to show the form while my works PC takes about 3 seconds.

I have shown the code below and it amends the picture property of a grid of 15 * 15 controls.

Does anyone have any idea why my home PC should take so much longer given it's higher spec?

The only difference in the references is that my works PC has "Microsoft Access 8.0 Object Library" and my home pc has ver 10.0

Thanks in advance
Graham

ps. intDown and intAlong are set in the calling procedure.

Code:
Private Sub Show_Map()

Dim myDB As Database
Set myDB = CurrentDb()
Dim rsMap As Recordset
Dim strString As String

Set myDB = CurrentDb()

Dim intAlonga As Integer
Dim intDowna As Integer

For intDowna = 1 To 15
   If intDown + intDowna > 200 Or intDowna + intDown < 1 Then
      Me.Controls("pic_" & intDowna & "_" & intAlonga).Picture = "C:\clans\map_graphics\9.bmp"
   Else
      Set rsMap = myDB.OpenRecordset("SELECT * FROM [map_data] _ WHERE [record_number] = " & intDown + intDowna & "")
   End If
      
   For intAlonga = 1 To 15
      If intAlonga + intAlong > 200 Or intAlonga + intAlong < 1 Then
         Me.Controls("pic_" & intDowna & "_" & intAlonga).Picture = "C:\clans\map_graphics\9.bmp"
      Else
         Me.Controls("pic_" & intDowna & "_" & intAlonga).Picture = "C:\clans\map_graphics\" _
                      & Format(Mid(rsMap!map_row, ((intAlonga + intAlong) * 6) - 5, 3)) & ".bmp"
      End If
   Next intAlonga
Next intDowna

End Sub
 
Hi

Apart from the possible speed differences of the different versions of Windows and Access

Bit maps are relatively large files, this would make me suspect Disk Drive Speed and / or Transfer speed from the disk, are they comparible between to two machines

Regards

Ken Reay
Freelance Solutions Developer
Boldon Information Systems Ltd
Website needs upgrading, but for now - UK
 
Hi Ken,

Thanks for replying. The bitmaps are all around 1kb in size, very small and only black and white. My home PC should beat my works one hands down as far as disk access goes, but it doesn't seem to. I believe that SATA drives are 50% faster that ATA (could be wrong).

I am hoping that there is some option somewhere in Access or Windows that I have set incorrectly on my home PC.
 
Hi

Could it just be that the "Improved" later versions (WindowsXP and Access2002) are intrinsically slower that the 'old' products they replace?

One point with Access2002, have you turned off the name autocorrect feature under options, it gobbles resources



Regards

Ken Reay
Freelance Solutions Developer
Boldon Information Systems Ltd
Website needs upgrading, but for now - UK
 
And what about the Graphic cards ?

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ222-2244
 
PHV . . . . .

Good Idea, but . . . . . 15 seconds . . . . I doubt it.

[blue]ghalewood[/blue] . . . . .

I believe its Tools - Options - General Tab - Name AutoCorrect block. Uncheck [purple]Perform Name AutoCorrect[/purple] and test response.

Calvin.gif
See Ya! . . . . . .
 
I would also check what is running in the Task manager.

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ222-2244
 
Thanks for the help everyone, Just for info the graphics card on the laptop is a S3 Graphics SuperSavage/IXC 1014 with 16MB ram (it is an IBM T23). My home PC has a GF4 5900 with 128MB.

It seems to be something to do with the form controls themselves. I put in a progress bar which shows the sub executing, and when going from design to view mode, there is about a 15 second delay on my home PC but the works one is only a second or so followed by 15 seconds or so of the sub running on home, with the 3 seconds updating the controls.

There is either an option or reference missing, or there is a difference between the versions of Access as mentioned Ken Reay. If anyone is willing and has the same Access/Windows config, I could send the DB to see what the timings are.

Thanks
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top