' look to see if it's there already
 if 0 = dcount("*", "MyTable2", "IDNumber = " & dwCurrentID) Then

   ' not there; put it there
   strSQL = "insert into MyTable2 (IDNumber) " & vbnewline & _
      "values (" & dwCurrentID & ")"

   ' and run it. The ADODB version is a bit different but you get
   ' the picture
   db.Execute strSQL, dbFailOnError

   ' you need to force the form to see it
   Forms("MyForm2").Refresh

 end if

 ' we need to synchronise the form
 with forms("MyForm2").recorsetclone
   
   ' go seek the new (or found) record
   .findfirst "IDNumber = " & dwcurrentID  
   ' and use the bookmark to place it
   forms("MyForm2").bookmark = .bookmark

 End with

Hope that helps

Tim F

Cydney,

One way this type of situation is often handled is to put a continuous
view form, based on 2nd table, as a subform on the 1st table form.  Is
this an option for you?  If so, I would expect your problem disappears.

Otherwise, I am not 100% clear in the interpretation of your question.
I assume you mean that at the moment clicking the button opens a
separate form for 2nd table records?  And I assume you mean you want the
procedure to add a new table 2 record if there are *no* corresponding
table 2 records?  If so, I suppose your Click event code could include
something like this...

 If DCount("*","2nd table","[RecID]=" & Me.RecID)=0 Then
     CurrentDb.Execute "INSERT INTO [2nd table] ( RecID ) VALUES ( " &
Me.RecID & " )"
 End If