Tablodaki Boş Kayıtlar ve Dsum ifadesi #Hata Sorunu

Tablodaki Boş Kayıtlar ve Dsum ifadesi #Hata Sorunu - 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ığı: Tablodaki Boş Kayıtlar ve Dsum ifadesi #Hata Sorunu (/konu-tablodaki-bos-kayitlar-ve-dsum-ifadesi-hata-sorunu.html)

Sayfalar: 1 2 3 4

Cvp: Tablodaki Boş Kayıtlar ve Dsum ifadesi #Hata Sorunu - akdemir1 - 09/02/2014

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.

Cvp: Tablodaki Boş Kayıtlar ve Dsum ifadesi #Hata Sorunu - atoz112 - 09/02/2014

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.

Cvp: Tablodaki Boş Kayıtlar ve Dsum ifadesi #Hata Sorunu - akdemir1 - 09/02/2014

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

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

saygılarımla.

Cvp: Tablodaki Boş Kayıtlar ve Dsum ifadesi #Hata Sorunu - ozanakkaya - 09/02/2014

#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.

Cvp: Tablodaki Boş Kayıtlar ve Dsum ifadesi #Hata Sorunu - akdemir1 - 09/02/2014

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...