Hocam,

Me.Metin186.Requery - GİRİŞ TOPLAMI alanı
Me.Metin188.Requery - KAYIT SAYISI alanı

Bu alanlara hesaplama geç geldiği için ifadeleri koydum belki hızlanır diye ama pekte fark etmedi.

DoCmd.GoToRecord , , acNewRec

bu kodda KAYDET butonunun tıklandığında olayının sonunda yazılı, kaydettikten sonra formu yeni bir kayıta hazırlasın diye..

saygılarımla.

merhaba,

Me.Metin186.Requery
Me.Metin188.Requery

bu satırları buraya değil de,

Private Sub Form_Load() ile Private Sub Form_AfterUpdate() olaylarının başına eklemelisiniz.

ayrıca,
her KAYDET butonuna basıldığında olayının ilk satırına da ekleyiniz bu 2 kodu.daha verimli olur.


bir de,
Private Sub Form_Timer()
With Me.Etiket110
End With

buradaki end with satırını timer'ın sonuna end sub öncesine ekleyiniz.

With Me.Etiket110
...
(yapılacaklar
...
end with

şeklinde olmalı.

iyi çalışmalar.

Çok sağolun hocam çok zahmet verdim size bugün,
sayenizde form adam oldu

resim çağırma olayım kaldı onuda halledebilirsem pek birşey kalmıyor geriye.

saygılarımla.

#Hata olayı için, metin kutusunun denetim kaynağını aşağıdaki ile değiştir.

=DSum("[GIRIS_MIKTARI]";"T_GIRIS";"[ID_URUN]=" & Nz([Formlar]![F_GIRIS]![ID_URUN];0))

Kapatırken boş kayıt olayı için kapat butonunun tıklandığı olayına aşağıdaki kodu ekle (kodlar microbe'nin uygulamasından alıntıdır.)

Private Sub Komut141_Click()

If IsNull(Me.Açılan_Kutu0) Or IsNull(Açılan_Kutu2) Or IsNull(Açılan_Kutu4) Or IsNull(Açılan_Kutu8) Or IsNull(Açılan_Kutu10) Or IsNull(Metin12) Or IsNull(Metin115) Then



    If MsgBox("Formda Boş Alanlar Mevcut. Kaydedilmeden Kapatılsın mı?", vbInformation + vbYesNo, "Kapatılıyor...") = vbYes Then

        Me.Undo

        DoCmd.SetWarnings False

        DoCmd.RunSQL ("DELETE satisid FROM T_GIRIS WHERE (((ID_URUN) Is Null));")

        DoCmd.SetWarnings True

        DoCmd.Close

    End If

    

Else



    mesaj = MsgBox("Form Kapatılmadan Önce Girilen Veriler Kaydedilsin mi?", vbCritical + vbYesNoCancel, "Form Kapanıyor...")

       

    Select Case mesaj

        Case 6

        

           

            DoCmd.Save

            MsgBox "Gerçekleşti...", vbInformation, "Kaydedildi"

            DoCmd.Close

        Case 7

        

            Me.Undo

            DoCmd.Close

        Case 2

        

            Exit Sub

    End Select

   

End If

End Sub

Ayrıca, sonraki sorularınızı Site Kurallarına uygun olarak açınız.

Teşekkür ederim Ozan hocam ellerinize sağlık
Boş kayıt sorunu çözüldü.

Atoz112 hocamada ayrıca teşekkürlerimi sunarım

Saygılarımla...