autonumber and continuos form

[nadir66]

hi
i have a problem that keeps me going fo rthe last 2 days.
i have a continuos form, that i fill with data for manufacture formulas, and all the numbers need to be generated at that point. my problem is that this is a subform, so it does not get refreshed, and when i use dmax
=dmax("field", "table&quot+1 , the new(second) line is a duplicate. how can i solve this problem?
Thank you for your time.

 

[KUZZ]

not directly solving your problem, but look arount at this code, it might help solve yours.

Function MAXSEL()
MAXSEL = DMax("[SEL]", "tblACTIONS&quot
End Function
Function MAXJONRi()
MAXJONRi = DMax("[JO#]", "tblACTIONS", "LEFT([JO#],1)='I'&quot
End Function
Function MAXJONRp()
MAXJONRp = DMax("[JO#]", "tblACTIONS", "LEFT([JO#],1)='P'&quot
End Function


Private Sub Command49_Click()
DoCmd.DoMenuItem acFormBar, 5, 3, , 70
DoCmd.GoToRecord , , acNewRec
SendKeys "{TAB}", True

If Format(Frame56, "@&quot = "" Then
MsgBox "Please select joborder type", vbExclamation
DoCmd.GoToRecord , , acFirst
Exit Sub
ElseIf Frame56 = 1 Then
TJONR = Format(Mid(MAXJONRp, 2, 4) + 1, "0000&quot
[JO#] = "P" + TJONR + "-0000"
ElseIf Frame56 = 2 Then
TJONR = Format(Mid(MAXJONRi, 2, 4) + 1, "0000&quot
[JO#] = "I" + TJONR + "-0000"
End If

INCRSEL = MsgBox("Increase selection?", vbExclamation + vbYesNo)
If INCRSEL = vbYes Then
SEL = MAXSEL() + 1
Else
SEL = MAXSEL()
End If


Function MAXSEL()
MAXSEL = DMax("[SEL]", "tblACTIONS&quot
End Function
Function MAXJONRi()
MAXJONRi = DMax("[JO#]", "tblACTIONS", "LEFT([JO#],1)='I'&quot
End Function
Function MAXJONRp()
MAXJONRp = DMax("[JO#]", "tblACTIONS", "LEFT([JO#],1)='P'&quot
End Function




Good luck,
Kuzz

"Time spent debating the impossible subtracts from the time during which you
can try to accomplish it."

 

[nadir66]

Thanx
the solution gave me some ideas.