Hi All,
I hope someone can give me a hand. I have this form in an Access 2000 db that works fine on an old NT box running Access 2000 but when i copied the db to a file server, and ran it from a Win2K or an XP machine it shows me an error. I'm not familiar with VBA but i think i have figured out at least some parts of the problem (I've programmed C++ to get an idea of what the form is doing).
Error:
Run-time error '2383':
There is no object in this control
And a second error of:
Run-time error'438':
Object doesn't support this property or method
When i Debug i have this line for the first (the second line):
-----------------------------
Private Sub Form_Load()
ImagN1.Object.UL 136509175, 1211809088, 1340668172, 46565
End Sub
-----------------------------
and this is the debug line of the second error:
---------------------------
Private Sub Form_Current()
If Me.CurrentRecord <= Me.RecordsetClone.RecordCount Then
Me.RecordsetClone.AbsolutePosition = Me.CurrentRecord - 1
If Not IsNull(Photo) Then 'photo is the BLOB picture
If Photo = "[Blob]" Then 'And Not IsNull(IData1) Then
Call ImagN1.DefineImageCB(ImagN1.ViewBufferId, 0)
Else
ImagN1.FileName = Photo <<<<<this line with data
End If
Else
ImagN1.FileName = "" <<<<<<this line is error
End If
End If
End Sub
---------------------------------------
Any Ideas?
I hope someone can give me a hand. I have this form in an Access 2000 db that works fine on an old NT box running Access 2000 but when i copied the db to a file server, and ran it from a Win2K or an XP machine it shows me an error. I'm not familiar with VBA but i think i have figured out at least some parts of the problem (I've programmed C++ to get an idea of what the form is doing).
Error:
Run-time error '2383':
There is no object in this control
And a second error of:
Run-time error'438':
Object doesn't support this property or method
When i Debug i have this line for the first (the second line):
-----------------------------
Private Sub Form_Load()
ImagN1.Object.UL 136509175, 1211809088, 1340668172, 46565
End Sub
-----------------------------
and this is the debug line of the second error:
---------------------------
Private Sub Form_Current()
If Me.CurrentRecord <= Me.RecordsetClone.RecordCount Then
Me.RecordsetClone.AbsolutePosition = Me.CurrentRecord - 1
If Not IsNull(Photo) Then 'photo is the BLOB picture
If Photo = "[Blob]" Then 'And Not IsNull(IData1) Then
Call ImagN1.DefineImageCB(ImagN1.ViewBufferId, 0)
Else
ImagN1.FileName = Photo <<<<<this line with data
End If
Else
ImagN1.FileName = "" <<<<<<this line is error
End If
End If
End Sub
---------------------------------------
Any Ideas?