Replies

the control source is the field from the query my report is based upon. The query uses the table field (doc Name) which is a hyperlink field. So viewed in a table or form it says e.g.”April Document List” (naturally in blue and underlined) – but for some reason in a report it picks up the hyperlink file name as well?

Talk about wood and trees – I was lost in a veritable forest!!!! I had a unique ref on the form – but I just got obsessed with linking the person and the document with the progress report.

Many many thanks – I shall be able to get some sleep before work tomorrow!!!!
Regards
Roberta

thanks to both of you, – I tend to fight shy of DOS options – coward that I am!! I went down the software route and the recommended program was absolutely superb – has solved the problem.

Regards

Roberta

I’m obliged. Thank you.

Roberta

Yes there are three tables one which lists the project details, one which lists the possible locations (all 64 of them!!) and a third table — which has the project number and the location (being joint primary keys as each project can only be in one location!.

The third table is the one which is updated by the option selection.

However, if the 64 after update entries will work – then I am happy to go with this (anything to get this finished!!!!!!)

Cheers

Roberta

The code I have used is some that you very kindly provided for me

Private Sub Form_Current()
If Me.NewRecord = False Then
Me.Opt1 = DCount(“*”, “destination table”, “[pdf]= ” & Me.PDFRef & ” and [Location] = ‘Business Site'”) = 1
Me.Opt2 = DCount(“*”, “destination table”, “[pdf]= ” & Me.PDFRef & ” and [Location] = ‘Customer Site'”) = 1
End If
End Sub

Private Sub Opt1_AfterUpdate()
Dim strSQL As String
DoCmd.SetWarnings False
If Me.Opt1 = True Then
strSQL = “INSERT INTO [Destination Table] ( PDF, Location ) Values (” & Me.PDFRef & “,’Customer Site’)”
Else
strSQL = “DELETE ‘*’FROM [Destination Table] WHERE [Destination Table].PDF = ” & Me.PDFRef & _
” AND [Location] = ‘Customer Site'”
End If
DoCmd.RunSQL strSQL
DoCmd.SetWarnings True
End Sub

Private Sub Opt2_AfterUpdate()
Dim strSQL As String
DoCmd.SetWarnings False
If Me.Opt2 = True Then
strSQL = “INSERT INTO [Destination Table] ( PDF, Location ) Values (” & Me.PDFRef & “,’Business Site’)”
Else
strSQL = “DELETE ‘*’FROM [Destination Table] WHERE [Destination Table].PDF = ” & Me.PDFRef & _
” AND [Location] = ‘Business Site'”
End If
DoCmd.RunSQL strSQL
DoCmd.SetWarnings True
End Sub

Which I have to tell you works absolutely brilliantly – just not when they want to be able to update all or clear all!!

Roberta

Thanks for this – and for showing me how to edit my post (much appreciated).

However, though the code above will beautifully select or deselect the Option Buttons – unfortuantely it does not up date the table which is triggered by the AfterUpdate event of each option button (if I go on a record and back a record the selections have returned to their previous state rather than writing to or deleting from the table from the AfterUpdate event).

The option buttons are in a sub form – and I have tried with the code in both forms. Only with the code in the sub form will the select or deselect work – but I think I need to do something else to trigger the AfterUpdate code in the form at the same time?

I am so close to getting this database finished and have learnt so much!!!

Thanks

Roberta

How did you all know my current problem!!!

not crucial but would be of interest:

if there are no records – rather than getting an error report how can you cancel the report and just get a message “nothing to report” or something similar?

Thanks

Thank you so so much. You just don’t know how much trouble this has got me out of!!!!!

Roberta

After having spent 3 hours with this – and now revisited it I find that I have not selected event procuedre under After UpDate on the option buttons! I got too bound up with the code.

Apologies for taking up time here

Your a genius – just had to put sets of brackets along side the “date” bit and it works a treat.

Thanks

Your a genius – just had to put sets of brackets along side the “date” bit and it works a treat.

Thanks

I tried – edit message, then under format selected plain text (agreed that it would lose formatting).

Then I selected edit message again. This then showed Rich Text as an option. Select this – then I found I could insert an item – including notes,

In the reading pane (I am currently using 2003) the note showed and I could click and access it (I assume in any other version it will show in preview.)

Bit of a long way around – but It worked and was quite good!!!

I tried – edit message, then under format selected plain text (agreed that it would lose formatting).

Then I selected edit message again. This then showed Rich Text as an option. Select this – then I found I could insert an item – including notes,

In the reading pane (I am currently using 2003) the note showed and I could click and access it (I assume in any other version it will show in preview.)

Bit of a long way around – but It worked and was quite good!!!

Unfortunately with 2003 even this does not seem to work – please has anyone tried Information Rights Management (which seems to be a button on the New Message toolbar now?)