Beginner query help please

[Duane Hookom]

I expect it will continue to work.

 

[Iona]

Hiiii,me again...

it has continued to work fine, however I have two other small probs,
they also occurr on the DH_QBF database as well as mine (sorry I do not
understand enough to fix them myself ).

1. When I click on Send to Word Merge btn and then click send, I get
error # 53, file not found,

2. When I click on Send to Merge Report, and then try to select(edit) a
letter, I get
Runtime error 3075, Syntax Error (missing operator) in query expression
"ltrLTRID ="

I'm very sorry to bother you with these, just that I do need them
working, then I can also email you a copy with the outlook/email
function.

kind regards,
Iona

 

[Duane Hookom]

Did you select a letter from the combo box?

 

[Iona]

no it is blank on both.

Did you select a letter from the combo box?

 

[Duane Hookom]

You must select a letter.

 

[Iona]

But there are none in the combo box, as far as I can tell there should
be at least two, I made to new ones as well, however the box was still
blank, In the related table there are 4.

 

[Duane Hookom]

Each letter record is associated with only one query. Look at your tables
and make sure that you have a record in zstblQBFLetters that is related to
your current record in zstblQBFSource. If you don't have one then click the
New Button to create a letter record that will be related to your query.

 

[Iona]

Ok, I feel like a right goose. apologies and many many thanks.
Iona

 

[Iona]

how about the word merge error? I'm still getting that when I click on
send.

 

[Duane Hookom]

Is your code set to break on all errors or break on all un-handled errors?

 

[Iona]

un-handled errors..

Is your code set to break on all errors or break on all un-handled errors?

 

[Duane Hookom]

Set the code to break on all errors and find the line that causes the error.

 

[Iona]

Hi here is the code and surrounding code

Case 8
' Commented out 7/10/2003 by Duane Hookom - Nestle US -
Nutrition Division
FixExtension
strFile = Me.txtFileName
Dim strNewFile As String
strNewFile = Left(strFile, InStr(strFile, ".") - 1) & ".DOC"
DoCmd.TransferText acExportDelim, , "myquery", strFile,
Me.chkIncludeHeadings


----> Kill strNewFile (problem line)


Name strFile As strNewFile
If Me.chkAutoStart Then
Dim oApp As Object 'New Word.Application
Dim oDoc As Object 'New Word.Document
Set oApp = CreateObject("Word.Application")
oApp.Visible = True


thanks again

 

[Iona]

sorry just a bit more info

the line Kill strNewFile has the value: c:\MyQBF.DOC

ta

 

[Duane Hookom]

You can try use:
If Len(Dir(strNewFile)) > 0 Then
Kill strNewFile
End If

 

[Iona]

thanks heaps! its works fine (not that I know about work merge fields
etc but its all there),
cheers again