Problem with Access merging into Word

[Guest]

Hello All,
I need some assistance.
First a little background on the database:
The back end is in AQL the front end is in Access.
The main form is called the "Register", here they enter claim information
and if they need to create a printed loss they click on a button called "Loss
Notice" This brings up another form which is filtered based on the claim
number in the Register. Here they fill in additional information. On this
form they have the option to print the Loss Notices by clicking on a button
that Opens up Microsoft Word and all the fields are mapped to the Word
Template where they need to be.

On my computer when I set this up it works great. I test it all the time
and works perfectly.
However when the users try to do this from their computer they are getting a
pop up box asking for the claim number. The Loss form is filtered and should
only pull that claim number.

Why are they getting this pop up box and I am not?

If you need any additional information I will try and give that to you.
Thanks for trying to help!

 

[Guest]

To clarify, the problem is happening when you press a button called "Loss
Notice" and it is before the filtered form (Loss) opens when you get the
popup?

Could you include the code which is performing the filter and opening the
Loss form?

 

[Guest]

This is the code that takes you from the Main Form (The Register) to the 2nd
form which is filtered (The loss Form)

Private Sub LossFormButton_Click()
On Error GoTo Err_LossFormButton_Click
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "Atl Loss"

stLinkCriteria = "[Claim Number]=" & "'" & Me![Claim Number] & "'"
DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_LossFormButton_Click:
Exit Sub

Err_LossFormButton_Click:
MsgBox Err.DESCRIPTION
Resume Exit_LossFormButton_Click

End Sub


This is the code that takes you from the 2nd form (the Loss form) to the
Word Merge document.

Private Sub AutoLossButton_Click()
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
Dim stappname As String, stdb As String
stappname = "C:\Program Files\Microsoft Office\Office10\Winword.exe"
stdb = "R:\P&LCLM\Templates\ASTemplates\AutoLossNotice.doc"
Call Shell(stappname & " " & stdb, 1)
End Sub

 

[Guest]

So is the popup happening prior to the Loss form opening or prior to the Word
document opening?

Are the "users" on the same network as you?

Are they using the same version of Access, or are they using the Access
Runtime?

Have you checked to make sure there are no missing references on the users
computers?

James

This is the code that takes you from the Main Form (The Register) to the 2nd
form which is filtered (The loss Form)

Private Sub LossFormButton_Click()
On Error GoTo Err_LossFormButton_Click
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "Atl Loss"

stLinkCriteria = "[Claim Number]=" & "'" & Me![Claim Number] & "'"
DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_LossFormButton_Click:
Exit Sub

Err_LossFormButton_Click:
MsgBox Err.DESCRIPTION
Resume Exit_LossFormButton_Click

End Sub


This is the code that takes you from the 2nd form (the Loss form) to the
Word Merge document.

Private Sub AutoLossButton_Click()
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
Dim stappname As String, stdb As String
stappname = "C:\Program Files\Microsoft Office\Office10\Winword.exe"
stdb = "R:\P&LCLM\Templates\ASTemplates\AutoLossNotice.doc"
Call Shell(stappname & " " & stdb, 1)
End Sub



--
Becky
Applications Trainer
XP & 2003 Master Instructor

To clarify, the problem is happening when you press a button called "Loss
Notice" and it is before the filtered form (Loss) opens when you get the
popup?

Could you include the code which is performing the filter and opening the
Loss form?