Updating Table only with new information from list box on form

[ChaseCox]

Hi everyone, I am running into a new problem with my database. Since I have become a member of The Scripts, I have never had to update information in a table, rather I only had to allow people easy access to the already exsitant information. My problem is this, and I am sure it very simple.

I have a list box on a form. I want the user to be able to insert their email adress and have it stored in a table. I have this working so far, and I have even set up criteria so that it makes sure it has the right domain for the company.

My question is how do I keep a user from inputting a duplicate of something that is already in the table. The table name is Emails, the column in the table is Personal, and the DB is ChickenSoup for example purposes. Any thoughts would be great thanks. I am using Access 97

[MMcCarthy]

Hi everyone, I am running into a new problem with my database. Since I have become a member of The Scripts, I have never had to update information in a table, rather I only had to allow people easy access to the already exsitant information. My problem is this, and I am sure it very simple.

I have a list box on a form. I want the user to be able to insert their email adress and have it stored in a table. I have this working so far, and I have even set up criteria so that it makes sure it has the right domain for the company.

My question is how do I keep a user from inputting a duplicate of something that is already in the table. The table name is Emails, the column in the table is Personal, and the DB is ChickenSoup for example purposes. Any thoughts would be great thanks. I am using Access 97

If you index the appropriate field in the table to Yes (No Duplicates) then the user cannot enter a value already in the table.

Mary

[ChaseCox]

If you index the appropriate field in the table to Yes (No Duplicates) then the user cannot enter a value already in the table.

Mary

very nice! I had no idea about that, thanks.

[ChaseCox]

Do you or anyone else have thought on how to update a table that is on a network drive? I can not seem to get it to work. Just wondering. here is my code.

Private Sub email_AfterUpdate()
On Error GoTo Err_email_Click
 
        Dim FalconAnalysis As Object
        Dim tblEmails As Object
        Dim colEmail As Object
        Set FalconAnalysis = CurrentDb
        Dim emails As Recordset
        Set emails = FalconAnalysis.OpenRecordset("Emails",    dbOpenTable)
        Dim strStringArray()
        Dim x As String
 
        If Right([Forms]![Test]![email], 9) = "trane.com" Then
 
            emails.AddNew
            emails.Fields(0).Value = [Forms]![Test]![email]
            emails.Update
            emails.Close
 
        Else
            x = MsgBox("Please Enter an Actual Work Email.", vbOKCancel)
       End If
            x = MsgBox("Thank You for Registering.", vbOKCancel)
 
Exit_email_Click:
    Exit Sub
 
Err_email_Click:
            x = MsgBox("Your Email is Already Registered, Thank You.", vbOKCancel)
            Resume Exit_email_Click
End Sub
 

The tblEmails is actually a link table in a database called FalconDataStorage. Any Thoughts on how to get this to work?

The purpose is to be able to keep track of who is using the database so that I can email them updates as they go.