using sequential numbers for documents

[snimmuc]

Hi Guys, it's snimmuc here. I don't know whether my last comment to you
helped or hindered you, but just to make my position clear to you, let me try
again. I have received TWO Microsoft community communications from you, but
when I have clicked on the two links all 4 pages are blank except for the
headings om the browser page. The reason I have sent you this note is to
confirm I have received TWO of these notices from you, but the "contents" on
the clicked links is always blank. I hope this clarifies my position. I
thought that maybe in reading my two responses, you MAY have thought they
both referred to the ONE community communications, but in fact BOTH of the
TWO communications contained 4 blank pages (2 x 2). Thanks for your
assistance.............snimmuc

 

[Arvin Meyer [MVP]]

Hi Guys, it's snimmuc here. I don't know whether my last comment to you
helped or hindered you, but just to make my position clear to you, let me
try
again. I have received TWO Microsoft community communications from you,
but
when I have clicked on the two links all 4 pages are blank except for the
headings om the browser page. The reason I have sent you this note is to
confirm I have received TWO of these notices from you, but the "contents"
on
the clicked links is always blank. I hope this clarifies my position. I
thought that maybe in reading my two responses, you MAY have thought they
both referred to the ONE community communications, but in fact BOTH of the
TWO communications contained 4 blank pages (2 x 2). Thanks for your
assistance.............snimmuc

It sounds like you are having a browser problem. Here is a repeat of my
answer to the question in this thread:

There are so many different ways to do this. Keep in mind, however, that if
a record in the sequence is deleted, a hole will remain that must be ignored
or manually filled,

Probably the easiest way is to look and see what the last number is and add
1 to it. Use this to create a default value for that record, so it won't be
used unless you start typing the record:

Private Sub Form_Current()
On Error Resume Next
Dim x As Integer
x = DMax("ProviderNumber", "tblProviders", "ID =" & Me.txtID)

If IsNull(x) Then
Me!txtProviderNumber.DefaultValue = 1
Else
Me!txtProviderNumber.DefaultValue = x + 1
End If

End Sub