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