Sn.silka,

Kaydet butonunuzun tıklama olayına aşağıdaki kodu yazıp denermisiniz..

Olumlu-olumsuz geri bildirimde bulunun lütfen.

Private Sub Komut92_Click()

On Error GoTo Err_Komut92_Click

If IsNull(Me.FIRMAADI) Then MsgBox "LUtfen Firma Adini Yaziniz!", 48, "Kayit ISlemi": Me.FIRMAADI.SetFocus: Exit Sub

If IsNull(Me.ADRES) Then MsgBox "LUtfen Firmanin Adresini Yaziniz!", 48, "Kayit ISlemi": Me.ADRES.SetFocus: Exit Sub

If IsNull(Me.TEL) Then MsgBox "LUtfen Irtibat Numarasini Yaziniz!", 48, "Kayit ISlemi": Me.TEL.SetFocus: Exit Sub

If IsNull(Me.PROFORMANO) Then MsgBox "LUtfen Proforma Numarasini Yaziniz!", 48, "Kayit ISlemi": Me.PROFORMANO.SetFocus: Exit Sub

If IsNull(Me.PROFORMATARIHI) Then MsgBox "LUtfen Proforma Tarihini Yaziniz!", 48, "Kayit ISlemi": Me.PROFORMATARIHI.SetFocus: Exit Sub

If IsNull(Me.RAPOR) Then MsgBox "LUtfen ISlem Yapan KiSiyi Yaziniz!", 48, "Kayit ISlemi": Me.RAPOR.SetFocus: Exit Sub

If IsNull(Me.URUNADI) Then MsgBox "LUtfen UrUnUn Adini Yaziniz!", 48, "Kayit ISlemi": Me.URUNADI.SetFocus: Exit Sub

If IsNull(Me.BARKODNO) Then MsgBox "LUtfen Barkod Numarasini Yaziniz!", 48, "Kayit ISlemi": Me.BARKODNO.SetFocus: Exit Sub

If IsNull(Me.MARKA) Then MsgBox "LUtfen UrUnUn Markasini Yaziniz!", 48, "Kayit ISlemi": Me.MARKA.SetFocus: Exit Sub

If IsNull(Me.BIRIM) Then MsgBox "LUtfen UrUnUn Birimini Yaziniz!", 48, "Kayit ISlemi": Me.BIRIM.SetFocus: Exit Sub

If IsNull(Me.BIRIMFIYAT) Then MsgBox "LUtfen UrUnUn Birim Fiyatini Yaziniz!", 48, "Kayit ISlemi": Me.BIRIMFIYAT.SetFocus: Exit Sub

If IsNull(Me.KDV) Then MsgBox "LUtfen Kdv Oranini Yaziniz!", 48, "Kayit ISlemi": Me.KDV.SetFocus: Exit Sub

If IsNull(Me.TESLIMAT) Then MsgBox "LUtfen Teslimat Seklini Yaziniz!", 48, "Kayit ISlemi": Me.TESLIMAT.SetFocus: Exit Sub

If IsNull(Me.ODEMESEKLI) Then MsgBox "LUtfen Odeme Seklini Yaziniz!", 48, "Kayit ISlemi": Me.ODEMESEKLI.SetFocus: Exit Sub

If IsNull(Me.GECERLILIKSURESI) Then MsgBox "LUtfen Belgenin GeCerlilik SUresini Yaziniz!", 48, "Kayit ISlemi": Me.GECERLILIKSURESI.SetFocus: Exit Sub

If IsNull(Me.NAKLIYE) Then MsgBox "LUtfen Nakliye TUrUnU Yaziniz!", 48, "Kayit ISlemi": Me.NAKLIYE.SetFocus: Exit Sub

If IsNull(Me.IHALE) Then MsgBox "LUtfen Ihale ICin Olup/Olmadiğini Yaziniz!", 48, "Kayit ISlemi": Me.NAKLIYE.SetFocus: Exit Sub

DoCmd.GoToRecord , , acNewRec



       Dim rs As Object

    Set rs = Me.Recordset.Clone

    rs.FindLast "[URUNADI] = '" & Me![URUNADI] & "'"

    If Not rs.EOF Then Me.URUNADI = rs.URUNADI

    If Not rs.EOF Then Me.MARKA = rs.MARKA

    If Not rs.EOF Then Me.MARKA = rs.MARKA

    If Not rs.EOF Then Me.BIRIM = rs.BIRIM

    If Not rs.EOF Then Me.MIKTAR = rs.MIKTAR

    If Not rs.EOF Then Me.BIRIMFIYAT = rs.BIRIMFIYAT

    If Not rs.EOF Then Me.KDV = rs.KDV

    If Not rs.EOF Then Me.BARKODNO = rs.BARKODNO

    If Not rs.EOF Then Me.TOPLAM = rs.TOPLAM

    If Not rs.EOF Then Me.GENELTOPLAM = rs.GENELTOPLAM

    

Exit_Komut92_Click:

    Exit Sub



Err_Komut92_Click:

    MsgBox Err.Description

    Resume Exit_Komut92_Click

    End Sub