I am developing an application which will print checks. Does a anyone have a
formula or function which will request a starting ckeck number and increment
it to display on the check as they are printed?
Thanks.
--
Lou

There are multiple ways of doing that. Can you be more specific with what
you are looking for?
--
Arvin Meyer, MCP, MVP
http://www.datastrat.com
http://www.mvps.org/access
http://www.accessmvp.com

"Lou C" <(E-Mail Removed)> wrote in message
news:8BB6EFC5-96DA-4A04-B4A9-(E-Mail Removed)...
>I am developing an application which will print checks. Does a anyone have
>a
> formula or function which will request a starting ckeck number and
> increment
> it to display on the check as they are printed?
> Thanks.
> --
> Lou

I have set up a query to extract records that are summarized and then a check
is prepared as a report using the detail and totals from the query. They will
probably be sheet fed laser checks. I would request the number of the first
preprinted check to be printed, and use it to print it on the check and to
eventually load back into the paid record for reconcilation. The starting
number would be incremented by 1 for each subsequent check printed until
complete.
--
Lou


"Arvin Meyer [MVP]" wrote:

> There are multiple ways of doing that. Can you be more specific with what
> you are looking for?
> --
> Arvin Meyer, MCP, MVP
> http://www.datastrat.com
> http://www.mvps.org/access
> http://www.accessmvp.com
>
> "Lou C" <(E-Mail Removed)> wrote in message
> news:8BB6EFC5-96DA-4A04-B4A9-(E-Mail Removed)...
> >I am developing an application which will print checks. Does a anyone have
> >a
> > formula or function which will request a starting ckeck number and
> > increment
> > it to display on the check as they are printed?
> > Thanks.
> > --
> > Lou
>
>
>

I would build a table with 1 record in it to hold the check number. I'm not
so sure that I'd allow the system to ask for the first number, because it's
too easy for a human to make a mistake.

Then I'd write a function that would go through all the query records and
put a check number in each one, increasing that number by 1. Something like
this:

Public Function GetNextNum() As Long
On Error GoTo Error_Handler

Dim db As DAO.Database
Dim rst As DAO.Recordset

Set db = CurrentDb
Set rst = db.OpenRecordset("tblCheckNumber", dbOpenDynaset)

With rst
rst.MoveFirst
rst.Edit
rst!CheckNumber = rst!CheckNumber + 1
rst.Update
End With

GetNextNum = rst!CheckNumber

Exit_Here:
On Error Resume Next
rst.Close
Set rst = Nothing
Set db = Nothing
Exit Function

Error_Handler:
Resume Exit_Here

End Function

Use that function in your query to add numbers to a query column. Since you
said you want to update a check register when you are done, you may want to
make your query into an Append query and append the records to a temporary
table. Run your check printer report on the data in that table and use those
records to update the check register with the check number, date, and
amount. When you are all done printing the checks and updating the register,
delete the records in the temporary table.
--
Arvin Meyer, MCP, MVP
http://www.datastrat.com
http://www.mvps.org/access
http://www.accessmvp.com

"Lou C" <(E-Mail Removed)> wrote in message
news:57E2B553-93F5-41AE-B09A-(E-Mail Removed)...
>I have set up a query to extract records that are summarized and then a
>check
> is prepared as a report using the detail and totals from the query. They
> will
> probably be sheet fed laser checks. I would request the number of the
> first
> preprinted check to be printed, and use it to print it on the check and to
> eventually load back into the paid record for reconcilation. The starting
> number would be incremented by 1 for each subsequent check printed until
> complete.
> --
> Lou
>
>
> "Arvin Meyer [MVP]" wrote:
>
>> There are multiple ways of doing that. Can you be more specific with what
>> you are looking for?
>> --
>> Arvin Meyer, MCP, MVP
>> http://www.datastrat.com
>> http://www.mvps.org/access
>> http://www.accessmvp.com
>>
>> "Lou C" <(E-Mail Removed)> wrote in message
>> news:8BB6EFC5-96DA-4A04-B4A9-(E-Mail Removed)...
>> >I am developing an application which will print checks. Does a anyone
>> >have
>> >a
>> > formula or function which will request a starting ckeck number and
>> > increment
>> > it to display on the check as they are printed?
>> > Thanks.
>> > --
>> > Lou
>>
>>
>>

Thanks. As a semi beginner, learning by trial and error, where would I put
the function reference in the query table? Also, when I copied the data
base for backup purposes, all of my function references, including the system
ones are now not found. I get a request to input data for the function names,
even =date()!

As a MVP, do you have any suggestions re the best way to better understand
Access? I have the Bible, Complete Referenece and Microsoft Step by Step.
Also, I am using Access 2000 with 2003 available. should I switch to 2003?
Thanks for all your assistance.
Lou
--
Lou


"Arvin Meyer [MVP]" wrote:

> I would build a table with 1 record in it to hold the check number. I'm not
> so sure that I'd allow the system to ask for the first number, because it's
> too easy for a human to make a mistake.
>
> Then I'd write a function that would go through all the query records and
> put a check number in each one, increasing that number by 1. Something like
> this:
>
> Public Function GetNextNum() As Long
> On Error GoTo Error_Handler
>
> Dim db As DAO.Database
> Dim rst As DAO.Recordset
>
> Set db = CurrentDb
> Set rst = db.OpenRecordset("tblCheckNumber", dbOpenDynaset)
>
> With rst
> rst.MoveFirst
> rst.Edit
> rst!CheckNumber = rst!CheckNumber + 1
> rst.Update
> End With
>
> GetNextNum = rst!CheckNumber
>
> Exit_Here:
> On Error Resume Next
> rst.Close
> Set rst = Nothing
> Set db = Nothing
> Exit Function
>
> Error_Handler:
> Resume Exit_Here
>
> End Function
>
> Use that function in your query to add numbers to a query column. Since you
> said you want to update a check register when you are done, you may want to
> make your query into an Append query and append the records to a temporary
> table. Run your check printer report on the data in that table and use those
> records to update the check register with the check number, date, and
> amount. When you are all done printing the checks and updating the register,
> delete the records in the temporary table.
> --
> Arvin Meyer, MCP, MVP
> http://www.datastrat.com
> http://www.mvps.org/access
> http://www.accessmvp.com
>
> "Lou C" <(E-Mail Removed)> wrote in message
> news:57E2B553-93F5-41AE-B09A-(E-Mail Removed)...
> >I have set up a query to extract records that are summarized and then a
> >check
> > is prepared as a report using the detail and totals from the query. They
> > will
> > probably be sheet fed laser checks. I would request the number of the
> > first
> > preprinted check to be printed, and use it to print it on the check and to
> > eventually load back into the paid record for reconcilation. The starting
> > number would be incremented by 1 for each subsequent check printed until
> > complete.
> > --
> > Lou
> >
> >
> > "Arvin Meyer [MVP]" wrote:
> >
> >> There are multiple ways of doing that. Can you be more specific with what
> >> you are looking for?
> >> --
> >> Arvin Meyer, MCP, MVP
> >> http://www.datastrat.com
> >> http://www.mvps.org/access
> >> http://www.accessmvp.com
> >>
> >> "Lou C" <(E-Mail Removed)> wrote in message
> >> news:8BB6EFC5-96DA-4A04-B4A9-(E-Mail Removed)...
> >> >I am developing an application which will print checks. Does a anyone
> >> >have
> >> >a
> >> > formula or function which will request a starting ckeck number and
> >> > increment
> >> > it to display on the check as they are printed?
> >> > Thanks.
> >> > --
> >> > Lou
> >>
> >>
> >>
>
>
>

Add a column to the query that calls the function. It should look like this:

PONumber: GetNextNum()

Remember if you look at the query and scroll up and down, it will keep
adding new numbers. Make the query into a Make-Table query so it runs only
once.
--
Arvin Meyer, MCP, MVP
http://www.datastrat.com
http://www.mvps.org/access
http://www.accessmvp.com

"Lou C" <(E-Mail Removed)> wrote in message
news:00E95CD8-B934-4826-A34B-(E-Mail Removed)...
> Thanks. As a semi beginner, learning by trial and error, where would I put
> the function reference in the query table? Also, when I copied the data
> base for backup purposes, all of my function references, including the
> system
> ones are now not found. I get a request to input data for the function
> names,
> even =date()!
>
> As a MVP, do you have any suggestions re the best way to better understand
> Access? I have the Bible, Complete Referenece and Microsoft Step by Step.
> Also, I am using Access 2000 with 2003 available. should I switch to 2003?
> Thanks for all your assistance.
> Lou
> --
> Lou
>
>
> "Arvin Meyer [MVP]" wrote:
>
>> I would build a table with 1 record in it to hold the check number. I'm
>> not
>> so sure that I'd allow the system to ask for the first number, because
>> it's
>> too easy for a human to make a mistake.
>>
>> Then I'd write a function that would go through all the query records and
>> put a check number in each one, increasing that number by 1. Something
>> like
>> this:
>>
>> Public Function GetNextNum() As Long
>> On Error GoTo Error_Handler
>>
>> Dim db As DAO.Database
>> Dim rst As DAO.Recordset
>>
>> Set db = CurrentDb
>> Set rst = db.OpenRecordset("tblCheckNumber", dbOpenDynaset)
>>
>> With rst
>> rst.MoveFirst
>> rst.Edit
>> rst!CheckNumber = rst!CheckNumber + 1
>> rst.Update
>> End With
>>
>> GetNextNum = rst!CheckNumber
>>
>> Exit_Here:
>> On Error Resume Next
>> rst.Close
>> Set rst = Nothing
>> Set db = Nothing
>> Exit Function
>>
>> Error_Handler:
>> Resume Exit_Here
>>
>> End Function
>>
>> Use that function in your query to add numbers to a query column. Since
>> you
>> said you want to update a check register when you are done, you may want
>> to
>> make your query into an Append query and append the records to a
>> temporary
>> table. Run your check printer report on the data in that table and use
>> those
>> records to update the check register with the check number, date, and
>> amount. When you are all done printing the checks and updating the
>> register,
>> delete the records in the temporary table.
>> --
>> Arvin Meyer, MCP, MVP
>> http://www.datastrat.com
>> http://www.mvps.org/access
>> http://www.accessmvp.com
>>
>> "Lou C" <(E-Mail Removed)> wrote in message
>> news:57E2B553-93F5-41AE-B09A-(E-Mail Removed)...
>> >I have set up a query to extract records that are summarized and then a
>> >check
>> > is prepared as a report using the detail and totals from the query.
>> > They
>> > will
>> > probably be sheet fed laser checks. I would request the number of the
>> > first
>> > preprinted check to be printed, and use it to print it on the check and
>> > to
>> > eventually load back into the paid record for reconcilation. The
>> > starting
>> > number would be incremented by 1 for each subsequent check printed
>> > until
>> > complete.
>> > --
>> > Lou
>> >
>> >
>> > "Arvin Meyer [MVP]" wrote:
>> >
>> >> There are multiple ways of doing that. Can you be more specific with
>> >> what
>> >> you are looking for?
>> >> --
>> >> Arvin Meyer, MCP, MVP
>> >> http://www.datastrat.com
>> >> http://www.mvps.org/access
>> >> http://www.accessmvp.com
>> >>
>> >> "Lou C" <(E-Mail Removed)> wrote in message
>> >> news:8BB6EFC5-96DA-4A04-B4A9-(E-Mail Removed)...
>> >> >I am developing an application which will print checks. Does a anyone
>> >> >have
>> >> >a
>> >> > formula or function which will request a starting ckeck number and
>> >> > increment
>> >> > it to display on the check as they are printed?
>> >> > Thanks.
>> >> > --
>> >> > Lou
>> >>
>> >>
>> >>
>>
>>
>>

Thanks. Created it, but get "User defined type not defined" error for Dim
statements on compile. What did I do wrong?
--
Lou


"Arvin Meyer [MVP]" wrote:

> Add a column to the query that calls the function. It should look like this:
>
> PONumber: GetNextNum()
>
> Remember if you look at the query and scroll up and down, it will keep
> adding new numbers. Make the query into a Make-Table query so it runs only
> once.
> --
> Arvin Meyer, MCP, MVP
> http://www.datastrat.com
> http://www.mvps.org/access
> http://www.accessmvp.com
>
> "Lou C" <(E-Mail Removed)> wrote in message
> news:00E95CD8-B934-4826-A34B-(E-Mail Removed)...
> > Thanks. As a semi beginner, learning by trial and error, where would I put
> > the function reference in the query table? Also, when I copied the data
> > base for backup purposes, all of my function references, including the
> > system
> > ones are now not found. I get a request to input data for the function
> > names,
> > even =date()!
> >
> > As a MVP, do you have any suggestions re the best way to better understand
> > Access? I have the Bible, Complete Referenece and Microsoft Step by Step.
> > Also, I am using Access 2000 with 2003 available. should I switch to 2003?
> > Thanks for all your assistance.
> > Lou
> > --
> > Lou
> >
> >
> > "Arvin Meyer [MVP]" wrote:
> >
> >> I would build a table with 1 record in it to hold the check number. I'm
> >> not
> >> so sure that I'd allow the system to ask for the first number, because
> >> it's
> >> too easy for a human to make a mistake.
> >>
> >> Then I'd write a function that would go through all the query records and
> >> put a check number in each one, increasing that number by 1. Something
> >> like
> >> this:
> >>
> >> Public Function GetNextNum() As Long
> >> On Error GoTo Error_Handler
> >>
> >> Dim db As DAO.Database
> >> Dim rst As DAO.Recordset
> >>
> >> Set db = CurrentDb
> >> Set rst = db.OpenRecordset("tblCheckNumber", dbOpenDynaset)
> >>
> >> With rst
> >> rst.MoveFirst
> >> rst.Edit
> >> rst!CheckNumber = rst!CheckNumber + 1
> >> rst.Update
> >> End With
> >>
> >> GetNextNum = rst!CheckNumber
> >>
> >> Exit_Here:
> >> On Error Resume Next
> >> rst.Close
> >> Set rst = Nothing
> >> Set db = Nothing
> >> Exit Function
> >>
> >> Error_Handler:
> >> Resume Exit_Here
> >>
> >> End Function
> >>
> >> Use that function in your query to add numbers to a query column. Since
> >> you
> >> said you want to update a check register when you are done, you may want
> >> to
> >> make your query into an Append query and append the records to a
> >> temporary
> >> table. Run your check printer report on the data in that table and use
> >> those
> >> records to update the check register with the check number, date, and
> >> amount. When you are all done printing the checks and updating the
> >> register,
> >> delete the records in the temporary table.
> >> --
> >> Arvin Meyer, MCP, MVP
> >> http://www.datastrat.com
> >> http://www.mvps.org/access
> >> http://www.accessmvp.com
> >>
> >> "Lou C" <(E-Mail Removed)> wrote in message
> >> news:57E2B553-93F5-41AE-B09A-(E-Mail Removed)...
> >> >I have set up a query to extract records that are summarized and then a
> >> >check
> >> > is prepared as a report using the detail and totals from the query.
> >> > They
> >> > will
> >> > probably be sheet fed laser checks. I would request the number of the
> >> > first
> >> > preprinted check to be printed, and use it to print it on the check and
> >> > to
> >> > eventually load back into the paid record for reconcilation. The
> >> > starting
> >> > number would be incremented by 1 for each subsequent check printed
> >> > until
> >> > complete.
> >> > --
> >> > Lou
> >> >
> >> >
> >> > "Arvin Meyer [MVP]" wrote:
> >> >
> >> >> There are multiple ways of doing that. Can you be more specific with
> >> >> what
> >> >> you are looking for?
> >> >> --
> >> >> Arvin Meyer, MCP, MVP
> >> >> http://www.datastrat.com
> >> >> http://www.mvps.org/access
> >> >> http://www.accessmvp.com
> >> >>
> >> >> "Lou C" <(E-Mail Removed)> wrote in message
> >> >> news:8BB6EFC5-96DA-4A04-B4A9-(E-Mail Removed)...
> >> >> >I am developing an application which will print checks. Does a anyone
> >> >> >have
> >> >> >a
> >> >> > formula or function which will request a starting ckeck number and
> >> >> > increment
> >> >> > it to display on the check as they are printed?
> >> >> > Thanks.
> >> >> > --
> >> >> > Lou
> >> >>
> >> >>
> >> >>
> >>
> >>
> >>
>
>
>

On Tue, 14 Nov 2006 13:33:02 -0800, Lou C
<(E-Mail Removed)> wrote:

>Thanks. Created it, but get "User defined type not defined" error for Dim
>statements on compile. What did I do wrong?

Probably you don't have the DAO Object Library selected. With the VBA
editor open select Tools... References. If Microsoft DAO x.xx (the
highest version if there are more than one) isn't checked, check it.

John W. Vinson[MVP]

Did you set a reference to DAO in the Tools menu of the code window?
--
Arvin Meyer, MCP, MVP
http://www.datastrat.com
http://www.mvps.org/access
http://www.accessmvp.com

"Lou C" <(E-Mail Removed)> wrote in message
news:7BA5E23F-0652-455C-B259-(E-Mail Removed)...
> Thanks. Created it, but get "User defined type not defined" error for Dim
> statements on compile. What did I do wrong?
> --
> Lou
>
>
> "Arvin Meyer [MVP]" wrote:
>
>> Add a column to the query that calls the function. It should look like
>> this:
>>
>> PONumber: GetNextNum()
>>
>> Remember if you look at the query and scroll up and down, it will keep
>> adding new numbers. Make the query into a Make-Table query so it runs
>> only
>> once.
>> --
>> Arvin Meyer, MCP, MVP
>> http://www.datastrat.com
>> http://www.mvps.org/access
>> http://www.accessmvp.com
>>
>> "Lou C" <(E-Mail Removed)> wrote in message
>> news:00E95CD8-B934-4826-A34B-(E-Mail Removed)...
>> > Thanks. As a semi beginner, learning by trial and error, where would I
>> > put
>> > the function reference in the query table? Also, when I copied the
>> > data
>> > base for backup purposes, all of my function references, including the
>> > system
>> > ones are now not found. I get a request to input data for the function
>> > names,
>> > even =date()!
>> >
>> > As a MVP, do you have any suggestions re the best way to better
>> > understand
>> > Access? I have the Bible, Complete Referenece and Microsoft Step by
>> > Step.
>> > Also, I am using Access 2000 with 2003 available. should I switch to
>> > 2003?
>> > Thanks for all your assistance.
>> > Lou
>> > --
>> > Lou
>> >
>> >
>> > "Arvin Meyer [MVP]" wrote:
>> >
>> >> I would build a table with 1 record in it to hold the check number.
>> >> I'm
>> >> not
>> >> so sure that I'd allow the system to ask for the first number, because
>> >> it's
>> >> too easy for a human to make a mistake.
>> >>
>> >> Then I'd write a function that would go through all the query records
>> >> and
>> >> put a check number in each one, increasing that number by 1. Something
>> >> like
>> >> this:
>> >>
>> >> Public Function GetNextNum() As Long
>> >> On Error GoTo Error_Handler
>> >>
>> >> Dim db As DAO.Database
>> >> Dim rst As DAO.Recordset
>> >>
>> >> Set db = CurrentDb
>> >> Set rst = db.OpenRecordset("tblCheckNumber", dbOpenDynaset)
>> >>
>> >> With rst
>> >> rst.MoveFirst
>> >> rst.Edit
>> >> rst!CheckNumber = rst!CheckNumber + 1
>> >> rst.Update
>> >> End With
>> >>
>> >> GetNextNum = rst!CheckNumber
>> >>
>> >> Exit_Here:
>> >> On Error Resume Next
>> >> rst.Close
>> >> Set rst = Nothing
>> >> Set db = Nothing
>> >> Exit Function
>> >>
>> >> Error_Handler:
>> >> Resume Exit_Here
>> >>
>> >> End Function
>> >>
>> >> Use that function in your query to add numbers to a query column.
>> >> Since
>> >> you
>> >> said you want to update a check register when you are done, you may
>> >> want
>> >> to
>> >> make your query into an Append query and append the records to a
>> >> temporary
>> >> table. Run your check printer report on the data in that table and use
>> >> those
>> >> records to update the check register with the check number, date, and
>> >> amount. When you are all done printing the checks and updating the
>> >> register,
>> >> delete the records in the temporary table.
>> >> --
>> >> Arvin Meyer, MCP, MVP
>> >> http://www.datastrat.com
>> >> http://www.mvps.org/access
>> >> http://www.accessmvp.com
>> >>
>> >> "Lou C" <(E-Mail Removed)> wrote in message
>> >> news:57E2B553-93F5-41AE-B09A-(E-Mail Removed)...
>> >> >I have set up a query to extract records that are summarized and then
>> >> >a
>> >> >check
>> >> > is prepared as a report using the detail and totals from the query.
>> >> > They
>> >> > will
>> >> > probably be sheet fed laser checks. I would request the number of
>> >> > the
>> >> > first
>> >> > preprinted check to be printed, and use it to print it on the check
>> >> > and
>> >> > to
>> >> > eventually load back into the paid record for reconcilation. The
>> >> > starting
>> >> > number would be incremented by 1 for each subsequent check printed
>> >> > until
>> >> > complete.
>> >> > --
>> >> > Lou
>> >> >
>> >> >
>> >> > "Arvin Meyer [MVP]" wrote:
>> >> >
>> >> >> There are multiple ways of doing that. Can you be more specific
>> >> >> with
>> >> >> what
>> >> >> you are looking for?
>> >> >> --
>> >> >> Arvin Meyer, MCP, MVP
>> >> >> http://www.datastrat.com
>> >> >> http://www.mvps.org/access
>> >> >> http://www.accessmvp.com
>> >> >>
>> >> >> "Lou C" <(E-Mail Removed)> wrote in message
>> >> >> news:8BB6EFC5-96DA-4A04-B4A9-(E-Mail Removed)...
>> >> >> >I am developing an application which will print checks. Does a
>> >> >> >anyone
>> >> >> >have
>> >> >> >a
>> >> >> > formula or function which will request a starting ckeck number
>> >> >> > and
>> >> >> > increment
>> >> >> > it to display on the check as they are printed?
>> >> >> > Thanks.
>> >> >> > --
>> >> >> > Lou
>> >> >>
>> >> >>
>> >> >>
>> >>
>> >>
>> >>
>>
>>
>>

No. Do now and it complied fine.
Thanks.
--
Lou


"Arvin Meyer [MVP]" wrote:

> Did you set a reference to DAO in the Tools menu of the code window?
> --
> Arvin Meyer, MCP, MVP
> http://www.datastrat.com
> http://www.mvps.org/access
> http://www.accessmvp.com
>
> "Lou C" <(E-Mail Removed)> wrote in message
> news:7BA5E23F-0652-455C-B259-(E-Mail Removed)...
> > Thanks. Created it, but get "User defined type not defined" error for Dim
> > statements on compile. What did I do wrong?
> > --
> > Lou
> >
> >
> > "Arvin Meyer [MVP]" wrote:
> >
> >> Add a column to the query that calls the function. It should look like
> >> this:
> >>
> >> PONumber: GetNextNum()
> >>
> >> Remember if you look at the query and scroll up and down, it will keep
> >> adding new numbers. Make the query into a Make-Table query so it runs
> >> only
> >> once.
> >> --
> >> Arvin Meyer, MCP, MVP
> >> http://www.datastrat.com
> >> http://www.mvps.org/access
> >> http://www.accessmvp.com
> >>
> >> "Lou C" <(E-Mail Removed)> wrote in message
> >> news:00E95CD8-B934-4826-A34B-(E-Mail Removed)...
> >> > Thanks. As a semi beginner, learning by trial and error, where would I
> >> > put
> >> > the function reference in the query table? Also, when I copied the
> >> > data
> >> > base for backup purposes, all of my function references, including the
> >> > system
> >> > ones are now not found. I get a request to input data for the function
> >> > names,
> >> > even =date()!
> >> >
> >> > As a MVP, do you have any suggestions re the best way to better
> >> > understand
> >> > Access? I have the Bible, Complete Referenece and Microsoft Step by
> >> > Step.
> >> > Also, I am using Access 2000 with 2003 available. should I switch to
> >> > 2003?
> >> > Thanks for all your assistance.
> >> > Lou
> >> > --
> >> > Lou
> >> >
> >> >
> >> > "Arvin Meyer [MVP]" wrote:
> >> >
> >> >> I would build a table with 1 record in it to hold the check number.
> >> >> I'm
> >> >> not
> >> >> so sure that I'd allow the system to ask for the first number, because
> >> >> it's
> >> >> too easy for a human to make a mistake.
> >> >>
> >> >> Then I'd write a function that would go through all the query records
> >> >> and
> >> >> put a check number in each one, increasing that number by 1. Something
> >> >> like
> >> >> this:
> >> >>
> >> >> Public Function GetNextNum() As Long
> >> >> On Error GoTo Error_Handler
> >> >>
> >> >> Dim db As DAO.Database
> >> >> Dim rst As DAO.Recordset
> >> >>
> >> >> Set db = CurrentDb
> >> >> Set rst = db.OpenRecordset("tblCheckNumber", dbOpenDynaset)
> >> >>
> >> >> With rst
> >> >> rst.MoveFirst
> >> >> rst.Edit
> >> >> rst!CheckNumber = rst!CheckNumber + 1
> >> >> rst.Update
> >> >> End With
> >> >>
> >> >> GetNextNum = rst!CheckNumber
> >> >>
> >> >> Exit_Here:
> >> >> On Error Resume Next
> >> >> rst.Close
> >> >> Set rst = Nothing
> >> >> Set db = Nothing
> >> >> Exit Function
> >> >>
> >> >> Error_Handler:
> >> >> Resume Exit_Here
> >> >>
> >> >> End Function
> >> >>
> >> >> Use that function in your query to add numbers to a query column.
> >> >> Since
> >> >> you
> >> >> said you want to update a check register when you are done, you may
> >> >> want
> >> >> to
> >> >> make your query into an Append query and append the records to a
> >> >> temporary
> >> >> table. Run your check printer report on the data in that table and use
> >> >> those
> >> >> records to update the check register with the check number, date, and
> >> >> amount. When you are all done printing the checks and updating the
> >> >> register,
> >> >> delete the records in the temporary table.
> >> >> --
> >> >> Arvin Meyer, MCP, MVP
> >> >> http://www.datastrat.com
> >> >> http://www.mvps.org/access
> >> >> http://www.accessmvp.com
> >> >>
> >> >> "Lou C" <(E-Mail Removed)> wrote in message
> >> >> news:57E2B553-93F5-41AE-B09A-(E-Mail Removed)...
> >> >> >I have set up a query to extract records that are summarized and then
> >> >> >a
> >> >> >check
> >> >> > is prepared as a report using the detail and totals from the query.
> >> >> > They
> >> >> > will
> >> >> > probably be sheet fed laser checks. I would request the number of
> >> >> > the
> >> >> > first
> >> >> > preprinted check to be printed, and use it to print it on the check
> >> >> > and
> >> >> > to
> >> >> > eventually load back into the paid record for reconcilation. The
> >> >> > starting
> >> >> > number would be incremented by 1 for each subsequent check printed
> >> >> > until
> >> >> > complete.
> >> >> > --
> >> >> > Lou
> >> >> >
> >> >> >
> >> >> > "Arvin Meyer [MVP]" wrote:
> >> >> >
> >> >> >> There are multiple ways of doing that. Can you be more specific
> >> >> >> with
> >> >> >> what
> >> >> >> you are looking for?
> >> >> >> --
> >> >> >> Arvin Meyer, MCP, MVP
> >> >> >> http://www.datastrat.com
> >> >> >> http://www.mvps.org/access
> >> >> >> http://www.accessmvp.com
> >> >> >>
> >> >> >> "Lou C" <(E-Mail Removed)> wrote in message
> >> >> >> news:8BB6EFC5-96DA-4A04-B4A9-(E-Mail Removed)...
> >> >> >> >I am developing an application which will print checks. Does a
> >> >> >> >anyone
> >> >> >> >have
> >> >> >> >a
> >> >> >> > formula or function which will request a starting ckeck number
> >> >> >> > and
> >> >> >> > increment
> >> >> >> > it to display on the check as they are printed?
> >> >> >> > Thanks.
> >> >> >> > --
> >> >> >> > Lou
> >> >> >>
> >> >> >>
> >> >> >>
> >> >>
> >> >>
> >> >>
> >>
> >>
> >>
>
>
>