Error message code

[FJM]

I have the following code on the DblClick of a Form combo field called "SUPPLIER".


When clicked it opens up a network folder which matches to the Supplier name in the combo.

Application.FollowHyperlink "\\serverone\quality system\ncr information\consolidated folders\" & Me.Supplier

Can anyone help me with the code for an error message if either the record doesn't match or doesn't exist i.e there is no folder on the network

Thanks

[pbaldy]

The method I've seen is to test first with the Dir() function to see if it exists (with the Len() function).

[FJM]

Hello Paul
My knowledge of code is very much still at the infant stage as such all I can do at the moment is mimmick what I am either reading or being told.
I do not understand what you mean, so can you either put it in baby language or just write the code for me to cut and paste.
Thanks for the reply

[pbaldy]

Didn't even want to try?

If Len(Dir("YourPath")) > 0 Then

[FJM]

Hello Paul
I have just added
If Len(Dir("\\serverone\quality system\ncr information\consolidated folders\" & Me.Supplier)) > 0 then
as another line of code
I get the following messge
Block If without End If

[pbaldy]

Not surprising, since that was just intended to point you in the right direction. Look in VBA help for the proper syntax of an If/Then/Else block.

[FJM]

Not too sure why you made the comment "Didn't even want to try ?" if you were then going to follow up with the next "Not surprising........" remark
The reason why I said I was at the infant stage was so that I didn't get "smart" answers like this.
I was always of the opinion that these forums were there to help and guide people through problems.In this case, obviously note.
I am pretty proficient at my own job, and if someone asked for help and I could give it, I would help them as much as possible. One thing I wouldn't do is give some smart ***e answer because I knw something they didn't

[pbaldy]

I apologize for hurting your feelings. However, as you said "forums were there to help and guide people through problems" which is what I'm trying to do; guide you. Teach you to fish, not give you the fish. You seem to want the fish, so here you go.

If Len(Dir("\\serverone\quality system\ncr information\consolidated folders\" & Me.Supplier)) > 0 then
   Application.FollowHyperlink "\\serverone\quality system\ncr information\consolidated folders\" & Me.Supplier
Else
   Msgbox "Path doesn't exist"
End If

[FJM]

In this particular instance, I had actually looked through the forums, looked at the help and tried several attempts at code. All were unsuccessful. I have successfully written some other simple "If...Then..ElseIf code to open a range of similar reports, however in this particular case, I believe network path was defeating me.
Anyway, I have inserted the code and it works fine, so thank you very much for your help

[FJM]

OOPS - Tried it again - now it doesn't.
It gives the "Path doesn't exist" for all returns even if the Supplier name matches

[pbaldy]

If that's a folder, a brief test would indicate that you need to add the trailing "\". Without it, it thinks you're looking for a file by that name.

[FJM]

I have tired the change but to no avail. I have decided to simply let the access default warning message appear if there is no record and click the end button. I get the result I want so its' a result in one way.
Thanks for your help