Skip to main content

AccessTr.neT


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

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

Çözüldü #19
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.
HAYAT BİR SINAVSA,,,
ADIMI YAZAR ÇIKARIM..
.
Cevapla
Çözüldü #20
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.
Herkes, kendisinin AR-GE'cisidir...


Konulara eklenen Uygulama içeriğine yönelik Tavsiyeler
Alt Form Denetim Değerlerine ulaşma ve Alt Form Güncelleme
Kapatırken Düzenle (Compact On Close) Seçeneğinin İşaretlenmesi Hakkında
Son Düzenleme: 09/02/2014, 18:36, Düzenleyen: atoz112.
Cevapla
Çözüldü #21
Ç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.
HAYAT BİR SINAVSA,,,
ADIMI YAZAR ÇIKARIM..
.
Cevapla
Çözüldü #22
#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.
Cevapla
Çözüldü #23
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...
HAYAT BİR SINAVSA,,,
ADIMI YAZAR ÇIKARIM..
.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task