Duplicate Numbers

[rml]

I'm using the following code to create number + one. It works fine. On my
form, the user clicks this button and the number is generated. This is a
network situation. Sometimes, we see the number duplicated? Is there any
code I can add to prevent this form happening? Thanks.

Private Sub Command95_Click()
Dim X As Variant
Dim db As DAO.Database
Dim rs As DAO.Recordset
Set db = CurrentDb()
Set rs = db.OpenRecordset("Numbers")
rs.MoveLast
X = DMax("[number]", "[Numbers]") + 1
Me![Spectra] = DMax("[number]", "[Numbers]")
rs.AddNew
rs.Fields(0).Value = X
rs.Update
End Sub

 

[Klatuu]

Cross posting is frowned upon.
Please visit this site for info:
http://www.mvps.org/access/netiquette.htm

 

[rml]

Then where should I post this?

Cross posting is frowned upon.
Please visit this site for info:
http://www.mvps.org/access/netiquette.htm
--
Dave Hargis, Microsoft Access MVP

I'm using the following code to create number + one. It works fine. On my
form, the user clicks this button and the number is generated. This is a
network situation. Sometimes, we see the number duplicated? Is there any
code I can add to prevent this form happening? Thanks.

Private Sub Command95_Click()
Dim X As Variant
Dim db As DAO.Database
Dim rs As DAO.Recordset
Set db = CurrentDb()
Set rs = db.OpenRecordset("Numbers")
rs.MoveLast
X = DMax("[number]", "[Numbers]") + 1
Me![Spectra] = DMax("[number]", "[Numbers]")
rs.AddNew
rs.Fields(0).Value = X
rs.Update
End Sub

 

[Klatuu]

In any one of the groups is fine. Based on the question, perhaps Modulesdaovba

Please understand I don't mean to beat you up. My intent is to help. Many
participants will ignore multi posted questions.
--
Dave Hargis, Microsoft Access MVP

Then where should I post this?

Cross posting is frowned upon.
Please visit this site for info:
http://www.mvps.org/access/netiquette.htm
--
Dave Hargis, Microsoft Access MVP

I'm using the following code to create number + one. It works fine. On my
form, the user clicks this button and the number is generated. This is a
network situation. Sometimes, we see the number duplicated? Is there any
code I can add to prevent this form happening? Thanks.

Private Sub Command95_Click()
Dim X As Variant
Dim db As DAO.Database
Dim rs As DAO.Recordset
Set db = CurrentDb()
Set rs = db.OpenRecordset("Numbers")
rs.MoveLast
X = DMax("[number]", "[Numbers]") + 1
Me![Spectra] = DMax("[number]", "[Numbers]")
rs.AddNew
rs.Fields(0).Value = X
rs.Update
End Sub

 

[rml]

I posted in the forms coding group because it is an access forms question.
Under the access groups, I don't see anything for Modulesdaovba, so I'm not
sure why this is not the correct group??

In any one of the groups is fine. Based on the question, perhaps Modulesdaovba

Please understand I don't mean to beat you up. My intent is to help. Many
participants will ignore multi posted questions.
--
Dave Hargis, Microsoft Access MVP

Then where should I post this?

Cross posting is frowned upon.
Please visit this site for info:
http://www.mvps.org/access/netiquette.htm
--
Dave Hargis, Microsoft Access MVP


:

I'm using the following code to create number + one. It works fine. On my
form, the user clicks this button and the number is generated. This is a
network situation. Sometimes, we see the number duplicated? Is there any
code I can add to prevent this form happening? Thanks.

Private Sub Command95_Click()
Dim X As Variant
Dim db As DAO.Database
Dim rs As DAO.Recordset
Set db = CurrentDb()
Set rs = db.OpenRecordset("Numbers")
rs.MoveLast
X = DMax("[number]", "[Numbers]") + 1
Me![Spectra] = DMax("[number]", "[Numbers]")
rs.AddNew
rs.Fields(0).Value = X
rs.Update
End Sub

 

[Klatuu]

Perhaps it just isn't mapped in your newsreader, but it doesn't matter that
much. Many posts are in a group that doesn't seem correct. It is only to
help you get the best answer. The point is, one group, not several.

--
Dave Hargis, Microsoft Access MVP

I posted in the forms coding group because it is an access forms question.
Under the access groups, I don't see anything for Modulesdaovba, so I'm not
sure why this is not the correct group??

In any one of the groups is fine. Based on the question, perhaps Modulesdaovba

Please understand I don't mean to beat you up. My intent is to help. Many
participants will ignore multi posted questions.
--
Dave Hargis, Microsoft Access MVP

Then where should I post this?

:

Cross posting is frowned upon.
Please visit this site for info:
http://www.mvps.org/access/netiquette.htm
--
Dave Hargis, Microsoft Access MVP


:

I'm using the following code to create number + one. It works fine. On my
form, the user clicks this button and the number is generated. This is a
network situation. Sometimes, we see the number duplicated? Is there any
code I can add to prevent this form happening? Thanks.

Private Sub Command95_Click()
Dim X As Variant
Dim db As DAO.Database
Dim rs As DAO.Recordset
Set db = CurrentDb()
Set rs = db.OpenRecordset("Numbers")
rs.MoveLast
X = DMax("[number]", "[Numbers]") + 1
Me![Spectra] = DMax("[number]", "[Numbers]")
rs.AddNew
rs.Fields(0).Value = X
rs.Update
End Sub

 

[Ofer Cohen]

Hi,

I'm a bit confused about what you are trying to achieve, why you are saving
this value in a seperate table?

Don't run DMax twice, assign the value you got from the first time

Dim X As Variant
Dim db As DAO.Database
Dim rs As DAO.Recordset

X = DMax("[number]", "[Numbers]") + 1
Set db = CurrentDb()
Set rs = db.OpenRecordset("Select * From Numbers Where number Is Null")
rs.AddNew
rs![number] = X
rs.Update
Me![Spectra] = X

--
Good Luck
BS"D

Then where should I post this?

Cross posting is frowned upon.
Please visit this site for info:
http://www.mvps.org/access/netiquette.htm
--
Dave Hargis, Microsoft Access MVP

I'm using the following code to create number + one. It works fine. On my
form, the user clicks this button and the number is generated. This is a
network situation. Sometimes, we see the number duplicated? Is there any
code I can add to prevent this form happening? Thanks.

Private Sub Command95_Click()
Dim X As Variant
Dim db As DAO.Database
Dim rs As DAO.Recordset
Set db = CurrentDb()
Set rs = db.OpenRecordset("Numbers")
rs.MoveLast
X = DMax("[number]", "[Numbers]") + 1
Me![Spectra] = DMax("[number]", "[Numbers]")
rs.AddNew
rs.Fields(0).Value = X
rs.Update
End Sub