Replies

Thank You

Thank You

Gary,
Thank You VERY much! I spent 3 days in agony trying to get this to work. Thanks again works great.
Kevin

Thanks Wendell,
The way I created the 2000 database was by creating a blank file in 2000 and importing everything in to it. I did this because all of my attempts to convert created many problems. So after importing I launched the front end and got a couple of form event errors which were easily corrected. The flash issue is the only one left. I tried to put the flash file in a brand new form created in 2000. It was less choppy but still did not function properly as the sound and video were still not matched.

Thanks for you suggestions
Kevin

Thanks, I am going to give it a go.

I have a simalar problem… …I am attaching a word document to an email via code in an access database. I am using Office 2000. Everything works fine until the email is received by someone who tries to open it. The attachment is there, it is a normal looking Word.doc icon, but failes to open when double clicked. Instead there is an error message that refers to a .tmp file and a path. I need to tell you that this code and email routine workied perfectly in Office 97. This error does not occur when attaching the file from the normal attach feature in Outlook. Can I correct this the same way as discussed in this topic?

Thanks

Drew, thanks for getting back to me. I have been out sick. The code I am using is listed below:

This is the line of code used to call the module procedure:

Private Sub SUPSHIP_Negotiator_Position_Click()
SUPSHIP_Negotiator_Position
End Sub

This event is triggered from the on click event of a tab on a tab control on the form.

The code for the procedure in in the module is as follows:

Sub SUPSHIP_Negotiator_Position()

If IsNull(DLookup(“[Pricing_ID]”, “Pricing Detail EB”, “[Pricing_ID] = Forms![frmPricingTabbed]![Pricing_ID]”)) Then
DoCmd.SetWarnings False
Beep
MsgBox “There is no CONTRACTOR Pricing Detail for this pricing action, therefor no data is available to use as your default position. Please start your data input now!!!!”
End If
If IsNull(DLookup(“[Pricing_ID]”, “Pricing Detail TAR”, “[Pricing_ID] = Forms![frmPricingTabbed]![Pricing_ID]”)) Then
DoCmd.SetWarnings False
Beep
MsgBox “The TAR has not been completed for this Change Proposal. Enter Pricing Information directly ino the Negotiator input now!!!! If you are performing a desk TAR, please input your pricing Data directly into the negotiator position. If you are not performing a desk TAR please uncheck the Desk TAR block on the screen and enter your pricing data into the negotiator position. ”
Forms![frmPricingTabbed]![Desk_TAR].Visible = True
Forms![frmPricingTabbed]![Desk_TAR].Value = True
Forms![frmPricingTabbed]![Desk TAR Label].Visible = True

Exit Sub
End If

If IsNull(DLookup(“[Pricing_ID]”, “Pricing Detail SUPSHIP”, “[Pricing_ID] = Forms![frmPricingTabbed]![Pricing_ID]”)) Then
DoCmd.SetWarnings False
‘ Beep
‘ MsgBox “There is no SUPSHIP NEGOTIATOR Pricing Detail for this pricing action. To simplify input, the Technical Advisory Report (TAR)position Data will be used as the SUPSHIP NEGOTIATOR default position. Data may be edited if you decide not to use the TAR position!!!”
DoCmd.OpenQuery “APPEND SUPSHIP DETAIL”
Forms![frmPricingTabbed]![SOS_Rate_Name] = Forms![frmPricingTabbed]![TAR_Rate_Name]
Forms![frmPricingTabbed]![SOS_Esc_Matl] = Forms![frmPricingTabbed]![TAR_Esc_Matl]
Forms![frmPricingTabbed]![SOS_Matl_Fee] = Forms![frmPricingTabbed]![TAR_Matl_Fee]
Forms![frmPricingTabbed]![SOS_Labor_Fee] = Forms![frmPricingTabbed]![TAR_Labor_Fee]
Forms![frmPricingTabbed]![SOS_Des_Matl] = Forms![frmPricingTabbed]![TAR_Des_Matl]
Forms![frmPricingTabbed]![SOS_Rate_Version] = Forms![frmPricingTabbed]![TAR_Rate_Version]
Forms![frmPricingTabbed]![vfcm_sos] = DSum(“[Deesc_FCM]”, “Pricing Detail SUPSHIP”, “[Pricing_ID] = ‘” & Forms![frmPricingTabbed]![Pricing_ID] & “‘”)
Forms![frmPricingTabbed]![vdepreciation_sos] = DSum(“[Deesc_Depreciation]”, “Pricing Detail SUPSHIP”, “[Pricing_ID] = ‘” & Forms![frmPricingTabbed]![Pricing_ID] & “‘”)
Forms![frmPricingTabbed]![vlabor_sos] = DSum(“[Labor_Total]”, “Pricing Detail SUPSHIP”, “[Pricing_ID] = ‘” & Forms![frmPricingTabbed]![Pricing_ID] & “‘”)
Forms![frmPricingTabbed]![vLaw_Energy_sos] = Int(DSum(“[Law]”, “Pricing Detail SUPSHIP”, “[Pricing_ID] = ‘” & Forms![frmPricingTabbed]![Pricing_ID] & “‘”) + 0.5) + Int(DSum(“[Energy]”, “Pricing Detail SUPSHIP”, “[Pricing_ID] = ‘” & Forms![frmPricingTabbed]![Pricing_ID] & “‘”) + 0.5)
DoCmd.Requery
Forms![frmPricingTabbed]![Gov_NegID] = Forms![Splash Screen]![VIdCode]
DoCmd.SetWarnings True
End If

Forms![frmPricingTabbed]![Pricing Detail SUPSHIP].Form.Requery

End Sub

Thanks for any suggestions that you might have.

Kevin

Yes, I did this already, thanks I changed all the reference using “Me!” and fully qualified the text. Any other suggestions?

thanks

can this be done in access 2k?

thanks I will try that.
Kevin

Thanks Charlotte,
When I read this article it seemed as though it was written for me. I did exactly that, copied forms and reports with modules from a 97 DB into a 2000 DB while in 2000. Then closed and reopened, that is when I got that error message, (the same one in the article). The only thing I have not checked is the version of VBE6.dll file. I will do that next. Thanks again

I can open them initially right after I link. But if I closed the FE and reopen, I can see them but cannot open them. I still get the error that I might have lost the network connection.

Thanks

Thank You very much! I will try the form approach. At least I know I was not seeing things.

The following is a snippet of the on close event:

‘Me![Date_Priced] = Now()
‘DoCmd.Requery

The “Date_Priced” is used to toggle an archieve procedure. If the record is not used for 90 days it rolls into an archieve list so it inserts the date everytime the record is opened.

Thanks

Thank You Charlotte,
Since I relied on our Computer department to do the install I (Assumed) it was not there. Thanks again
Kevin