Error 3022 - How to Handle 2

[SummaEng]

Hi,

I am trying to append a record from, say table1 to a another table, say table2. I am getting an error 3022 if the same record already exist in table2. What is the best way to do so that if the record already exist in table2 the error will not appear and instead a message will pop up stating that the record already exist in table2. Sample code will help. Thanks in advance.

SummaEng

 

[TheAceMan1]

How are ya PostSummaEng . . .

Error 3022 speaks of [blue]duplicate primarykeys[/blue]. Possible code you can use:

[blue]   Dim Cri As String
   
   [green]'Use if primarykey is numeric[/green]
   Cri = "[PrimaryKeyNameTable1]=" & InputValueTable2
   [green]'Use if primarykey is string[/green]
   Cri = "[PrimaryKeyNameTable1]='" & InputValueTable2 & "'"
   
   If IsNull(DLookup("[PrimaryKeyNameTable1]", Table1Name, Cri)) Then
      [green]'Append SQL Here[/green]
   Else
      [green]'Duplicate error message here[/green]
   End If[/blue]

[blue]Your Thoughts? . . .[/blue]

See Ya! . . . . . .

Be sure to see faq219-2884 [blue]Worthy Reading![/blue]
Also faq181-2886 [blue]Worthy Reading![/blue]

 

[PHV]

am trying to append a record
How ?

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886