Command Button to Find .doc file

[cg1465]

Thanks in advance!

I've created a command button to find a .doc file. This file has a path that includes the record's phone number in the file name. I'm using this code to try and pull the file, but debugger says it can't find the file.

Private Sub Command155_Click()

Dim oApp As Object
Set oApp = CreateObject("Word.Application")
oApp.Visible = True
AppActivate oApp
oApp.Documents.Open FileName:=FilLoc & "C:\FirstUSA\Prospects\ & forms![FirstUSA].[Phone1] & .doc", readonly:=readonly
Set oApp = Nothing
End Sub



I need this to pull the current record I'm viewing. In other words, insert the record's phone into the path that I'm currently viewing.

Thanks!

[ajetrumpet]

are you sure that Access uses this code:

FileName:=

I thought those syntax were restricted to excel and word only? might want to check that.

also, use DIR() to check and see if the file is there first:

if DIR( _
   "C:\FirstUSA\Prospects\ '" & forms![FirstUSA].[Phone1] & "'.doc") = 0 then
      msgbox "file not found"
else
   'DO WHATEVER YOU NEED TO
end if

I changed your concatenation too. I think that is incorrect for strings.

[cg1465]

Thanks Adam. Much appreciated. It gives me a data mismatch type error, however. Any ideas?

[ajetrumpet]

Thanks Adam. Much appreciated. It gives me a data mismatch type error, however. Any ideas?

could be any number of things. May be able to help you if you give us the:

*data type of the form control
*data type of the field it is bound to
*line of code where the error is thrown

also...like almost every function in Access, the "()" enclosures may or may not be accepted. As a general rule, they are accepted after the VBA operation IF the first argument is a variable of any kind. In any other situation, they are not. It seems to depend on how Access is feeling on that particular day...

That is not 100% true, only my experience with this rather annoying requirement of Basic.

[cg1465]

hmmm...all text format. The debugger picks up this line:

If Dir( _
"C:\FirstUSA\Prospects\ '" & Forms![FirstUSA].[Phone1] & "'.doc") = 0 Then

I'm not really code savvy, but seems like it should work...aaarrrg.

[ajetrumpet]

If Dir( _
"C:\FirstUSA\Prospects\ '" & Forms![FirstUSA].[Phone1] & "'.doc") = 0 Then
.

did you try what I already mentioned????

 if Dir "C:\FirstUSA\Prospects\ '" & Forms![FirstUSA].[Phone1] & "'.doc" = 0 then

Just noticed this too: Forms![FirstUSA].[Phone1]

No consistency. Try either Forms![FirstUSA]![Phone1] or Forms("FirstUSA").Controls("Phone1")

Is that a phone number? does it have a mask? what data type is it in the form control and the field of the table? These are all potential bugs.

[evander]

Hello. I've had problems with using the literal string \ (backslash) in specifying directories and paths. Using Google, I discovered a solution somewhere. The function Chr() is used instead of the backslash. I'll paste the URL here as soon as I find it. Good luck.

[cg1465]

Thanks Adam for your help...FYI...here's what actually worked, but opens in readonly. I'm not sure how to set this to normal?

Dim oApp As Object
Set oApp = CreateObject("Word.Application")
oApp.Visible = True
AppActivate oApp
oApp.Documents.Open FileName:=FilLoc & "C:\FirstUSA\Prospects\" & Forms![FirstUSA]![Phone1] & ".doc", readonly:=readonly

Set oApp = Nothing

[cg1465]

Nevermind...fixed! Just removed the , readonly:=readonly expression. Thanks Adam...much appreciated!