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.
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