Dim a, b As Integer

b = (Nz(DMax("[FİŞNO]", "Sipariş", "[TİPİ]= Forms!frm_siparis!MyTipi And [dizin] = Forms!frm_siparis!Mydizin"), 0))

a = (Nz(DMax("[FİŞNO]", "Sipariş", "[TİPİ]= Forms!frm_siparis!MyTipi And [dizin] = Forms!frm_siparis!Mydizin"), 0)) + 1





If b = 0 Then

If Me.MyTipi = "Model" Then

Me.Mynumara = 1001

ElseIf Me.MyTipi = "Parke" Then

Me.Mynumara = 2001

ElseIf Me.MyTipi = "File" Then

Me.Mynumara = 3001

End If

Else

Me.Mynumara = a



End If

Yalnız bir ürünün sayısı 999 u aşınca numaralar çakışacaktır sanırım.. Kolay gelsin