كيف عمل تحديث لجدولين

السلام عليكم ورحمه الله وبركاته

اريد تعديل او تحديث جدولين في نفس الوقت لدي نموذج مكون من حقول وبعض هذه الحقول مؤخوذه من جدول ثاني

يعني انا لدي الجدول الاول table والجدول الثاني table2 حيث بينهم علاقه

اريده عند الضغط على زر تحديث يحدث الجدولين

If IsNull(frmmain) Then
   If MsgBox("", vbCritical + vbOKOnly, "") = vbOK Then
   End If
   frmmain.SetFocus
   Exit Sub
End If
If DLookup("number", "table", "number ='" & frmmain & "'") = frmmain Then

	 DoCmd.RunSQL ("UpDate table Set  loc = frmloc  Where table.number =  [frmmain] ")
Else
   DoCmd.RunSQL ("Insert Into table (number,loc) Values ( frmmain,frmloc);")
End If
Call Cls_Click
End Sub

حيث الرقم number من الجدول الاول table

و الloc من الجدول الثاني table2

ارجو تعديل الكود بحيث يقبل التحديث على الجدولين معا

وكمان اريد كود بنفس الطريقه للحذف من الجدولين