Very strange??

[Sigurd Bruteig]

In a form the user can register new produkts. The code below prevent the
user to enter a numer already registered. The strange thing is that it is
still possible to enter no. 1 several times. On all other numers the code
seems to work. What is the reason/solution to this.!!

TIA

Sigurd

Dim lngArtikkelnr As Long
Dim conFilePath As String
conFilePath = strBackend
Dim dbs As Database, rst As DAO.recordset
Set dbs = OpenDatabase(conFilePath)

Set rst = dbs.OpenRecordset("tblProdukterFaktura", dbOpenTable)
rst.MoveFirst
rst.index = "PrimaryKey"
rst.Seek "=", lngArtikkelnr

If rst.NoMatch Then
'OK numer is free
Else
'code to let the user enter a new numer or use dmax+1
____________________________________________
KILLSPAM R e m o v e trippleX to reply
to email adress.

[Pavel Romashkin]

I am not sure what exactly is happening with Seek, but I would in
general recommend another approach. Try using SQL and see how many
records are returned with your search criteria. If zero, your value is
unique. If not - it is already in the table.
I typically use an ADO recordset for this, with its RecordCount property.

Cheers,
Pavel

Sigurd Bruteig wrote:

In a form the user can register new produkts. The code below prevent the
user to enter a numer already registered. The strange thing is that it is
still possible to enter no. 1 several times. On all other numers the code
seems to work. What is the reason/solution to this.!!

TIA

Sigurd

Dim lngArtikkelnr As Long
Dim conFilePath As String
conFilePath = strBackend
Dim dbs As Database, rst As DAO.recordset
Set dbs = OpenDatabase(conFilePath)

Set rst = dbs.OpenRecordset("tblProdukterFaktura", dbOpenTable)
rst.MoveFirst
rst.index = "PrimaryKey"
rst.Seek "=", lngArtikkelnr

If rst.NoMatch Then
'OK numer is free
Else
'code to let the user enter a new numer or use dmax+1
____________________________________________
KILLSPAM R e m o v e trippleX to reply
to email adress.

[Sigurd Bruteig]

"Pavel Romashkin" <pa*************@hotmail.com> skrev i melding
news:40***************@hotmail.com...

I am not sure what exactly is happening with Seek, but I would in
general recommend another approach. Try using SQL and see how many
records are returned with your search criteria. If zero, your value is
unique. If not - it is already in the table.
I typically use an ADO recordset for this, with its RecordCount property.

Cheers,
Pavel

Thank you for your answer. The seek method seeks for a similar record, and
works, but is for some reasons that I can't figure out, it will not find the
record if the numer is 1. As you propose I will try to use ADO,

Sigurd

[ingmar]

Pavel Romashkin <pa*************@hotmail.com> wrote in message news:<40***************@hotmail.com>...

I am not sure what exactly is happening with Seek, but I would in
general recommend another approach. Try using SQL and see how many
records are returned with your search criteria. If zero, your value is
unique. If not - it is already in the table.
I typically use an ADO recordset for this, with its RecordCount property.

Cheers,
Pavel

Sigurd Bruteig wrote:

In a form the user can register new produkts. The code below prevent the
user to enter a numer already registered. The strange thing is that it is
still possible to enter no. 1 several times. On all other numers the code
seems to work. What is the reason/solution to this.!!

TIA

Sigurd

Dim lngArtikkelnr As Long
Dim conFilePath As String
conFilePath = strBackend
Dim dbs As Database, rst As DAO.recordset
Set dbs = OpenDatabase(conFilePath)

Set rst = dbs.OpenRecordset("tblProdukterFaktura", dbOpenTable)
rst.MoveFirst
rst.index = "PrimaryKey"
rst.Seek "=", lngArtikkelnr

If rst.NoMatch Then
'OK numer is free
Else
'code to let the user enter a new numer or use dmax+1
____________________________________________
KILLSPAM R e m o v e trippleX to reply
to email adress.

try using Dlookup.

Do While (DLookup("[PO_number]", "PO_Items_master", "[PO_number]=" _
& ordernumber))
ordernumber = ordernumber + 1
Loop