If value already exist or not in the table

[dada]

Awesome day to all! almost done with my system.. just one last question for now, (i hope) hehe..

say i have a Text1 (for username) and Text2 (for emailaddress)

if(Text1 == [username in database] AND Text2 == [eadd in database]


{
msgbox "Already exist"
}
else if(Text1 == [username in database] AND Text2 != [eadd in database]
{
data will be added to the table
}
else if(Text1 != [username in database] AND Text2 == [eadd in database]
{
data will be added to the table
}
else
{
data will be added to the table
}

that's what i want to happen, but i just don't know how to implement that in code..

[maximus]

I have a tblsol with the fields E_Name and E_Address. I have used a Unbound form with two text boxes Text0 and Text2 I have used them to insert data into my tables.

I have used a RecordSet to insert data:

What the Code does.

It will not let u enter data when both Name and Addess is in the table. You will get a prompt that the data already exist.

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

Dim strSQL As String

strSQL = "Select * From tblsol Where E_Name='" & Me.Text0 & "' And E_Address='" & Me.Text2 & "'"

Set db = CurrentDb
Set rs = db.OpenRecordset(strSQL)
If rs.EOF And rs.BOF Then
rs.AddNew
Else
MsgBox "Data Already Exist"
rs.Close
Set rs = Nothing
Exit Sub
End If

rs!E_Name = Me.Text0
rs!E_Address = Me.Text2
rs.Update
rs.Close
Set rs = Nothing
msgbox "Data Successfully entered"

if this solves your problem mark the thread solved.

[dada]

Hands Down dude! Thank you so much!

[maximus]

glad to help