Add to table afterupdate

[rjoshi2]

I am not sure why my code is not working. I want to added the data to my table if the data does not exist in the table yet. Any help would be approached.

Thank You,
rjoshi2

here is my code:

Private Sub Object_Class_Description_AfterUpdate()
Dim sSQL As String
If Not Me.Object_Class = DLookup("[strClass]", "[tblObjClsDesc]&quot Then
sSQL = "INSERT INTO tblObjClsDesc (strClass, strDescription) VALUES (Me.Object_Class, Me.Object_Class_Description)"
CurrentDb.Execute sSQL, dbFailOnError
End If

End Sub

 

[PaulBricker]

My first guess would be because DLookUp has three arguments so unless you only have one record in your table, the DLookUp isn't going to know which value in table tblObjClsDesc to look at. Try this

If Not Me.Object_Class = DLookup("[strClass]", "[tblObjClsDesc]", "[strClass]= '" & Me.Object_Class & "'&quot Then


Paul