Aslında ilk açtığımda Tasarım modu kapalı olunca hiç vakit ayırmayacaktım ancak yinede soru askıda kalmasın diye baktım.

Lütfen dosyaları gönderirken:
1- Access penceresi gizli olmasın
2- Tasarım moduna geçecek engeller olmasın

OnError Resume Next

altına

Dim formdaki_seri, tablodaki_seri, formdaki_sira, tablodaki_sira, son_kayit, kullanicimiz As String



formdaki_seri = Metin22

formdaki_sira = Metin24

kullanicimiz = Me.Kullanici

ve

DoCmd.GoToRecord , , acNewRec

kodunun altındaki satırları şu şekilde değiştirirsen olur.

    son_kayit = DMax("faturaID", "fatura_bilgileri")

    tablodaki_seri = Dlookup ("faturaserino", "fatura_bilgileri", "faturaID=" & son_kayit)

    tablodaki_sira = Dlookup ("faturasirano", "fatura_bilgileri", "faturaID=" & son_kayit)

    

    If formdaki_seri = tablodaki_seri Then

    

        If formdaki_sira + 1 = tablodaki_sira Then

        

            Metin22 = formdaki_seri

            Metin24 = formdaki_sira + 2

            Kullanici = kullanicimiz

            

        Else

        

            ' Eğer formdaki sira numarası ile tablodaki sıra numarası aynı değilse sıkıntı vardır.

            

        End If

        

    Else

    

        ' Sıra ve seri numaralar farklı ise seri numarasını değiştirme işi burada yapılacak

        

    End If





End If

Ekte inceleyebilirsin.