Dim strSQL as String
strSQL = "INSERT INTO ROOMS (foreignkeyfield) Values(" & me.primarykeyfield & ")"
Currentdb.execute strSQL, dbFailOnError
strSQL = "INSERT INTO FITTINGS (foreignkeyfield) Values(" & me.primarykeyfield & ")"
Currentdb.execute strSQL, dbFailOnError