Replies

Hi Ian
There was a wizard in Access 97 that found unmatched data …
Your solution will probably involve two key elements

a left join
&
a condition where somefieldName is Null

e.g
SELECT distinctrow tbl_x.fieldName FROM
tbl_x LEFT JOIN tbl_y ON
tbl_x.fieldName = tbl_y.fieldName
WHERE tbl_y.fieldName IS NULL;

It is easier with teh Wizard

Cheers
Geof

Hi John
Have you checked to ensure that there are no criteria in either word or Access that are limiting the dataset …
Word MailMerge Query Options …
An Access query.
After that I would need more info on the datasource.
Is it a table, a query, if related tables are the relationships correct etc …

Cheers
Geof

Hi
It is my belief that you should be more explict in you select statement. Select * selects all fields.

In the FROM clause you can specify a field even if you havent explicitly named it in the select clause.

e.g
———
SELECT tblProperty.Address1, tblProperty.Town, tblPropHazard.Hazard, tblOwnershipDetails.OwnerID
FROM (tblProperty INNER JOIN tblPropHazard ON tblProperty.PropId = tblPropHazard.PropId) INNER JOIN (tblOwners INNER JOIN tblOwnershipDetails ON tblOwners.OwnerId = tblOwnershipDetails.OwnerID) ON tblProperty.PropId = tblOwnershipDetails.PropId;
————————

Note that tblProperty.PropID is not explicitly listed in the select clause.
Hope I have helped
Geof

Thanks for the ideas and the references ..

I think I have got around the problem like this

sub autonew
For each field in activedocument.fields
field.update
next
end sub

If this doesnt work then back to userforms …

Many thanks
I find your sites very useful and appreciate the lounge immensely

Geof

Hi Deborah
Try this userdefined function

Function CountDateBetween(inRange, minDate As Date, maxDate As Date)
Dim MinCtr, MaxCtr As Integer ‘counter for dates exceeding limits
MinCtr = Application.CountIf(inRange, “>=” & minDate)
MaxCtr = Application.CountIf(inRange, “>” & maxDate)
CountDateBetween = MinCtr – MaxCtr
End Function

Copy & paste into the personal workbook macros. This workbook is normally hidden.
You will be then able to invoke thefunction using the function wizard (fx button) from the user defined category.

Cheers
Geof

Hi
Does this work ?

=countif(Range,>=MinDate)-countif(range,>MaxDate)

Cheers
Geof

Hi
This is crude but it may work for you

Assume Birthday in a1
Calc Age in a2 with

=(today()-a1)/365

You will need to format A2 a number, say two decimal places.
There are far more sophisticated calculations about.

Cheers
Geof

Hi

I cant help with the MAPI, all I know is that MicSoft doesnt make it easy to coHabitate
Try this site

http://www.novell.com/coolsolutions/gwmag/

Cheers
Geof

Hi
One way of achieving this would be to bookmark separately the entries in the Name & address blocks of the letter. I used the bookmark Names “Name” & “Address”.

In the header / footer of section 2 of the document use the ref field and the bookmark name

eg {ref Name}
{ref Address}

Insert a field with INSERT>Field or CTRL+F9

Hope this helps
Geof

Sorry
Gave a response for AutoText …

Try article Q186237 on the MicSoft support knowledge base

Cheers
Geof

Hi

I go into the organiser (from FORMAT>Style) choose the autotext tab, select the appropriate template and create multiple selection in the autotext list and delete …

All or some at one shot.
Cheers
Geof

PS Microsoft have a macro (Macro8), I think that contains a routine to back up / rstore autotext/correct entries.

Hi Meryl
Has anyone been messing around customizing formatting styles and subsequently merged them into the default template ?

Geof

Hi
The following should loop thru the directory open/close each of the documents. No guarantees though.
============================================
sub loopingLabels
Dim FS
Dim i As Integer
Set FS = Application.FileSearch
Dim strFileName()
Application.ScreenUpdating = False

With FS.PropertyTests
.Add Name:=”Files of Type”, _
Condition:=msoConditionFileTypeWordDocuments, _
Connector:=msoConnectorOr
End With

With FS
‘ set you path here in the lookIn statement
.LookIn = “C:DataWordDocs”
ReDim strFileName(FS.FoundFiles.Count)
MsgBox (FS.FoundFiles.Count)’optional line

If .Execute(SortBy:=msoSortByFileName, _
SortOrder:=msoSortOrderAscending) > 0 Then
For i = 1 To .FoundFiles.Count
strFileName(i) = .FoundFiles(i)
Documents.Open (strFileName(i))
‘———————————————–
‘do something here to make label ??
‘———————————————–
ActiveDocument.Close SaveChanges:=wdDoNotSaveChanges
Next i
Else
MsgBox “There were no files found.”
End If
End With
Set FS = Nothing
End Sub
================================================
I hope this is a starter, sorry about the do something here to make labels.
It is all smoke & mirrors !!

Cheers
G

Hi
Just a crazy from the antipodes ..
What happens if you change keyboards ?
Clutching at straws !! maybe but I guess you are excited by now.

Geof

Hi Jefferson
Thank you for that. I will give it a try.
However that CDO.DLL is not listed on the system that is working.
This is a learning experience ..
Geof