Ignore my last post.
If I place the expression =DMax("JointObjectNoA","q1JointObjects")+1 in one of the text fields and name it JointTableNextNo, it gives the correct number.
One line in your code in Module 1.
frm.Controls(sQueryField) = DMax("[" & sQueryField & "]", "[" & sQueryName & "]") + 1
What is the correct way to replace the red part; Me.JointTableNextNo?