Replies

Here is the whole function:

PrimaryCR = [Forms]![Corrections Entry]![CR Subform].[Form]![CorrCR]
RptFilter = “[CorrCR]=” & PrimaryCR
DoCmd.OpenReport “AdHocCorrectionsListing — New”, acViewNormal, “AdHocCorrectionsListing — New”, RptFilter

Thanks,
Bob

Thanks, that worked.

In VBA, I used:

PrimaryCR = [Forms]![Corrections Entry]![CR Subform].[Form]![CorrCR]

Where Corrections Entry is the main form, CR subform is the subform, and CorrCR is the field value I want from the CR subform.

Thanks, that worked.

In VBA, I used:

PrimaryCR = [Forms]![Corrections Entry]![CR Subform].[Form]![CorrCR]

Where Corrections Entry is the main form, CR subform is the subform, and CorrCR is the field value I want from the CR subform.

Here are two:

*********************

Name (First query): Archive Selected Records

SQL (First query):

INSERT INTO [CorrectionCRs Archive]
SELECT CorrectionCRs.*
FROM CorrectionCRs
WHERE (((CorrectionCRs.CorrDate) Between [Starting archive date.] And [Ending archive date.]))

Name (Second query): Delete Selected Records

SQL (Second query):

DELETE CorrectionCRs.*, CorrectionCRs.CorrDate
FROM CorrectionCRs
WHERE (((CorrectionCRs.CorrDate) Between [Starting deletion date.] And [Ending deletion date.]));

*********************

The queries do work at the beginning, but if, for example, I make a small change in the wording of a parameter query, the error message starts appearing.

Thanks,
Bob

Here are two:

*********************

Name (First query): Archive Selected Records

SQL (First query):

INSERT INTO [CorrectionCRs Archive]
SELECT CorrectionCRs.*
FROM CorrectionCRs
WHERE (((CorrectionCRs.CorrDate) Between [Starting archive date.] And [Ending archive date.]))

Name (Second query): Delete Selected Records

SQL (Second query):

DELETE CorrectionCRs.*, CorrectionCRs.CorrDate
FROM CorrectionCRs
WHERE (((CorrectionCRs.CorrDate) Between [Starting deletion date.] And [Ending deletion date.]));

*********************

The queries do work at the beginning, but if, for example, I make a small change in the wording of a parameter query, the error message starts appearing.

Thanks,
Bob

It does look like the local copies of the database interact with a back-end database on a network drive, so I don’t think replication is set up. Thanks anyway for the information resource–that might come in handy some day.

It does look like the local copies of the database interact with a back-end database on a network drive, so I don’t think replication is set up. Thanks anyway for the information resource–that might come in handy some day.

Thanks–That gets me pointed in the right direction. Right now, I’m leaning towards a macro that runs an append query, then a delete query. I’d also like to prompt for a date cutoff–would that best be done with a parameter query or a dialog box?

Also, yes, there are auto-numbers, and they’re used to relate tables, so I’ll have to be careful with them.

Bob

Thanks–That gets me pointed in the right direction. Right now, I’m leaning towards a macro that runs an append query, then a delete query. I’d also like to prompt for a date cutoff–would that best be done with a parameter query or a dialog box?

Also, yes, there are auto-numbers, and they’re used to relate tables, so I’ll have to be careful with them.

Bob

Klaus, that’s the exact kind of edit that I’m having problems with–the deletion of the last paragraph marker in a document. Isn’t there supposed to be something unique about that last paragraph marker? Something about it containing all the formatting for the document? I wonder if Word has some kind of natural defense coded into it.

Bob

Here is the processing code that is applied to every document in the loop:

ActiveDocument.TrackRevisions = False
ActiveDocument.AcceptAllRevisions

Thanks,
Bob

Thanks. That was exactly what I needed. I’m just plowing through a bunch of documents to find certain things. The error is just another form of “No”, so I don’t really need it for troubleshooting.

The UnlinkPictures sub worked. Interestingly, I tried it without the Update method, and my graphics disappeared again. Using the Update method, the graphics appeared. I added a “Selection.Fields.Update” line to the code that Hans offered earlier, and it now works for me too.

Thanks for all of your help,
Bob

“By dog, there’s more than one way to pluck a buzzard!” — Andy Griffith

<<Do you have Tools/Options/View tab/picture placeholders UNchecked?

Yes, I thought of that earlier and it's unchecked. It's strange–some of the graphics unlink properly and some don't. I've been comparing everything possible between the successes and the failures and I can't figure it out.

Thanks,
Bob

Adding a space after ^d makes a difference. I created a second With loop that looks for “^d INCLUDEPICTURE”and now every graphic is being processed, which is good. I’ll have to work on that graphics issue. The placeholders show, but nothing else shows. I tried printing the doc, and there’s just blank spaces where the graphics should be.

Thanks for your help,
Bob