Replies

That’s odd. This problem has happened to me when I had only Access 2000 last year. That’s why I dropped the idea of splitting databases because it kept on corrupting my code even tho’ everyone were using Access 2000 (At that time).

I decided to try splitting DB again using 2002 in hopes that this problem had gone away.

Yeah, I had both installed. Are you saying that I can’t have both? That would be a DEFINITE bummer!

Ahhh! I have got it licked. I found a form similiar to what I needed in a book I had. From its example, here was what I did:

Create a field called contactsID, the Record Source is set to ContactsID in the table and then type this expression in Default Value field: =[Forms]![FrmContactInfo]![ContactID]

How I didn’t think of it is beyond me.

I’ve tried OpenArgs but the ContactID column in the table is still blank.

I’ve also tried: =[Forms]![frmContactInfo]![ContactID] in an unbound field attached to the frmCmpInfo with same results.

I’m using a linked table (tblContacts). Will this cause problems?

Hmmm. How do you auto-process receipts? That might be the answer we need.

Brent

Found this article that could apply to you — The only problem is that it is for Access 2.0?

Article # Q114514

My apologies for not mentioning that. I had assumed that it wouldn’t have had made any difference.

My dad is the only one who actually uses the laptop, unfortunately, he needs two different dialing rules — one to dial 9 before using calling card for hotels and one to NOT dial 9 before using calling card for use at my home. I’ll try your suggestion and see if it works, although it would have to wait until November, when he comes back.

Thanks for your help. I appreciate it.

So, if I turn off Auto-Dial then whenever I fire up Outlook Express, it wouldn’t dial to my ISP automatically? If so, how do I get it to dial to the ISP? My dad is blind and he relies on using screen reader (a program that “talks” to my dad, describing the screen). The more automated his Windows 98 is, the better.

What an interesting idea this is! I’ll try that and let you know if it works or not.

Thanks a million.

Read on CNet that Microsoft will release Compatibility Check program sometime in middle of September. It will be available for download or on CD’s (apparently free at any retailers).

Well, cutting and pasting didn’t work. I’m pasting my codes and see if anyone could help.

(Name of Report is “Report1” because I made a copy and I will replace it as soon as I get the darned code working)

Option Compare Database ‘Use database order for sring comparisons.
Option Explicit

‘ Array for last record on each page and last record in recordset.
Dim gLast() As String

‘ Flag for number of passes through report.
Dim gLastPage As Integer

Private Sub PageHeaderSection_Format(Cancel As Integer, FormatCount As Integer)
‘ During second pass, fill in FirstEntry
‘ and LastEntry text boxes.
If gLastPage = True Then
Reports!Report1!FirstEntry = Reports!Report1!Name
Reports!Report1!LastEntry = gLast(Reports!Report1.Page)
End If

End Sub

Private Sub PageFooterSection_Format(Cancel As Integer, FormatCount As Integer)
‘ During first pass, increase size of array
‘ and enter last record on page into array.
If Not gLastPage Then
ReDim Preserve gLast(Reports!Report1.Page + 1)
gLast(Reports!Report1.Page) = Reports!Report1!Name
End If

End Sub

Private Sub ReportFooter_Format(Cancel As Integer, FormatCount As Integer)

Dim dbs As DAO.Database
Dim rst As Recordset

‘ Set flag after first pass has been completed.
gLastPage = True

‘Open recordset for report.
Set dbs = CurrentDb
Set rst = dbs.OpenRecordset(“tblParticipant”)
‘ Move to last record in recordset.
rst.MoveLast
‘ Enter last record into array.
ReDim Preserve gLast(Reports!Report1.Page + 1)
gLast(Reports!Report1.Page) = rst!Name

End Sub

Yeah…That have happened to me more than once. I tried using Dim dbs as DAO.Database to no avail. I’ll try cutting and pasting to new report and see what happens.

Thanks for finding this thread! I couldn’t find it – maybe bad search criteria.

I had tried that code from the Solutions database as well but exact same thing that happened to John happened to me…When I entered all that code…nothing happened. I run Access 2000 just like John. From Charlotte, it sounds like I need to modify my code using slightly different code. I’ll try that and get back to you if I don’t get it to work.

Thanks.

Thanks for all of your efforts in helping me, however, I know when I should quit when I’m ahead.

Unfortunately, from your code sample, I believe this particular requirement (limiting records to those that hasn’t been printed) is way too advanced for my current skillset. I guess the person who requested this will have to bite the bullet and print the entire recordset under that client.

I even tried DoCmd.OpenQuery as you originally recommended and it works just fine with one exception — The Client ID doesn’t get passed on (I believe it is due to the parameter).

Thanks so much for your patience and support.

Interesting tidbit about SetWarnings. I’ll move it so that it would turn off the warning only for the append event.

I’m not too sure what is the difference between ADO and DAO? I have only 3 months’ worth of experience in VBA. I’ve been working a lot with Macros for a while and decided to take a jump into VBA, hence all those questions of mine! grin. Yeah, I know how to use Parameters in the query instead of using Criteria. I usually find it faster using criteria field but for this purpose, I’ll use the Parameter.