G
Gurtz
Hello,
I get a "Type mismatch." error (run-time error 13) when I
execute the following code:
Private Sub Form_Open(Cancel As Integer)
Dim tmpRec As Recordset
Dim tmpDB As Database
Set tmpDB = CurrentDb
Set tmpRec = tmpDB.OpenRecordset("SELECT Pic FROM
Players WHERE PlayerIndex = " & Me.PlayerIndex)
Me.PlayerPic.Picture = tmpRec.Fields(0)
End Sub
The error occurs when OpenRecordset is called..
I can't figure this one out. Can anybody help?
Thanks a lot,
Gurtz
[email = no $]
I get a "Type mismatch." error (run-time error 13) when I
execute the following code:
Private Sub Form_Open(Cancel As Integer)
Dim tmpRec As Recordset
Dim tmpDB As Database
Set tmpDB = CurrentDb
Set tmpRec = tmpDB.OpenRecordset("SELECT Pic FROM
Players WHERE PlayerIndex = " & Me.PlayerIndex)
Me.PlayerPic.Picture = tmpRec.Fields(0)
End Sub
The error occurs when OpenRecordset is called..
I can't figure this one out. Can anybody help?
Thanks a lot,
Gurtz
[email = no $]