Search results for query: *

Hi kjv1611 and MajP, Thanks so much for the replies. The table suggestion by kjv1611 seems very interesting but I have never try it before so I'm kind of don't know how to launch into that - will try in the future though. I will try to use the code for the merge utilities as proposed by MajP...

Hi MajP, Thanks for the reply and suggestion. I have already write the code to output all reports into a single folder which is working beautifully. However, due to my limited experience in writing code in Word Application, I have use a Macro to insert all 18 files in a Word template. The macro...

Hi kjv1611, Actually this is what I've been doing for the past year or so. Nonetheless, thanks for the reply.

Hi everyone, Is there a way to output multiple access reports to one single word file? I am able to output single report to .rtf without any problems by using the following code: Private Sub EditFinalsInWord_Click() Dim strCurrentPath As String strCurrentPath =...

Hi again MajP! Thanks again for the reply and suggestions. Had actually copied the code on on all three Event Procedures and it is working great. However, your suggestions do make sense (actually I've created and called routines before but it had just slip my mind - I guess it must be due to...

Hi MajP, Thanks for the tip. I've tried it on the Form_Current() procedure and it certainly makes it work better than before. However, when I tried to change the sex of the athlete the records in the subform do not automatically refresh to display events for the corresponding sex. My question...

Hi, I have a form with a subform and would like the choice I make in the subform to base on the content of two combobox;[Sex] and [SchoolNo] in the Main form. I have already written the code which is working ok. The problem is that if I want to change the Sex of the student I need to click...

Hi, Everything is ok now! I experimented in the Report and eventually I realise that I had put the textbox control source in the wrong section! I was using the Page Footer instead of the Report Footer. titanl

Hi everyone, I have created a Report based on a Crosstab. I'm trying to add up the total of students from the different schools but got an Error. I am using a text box in the Footer with the following code: Sum([TotalOfStudents]) Why the Error? NB. I have calculated in reports base on...

Actually this is what did yesterday, but I was just hoping that there could be a way around it. Thanks again for the time and suggestion, dhookom. You've been of very good help. titanl

Pls find below the SQL view of the crosstab. I want to sort by the [Total of Points] column TRANSFORM Sum([qryRankingAndMedalStandings_BestPrimary_Boys/Girls].Points) AS SumOfPoints SELECT [qryRankingAndMedalStandings_BestPrimary_Boys/Girls].SchoolName...

Hi, Is there a way to sort records in crosstab queries? I try but it says: "Cannot have aggregate function in ORDER BY clause" Any suggestion? Thanks.

Hi dhookom, The replacement of the "=" by "+1" works perfectly. Thanks so much for you help. titanl

Wow! Thanks PHV, it works magnificently. You really made my day. I had to change the < to > though cause it did the opposite. However just one tiny hiccup... The code is returning the rank as eg: Total Of Points Rank 81 1 73 2...

Thanks ZmrAbdulla. However, I have already visited that link last week but to no success. I've tried ranking in a query in my database it works cause the query is based on a table. But I think my difficulty is that the "Total of Points" I'm using is from a crosstab query which takes points...

The complete code is: Option Compare Database Dim lngLastPoints As Long Dim lngLastRank As Long Dim lngRankInc As Long Function RankFunction(lngPoints As Long) As Long lngLastPoints = 0 If lngLastPoints = lngPoints Then RankFunction = lngLastRank lngRankInc = lngRankInc + 1...

Oopps guys, false hope. The counter indeed is reset to 0 however the ties are overlooked. eg. Among 5 records with 21, 18, 11, 11, 6 the ranking wrongly reads - 1,2,3,4,5 when it should read 1,2,3,3,5. Any ideas? Thanks

Thanks so much for the prompt reply guys it works!! You have saved my day. Thanks again!

Hi, Have been trying to rank records according highest points in a report from a crosstab query and have create the module below in vba. Code Option Compare Database Dim lngLastPoints As Long Dim lngLastRank As Long Dim lngRankInc As Long Function RankFunction(lngPoints As Long) As Long If...

Hi, I need to rank records in a Crosstab query based on a select query name qryRanking_CategoryU16 as follows: Column1; Field: Category, Table: qryRanking_CategoryU16, Total: Group By, Crosstab: Row Heading Column2; Field: SchoolName, Table: qryRanking_CategoryU16, Total: Group By, Crosstab...