Data1.Recordset.AddNew

[joycesolomon]

hello all,.

i am working on a program that does add, delete, update and find, so far i managed with all except for add,

i have the below code:
Dim strBufferTaper As String

strBufferTaper = txttaper.Text
DataTaperCode.UpdateControls
DataTaperCode.Recordset.AddNew
txttaper.Text = strBufferTaper
DataTaperCode.Recordset.MoveNext
DataTaperCode.Recordset.AddNew

which works fine to add a new record to a table called Taper

how do i enhance this code to check for duplicate in the table before adding the new record, if the record already exist, give a message box, if not, then add the new record from the user input (txttaper.text)

please help

thank you in advance

[Hack]

It would be easy enough using programming code, but I don't know of a way using a bound data control.

[joycesolomon]

how do i use programming code, as you suggested, could you teach me?

[Al42]

See Beacon's ADO Tutorial.

[Hack]

Once you are comfortable in connecting via code, we can take a look as using the SQL SELECT query to return a value from your database.

[joycesolomon]

hi

i went through the tutorial.... could you show me on the sql part?

thanks

[Hack]

SQL Tutorial

[joycesolomon]

hello

thanks for the sql tutorial, i managed on the below codes:

Set DB = OpenDatabase(App.Path & "\Project Light Speed.mdb")
SQL = "select * from [Taper_Code] where Taper_Code ='" & txttaper.Text & "'"
Set rs = DB.OpenRecordset(SQL)

SQL = "insert into Taper_Code (Taper_Code) " & _
"values ('" & txttaper.Text & "')"
DB.Execute SQL

How do i implement that after i select the record, if not found then do the insert part, else display a message box?

please help

[Hack]

Set DB = OpenDatabase(App.Path & "\Project Light Speed.mdb")
SQL = "select * from [Taper_Code] where Taper_Code ='" & txttaper.Text & "'"
Set rs = DB.OpenRecordset(SQL)
If rs.RecordCount = 0 Then 'it does not exist
   SQL = "insert into Taper_Code (Taper_Code) " & _
    "values ('" & txttaper.Text & "')"
    DB.Execute SQL
Else
    MsgBox txttaper.text & " already exists in the database."
End If

[joycesolomon]

hack,

Thank you so much for your help, that code works great.

joyce