kaydet butonu kayıttan sonra yeni kayıt açsın

kaydet butonu kayıttan sonra yeni kayıt açsın - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: kaydet butonu kayıttan sonra yeni kayıt açsın (/konu-kaydet-butonu-kayittan-sonra-yeni-kayit-acsin.html)

kaydet butonu kayıttan sonra yeni kayıt açsın - miCRoBe` - 15/01/2014

merhaba. forumda ve nette bulamadım bir örneğini;

kaydet butonu tıklandıktan sonra, formdaki tüm alanlar boş olmadığında veriyi kaydetsin kaydedildi uyarısı versin ve
aynı form tekrar yeni kayıt açsın. bu mümkün mü?

mümkünse eklemem gerekenler nelerdir. teşekkürler.

kaydet butonu tıklandığındaki kodlar;



If IsNull(Me.alistarihi) Then

    MsgBox ("Alış Tarihi alanı boş bırakılamaz")

    Me.alistarihi.SetFocus

ElseIf IsNull(imeino) Then

    MsgBox ("imei no alanı boş bırakılamaz")

    Me.imeino.SetFocus

ElseIf IsNull(markaadi) Then

    MsgBox ("marka adı alanı boş bırakılamaz")

    Me.markaadi.SetFocus

ElseIf IsNull(modeladi) Then

    MsgBox ("model adı alanı boş bırakılamaz")

    Me.modeladi.SetFocus

ElseIf IsNull(tedarikturu) Then

    MsgBox ("Tedarik Türü alanı boş bırakılamaz")

    Me.tedarikturu.SetFocus

ElseIf IsNull(alisfiyati) Then

    MsgBox ("Alış Fiyatı alanı boş bırakılamaz")

    Me.alisfiyati.SetFocus

ElseIf IsNull(satisilkfiyati) Then

    MsgBox ("Satış Fiyatı alanı boş bırakılamaz")

    Me.satisilkfiyati.SetFocus

Else

    Me.Gmarka = ""

    Me.GModel = ""

    MarkaModelGuncelle

    DoCmd.RunCommand acCmdSaveRecord

End If

Cvp: kaydet butonu kayıttan sonra yeni kayıt açsın - POWER - 15/01/2014

 DoCmd.RunCommand acCmdSaveRecord

 DoCmd.GoToRecord , , acNewRec

yazınız...

Cvp: kaydet butonu kayıttan sonra yeni kayıt açsın - miCRoBe` - 15/01/2014

sayın power teşekkür ederim.
bu kodu mevcut olan kodlardan sonra ekledim -end if- den sonra.. ve çalıştı..
kod konusunda bir bilgim yok, doğru şekilde mi ekledim? bu eklediğim şekilde çalışması normal midir?



MsgBox "Kaydedildi..", vbInformation

DoCmd.RunCommand acCmdSaveRecord

DoCmd.GoToRecord , , acNewRec

Cvp: kaydet butonu kayıttan sonra yeni kayıt açsın - ozanakkaya - 15/01/2014

kodun tamamı aşağıdaki gibi olmalı

If IsNull(Me.alistarihi) Then

    MsgBox ("Alış Tarihi alanı boş bırakılamaz!")

    Me.alistarihi.SetFocus

ElseIf IsNull(imeino) Then

    MsgBox ("Imei No alanı boş bırakılamaz!")

    Me.imeino.SetFocus

ElseIf IsNull(markaadi) Then

    MsgBox ("Marka Adı alanı boş bırakılamaz!")

    Me.markaadi.SetFocus

ElseIf IsNull(modeladi) Then

    MsgBox ("Model Adı alanı boş bırakılamaz!")

    Me.modeladi.SetFocus

ElseIf IsNull(tedarikturu) Then

    MsgBox ("Tedarik Türü alanı boş bırakılamaz!")

    Me.tedarikturu.SetFocus

ElseIf IsNull(alisfiyati) Then

    MsgBox ("Alış Fiyatı alanı boş bırakılamaz!")

    Me.alisfiyati.SetFocus

ElseIf IsNull(satisilkfiyati) Then

    MsgBox ("Satış Fiyatı alanı boş bırakılamaz!")

    Me.satisilkfiyati.SetFocus

Else

    Me.Gmarka = ""

    Me.GModel = ""

    MarkaModelGuncelle

    DoCmd.RunCommand acCmdSaveRecord

    MsgBox "Kaydedildi..", vbInformation, "Kaydedildi"

    DoCmd.GoToRecord , , acNewRec

End If

Cvp: kaydet butonu kayıttan sonra yeni kayıt açsın - miCRoBe` - 16/01/2014

teşekkür ederim. sağolun.