Kaydet Butonu ile veri kaydı

İyi Günler Herkese;
Ekte göndermiş olduğum dosyada proforma adlı formda kaydet butonuna bastığım zaman yeni kayıt eklesin fakat bazı verilerin ekranda kalmasını yani silinmemesini istiyorum. Bir sonraki kayıtta yeniden yazmamak için;
Ekranda Silinecek veriler:Ürün Adı,Ürün Barkod,Marka,Birim,Miktar,Birim fiyat,toplam,kdv ve genel toplam'dır.

Konu ile ilgili örnek baktım fakat bulamadım. Yardımcı olabilirseniz sevinirim.

İlginize şimdiden teşekkür ederim.

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

teşekkür ederim ellerinize sağlık,, fakat altta yazan marka vs. kısımların silinmesini diğer verilerin silinmemesini istiyordum. ben üzerinde biraz uğraşiym çözebilirim herhalde. çözemezsem size dönüş yaparım.
tekrar teşekkürler

Evet şimdi farkettim. Sizin söylediğinizin tam tersini yapmışım. Ama mantığı kapmış olmalısınız. Kodun aşağıdaki kısmını deneme yanılma yöntemi ile geliştirebilirsiniz.. Kolay gelsin.

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

Sayın silka,

Konunuzdaki talebinize dair formunuzda mevcut bulunan bir ayrıntı üzerinden cevap vermek yerinde olacaktır.

proforma isimli formunuzda kaydet butonu üzerinden yapmayı düşündüğünüz işlem için,yeni kayıt açmaya dair kullanmak üzere oluşturduğunuz ekle isimli buton bu yeni kayıt açma işlemine yönelik talebinizi yerine getirmek üzere bulunmakta zaten hali hazırda.bu sebeple,kaydet butonu üzerinden ikinci bir harici kodlamaya gerek olmayacaktır.bunun yerine,kaydet butonundaki kodlama yine aynı şekilde kaydetme için kalmasının ve akabinde de ekle isimli buton içeriğinde bu talebinizin yerine getirilmesi daha uygun olacaktır;gerek kod yazma fazlalığından dolayı gerekse de gereksiz kodlamalarla uygulamanın performansını yormamak için.

Formunuz üzerinde değer ataması yapılan (tarih ve saat haricinde) 23 adet denetim mevcut.ve bu denetimler içerisinden de 9 adedinin değerlerinin yeni bir kayıt sonrasında değer olmaksızın açılmasını talep ediyorsunuz.fakat değerlerinin her yeni bir kayıt açıldığında kalmasını istediğiniz denetimlere bakıldığında sürekli aynı bilgilerin girilebileceği türden değerler yerine değişkenlik gösteren değerler içerdiği görülmektedir.bu da,bu talebiniz için pek de bir geçerlilik,anlam veya bir kolaylaştırıcılık sağlayabileceği yönünde tereddütler içerdiği düşüncesine yol açmaktadır.fakat yine de,talebinize dair çözüm için de iki yöntem uygulanabilirlik safhasındadır.

Yöntem-1:
Form üzerinde yer alan denetimlerde yeni bir kayıt açılmasından sonra hangi denetim üzerinde hangi değerin görünmesini istiyorsanız bunu,ilgili formun tablosunun tasarım sayfasında,ilgili alanların Varsayılan Değer isimli satırına,yeni bir kayıt açıldığında akabinde o denetim üzerinde görünmesini istediğiniz değeri yazmanız yeterli olacaktır.

Yöntem-2:
Ekle butonunun tıklandığında olay yordamı içerisine,yeni kayıt eklemek üzere yazılı bulunan

DoCmd.GoToRecord , , acNewRec

Satırının sonrasında;birinci yöntemde belirtildiği üzere benzer bir gidişat ile,hangi denetimde hangi değerlerin görünmesini istiyorsanız yeni bir kayıt sonrasında,o denetimlere o değerleri atamak yolu ile de bir diğer çözümü uygulamış olursunuz.

son olarak da,lütfen hem bu hem de daha sonrasındaki geliştireceğiniz uygulamalarınızda alan isimlerinin belirtilmesinde türkçe karakter kullanmamaya ve iki ifadeli durumlarda aralarına (_) alt tire işareti ekleyerek kullanmaya özen gösteriniz.yardımcı olunmak istenen kodlamalarda da görülüyor ki türkçe karakterlerden dolayı hatalar vermesi muhtemeldir.bilgilerinize.

iyi çalışmalar,
saygılar.

konudaki örnekte SCavusoglu'nun kodlarına göre yaptım sorun çözüldü fakat şimdi de, formu açar açmaz hemen tabloda kayıt açıyor. Yanlışlıkla formu açsam bile boş bir veri satırı oluşturuyor.
Acaba sadece kaydet tuşuna bastıktan sonra verileri kayıt etse olmaz mı?