10-07-2023, 16:25
DSS UYGULAMA.rar (Boyut: 1,35 MB / İndirilme: 30)
Ekteki Uygulamada FrmKasa ana formdan (Alındı Kayıt Giriş Formu) çıkış yapılıp diğer forma yani Rapor Tarih Aralığı (Form ve Raporları) formuna girildiğinde;
Eğer Alındı Kayıt Giriş Formunda Adı Soyadı alanı girilmiş ancak “FrmKasaAlt” formundaki AltMuhKoduFK alanı boşsa “Alt Forma kayıt girmediniz diye uyarması ve o kaydı kaydetmemesi için gerekli kodu bir türlü yapamadım.
Bu kod form olaylarında çalışmalı yani herhangi bir buton daki kod işimize yaramayacaktır.
Ayırıca; Aşağıdaki kod iyi çalışmakta ancak Adı Soyadı alanından FrmKasaAlt Formuna giriş yapmadan veriyi silmekte Başka form olaylarında bu kodu kullanarak denemeler yaptım ancak bir türlü başaramadım.
Birde If (IsNull([Forms]![Gezinti Formu]![GezintiAltFormu]![FrmKasaAlt]![AltMuhKoduFK])) Then bu eğer koşulunun altfoma başvuru işlevini yapıp yapmadığı konusunda tereddütlerim var.
Private Sub Form_AfterUpdate()
If (IsNull([Forms]![Gezinti Formu]![GezintiAltFormu]![FrmKasaAlt]![AltMuhKoduFK])) Then
DoCmd.SetWarnings False
DoCmd.RunSQL "DELETE Tbl_Kasa FROM Tbl_Kasa WHERE (((Tbl_Kasa.KisiNo)=[Forms]![Gezinti Formu]![GezintiAltFormu]![KisiNo]))"
Me.Requery
DoCmd.RunCommand acCmdRecordsGoToLast
Else
DoCmd.SetWarnings True
Exit Sub
End If
End Sub
Siz değerli üstadlarımın bu konuda yardımları için şimdiden teşekkür edrim.