(28/10/2016, 11:54)raburabu yazdı: 2.inci bir satır(ürün aktardığımda) eklediğimde uyarı vermiyor.

Merhaba, Atoz hocanın eklediği örnek uygulamada, kaydet butonunun tıklandığında olayındaki kodu

'ATOZ112

'AŞAĞIDAKİ KODLAR DAHİL EDİLMİŞTİR.

[Forms]![HAREKETLER].[HAREKETDETAY].SetFocus

DoCmd.RunCommand acCmdRecordsGoToLast



If IsNull([HAREKETDETAY].Form![MIKTAR]) Or [HAREKETDETAY].Form![MIKTAR] = "" Then

    If MsgBox("MIKTAR boş", vbYesNo) = vbYes Then

    [Forms]![HAREKETLER].[HAREKETDETAY].[Form].[MIKTAR].SetFocus

    Exit Sub

    Else

    

    tablodansil



    Exit Sub

    End If

ElseIf IsNull([HAREKETDETAY].Form![FIYAT]) Or [HAREKETDETAY].Form![FIYAT] = "" Then

    If MsgBox("FIYAT boş", vbYesNo) = vbYes Then

    [Forms]![HAREKETLER].[HAREKETDETAY].[Form].[FIYAT].SetFocus

    Exit Sub

    Else



    tablodansil



    Exit Sub

    End If

ElseIf IsNull([HAREKETDETAY].Form![TERMİN]) Or [HAREKETDETAY].Form![TERMİN] = "" Then

    If MsgBox("TERMİN boş", vbYesNo) = vbYes Then

    [Forms]![HAREKETLER].[HAREKETDETAY].[Form].[TERMİN].SetFocus

    Exit Sub

    Else



    tablodansil



    Exit Sub

    End If

Else

DoCmd.RunCommand acCmdSaveRecord

MsgBox ("Veri Kaydedildi")

End If

kodu ile, kapat butonunun tıklandığında olayındaki kodu 

[Forms]![HAREKETLER].[HAREKETDETAY].SetFocus

DoCmd.RunCommand acCmdRecordsGoToLast



If IsNull([HAREKETDETAY].Form![MIKTAR]) Or [HAREKETDETAY].Form![MIKTAR] = "" Then

    If MsgBox("MIKTAR boş", vbYesNo) = vbYes Then

    [Forms]![HAREKETLER].[HAREKETDETAY].[Form].[MIKTAR].SetFocus

    Exit Sub

    Else

    

    tablodansil



    Exit Sub

    End If

ElseIf IsNull([HAREKETDETAY].Form![FIYAT]) Or [HAREKETDETAY].Form![FIYAT] = "" Then

    If MsgBox("FIYAT boş", vbYesNo) = vbYes Then

    [Forms]![HAREKETLER].[HAREKETDETAY].[Form].[FIYAT].SetFocus

    Exit Sub

    Else



    tablodansil



    Exit Sub

    End If

ElseIf IsNull([HAREKETDETAY].Form![TERMİN]) Or [HAREKETDETAY].Form![TERMİN] = "" Then

    If MsgBox("TERMİN boş", vbYesNo) = vbYes Then

    [Forms]![HAREKETLER].[HAREKETDETAY].[Form].[TERMİN].SetFocus

    Exit Sub

    Else



    tablodansil



    Exit Sub

    End If

Else

DoCmd.Close

End If

değiştirerek deneyiniz. Sonuç hakkında olumlu/olumsuz bildirimde bulununuz.