COMPILE ERROR To Follow Hyperlink - Help Needed

[aamer]

Need Assistance, Please tell me where am I making a mistake, If There is no data in the field




Private Sub Image94_Click()
If Dir(PurAtt2.Text) <> "" And PurAtt2.Text <> "" Then
Application.FollowHyperlink PurAtt2
Else
MsgBox ("No Document Attached."), vbExclamation
End If


End Subb

When I click on the image No 2 on the Form I am Getting the following error


COMPILE ERROR:
METHOD OR DATA MEMBER NOT FOUND






On the Form if I click on image No 1 I dont get error.
for which I am using the following code



Private Sub Image97_Click()
If Dir(PurAtt1.Text) <> "" And PurAtt1.Text <> "" Then
Application.FollowHyperlink PurAtt1
Else
MsgBox ("No Document Attached."), vbExclamation
End If
End Sub

[pbaldy]

The first thing is to double check the spelling of the control. If you use Me, you'll get intellisense that will double check your spelling. Type "Me." and the various controls and such should show up. If that's not it, what is the type of control (textbox, etc).

Also, you shouldn't need the .Text property. I'm somewhat surprised you don't get an error, but I imagine images can't get focus so it stays on the control.

[aamer]

Thx pbaldy for your help
The Controle Type For PurAtt4B is IMAGE
I have used the following code and it works as long as there is data in the field PurAtt4. But if the PurAtt4 has no data (i.e hyperlink) then I Get the Microsoft Visual Basic Run Time error 13 Type Mismatch.


Private Sub PurAtt4B_Click()
If Dir(Me.PurAtt4) <> "" And Me.PurAtt4 <> "" Then
Application.FollowHyperlink PurAtt4
Else
MsgBox ("No Document Attached."), vbExclamation
End If
End Sub

[June7]

I expect PurAtt4 is Null when there is no data - that would cause the Type Mismatch error with Dir().

If Dir(Nz(Me.PurAtt4,"")) <> "" Then

[aamer]

Thx June

I applied the following code and it works perfectly



Private Sub PurAtt4B_Click()
If Dir(Nz(Me.PurAtt4, "")) <> "" And Me.PurAtt4 <> "" Then
Application.FollowHyperlink PurAtt4
Else
MsgBox ("No Document Attached."), vbExclamation
End If
End Sub

[June7]

Don't need And Me.PurAtt4 <> ""

[aamer]

June

If I use the following code as suggested by you

Private Sub PurAtt4B_Click()
If Dir(Nz(Me.PurAtt4, "")) <> "" Then
Application.FollowHyperlink PurAtt4
Else
MsgBox ("No Document Attached."), vbExclamation
End If
End Sub


Then I am getting the following error

Run-time error '94':
Invalid use of Null



But with the following code no errors its works perfectly

Private Sub PurAtt4B_Click()
If Dir(Nz(Me.PurAtt4, "")) <> "" And Me.PurAtt4 <> "" Then
Application.FollowHyperlink PurAtt4
Else
MsgBox ("No Document Attached."), vbExclamation
End If
End Sub




Await your comments

[orange]

You could try:

If Len(Dir(Me.PurAtt4)) = 0 Then 'file doesn't exist

[aamer]

Orange

If Len(Dir(Me.PurAtt4)) = 0 Then 'file doesn't exist


This does not work still gives error


Pls tell me what is wrong with the following code



Private Sub PurAtt4B_Click()
If Dir(Nz(Me.PurAtt4, "")) <> "" And Me.PurAtt4 <> "" Then
Application.FollowHyperlink PurAtt4
Else
MsgBox ("No Document Attached."), vbExclamation
End If
End Sub




And why should not I stick to this code where as I mentioned earlier that this code is not giving any error.

[Minty]

Type the following into the immediate window and show me what you get
? Dir("")

I bet it's not what you where expecting.
Try

Private Sub PurAtt4B_Click()
If Len(Me.PurAtt4 & "")  > 0 Then 
   If Not Len(Dir(Me.PurAtt4) = 0 Then 
      Application.FollowHyperlink PurAtt4
   Else
       MsgBox ("No Document Attached."), vbExclamation
   End If
End If
End Sub

[June7]

I tested:

?Dir("") = ""

which returns True

as does

?Dir(Nz(Null,"")) = ""


And this works for me:

If Dir(Nz(Me.PurAtt4, "")) <> "" Then


If you want to provide your db for analysis, follow instructions at bottom of my post.

[orange]

June7,

Interesting.
I just tried
?Dir("") = ""
False

and

?Dir(Nz(Null,"")) = ""
False

[orange]

aamer,

I suggest you post a copy of your database as June7 recommended.

[Micron]

Dir("") = "" isn't what was suggested?

[June7]

It was just a test to show that Dir("") returned a value equivalent to an empty string - at least it does for me. Trying to understand why my suggested condition does not work for the OP.