AccessTr.neT
Tablodan Satır Silme - 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ığı: Tablodan Satır Silme (/konu-tablodan-satir-silme.html)

Sayfalar: 1 2 3 4 5 6


Cvp: Tablodan Satır Silme - magmar - 24/02/2010

durum alanında Teslim edildi yazınca görünmeyecek. üç durum var "beklemede" "yolda" ve "teslim edildi" teslim edildikten sonra gösterilmesine gerek yok..tabloda gösterilsin..ancak alt formda gösterilmesin..


Cvp: Tablodan Satır Silme - Puletin - 24/02/2010

Buyrun sanırım bu şekilde olacak.

Form üzerinde Durumu alanı gönderildi seçerseniz ilgili kaydı siliyor Teslimedildi seçerseniz okaydı altform da göstermiyor.


Cvp: Tablodan Satır Silme - ercansahin - 24/02/2010

Sn Puletin hocam, sanırım arkadaşın istediği budur. Ellerinize sağlık..


Cvp: Tablodan Satır Silme - Puletin - 24/02/2010

(24/02/2010, 23:07)ercansahin yazdı: Sn Puletin hocam, sanırım arkadaşın istediği budur. Ellerinize sağlık..

Bende öle umuyorum ama galiba işe yaramadı.Cevap gelmedi henüz


Cvp: Tablodan Satır Silme - magmar - 24/02/2010

sevgili puletin ve ercan şahin

ilginiz için gerçekten çok minnettarım..

ancak ekteki dosyada herhangi bir kod veya baska bisey goremedim.. sadece bazı kısımlarda Teslimedildi yazıyor. herhangi bir değişiklik yok.. 2007-2003 farkından mıdır bu?


Cvp: Tablodan Satır Silme - ercansahin - 24/02/2010

etkin_siparisler formunu tasarım modunda açtıktan sonra kod bölümüne geçiniz.. Burada;
Kod:
Private Sub Durum_AfterUpdate()
If Me.Durum = "Gönderildi" Then
      
    cevap = MsgBox("Seçilen kayıt silinecek devam edilsin mi?", vbYesNo + vbQuestion, "DİKKAT")
    If cevap = vbYes Then
    
        DoCmd.SetWarnings False
        DoCmd.RunCommand acCmdDeleteRecord
        DoCmd.SetWarnings True
        ElseIf cevap = vbNo Then
        MsgBox ("Kayıt Silinmedi")
        End If
    End If

If Me.Durum = "Teslimedildi" Then
      
   MsgBox ("Seçilen kayıt gizlenecek "), vbInformation, "DİKKAT"
    
       DoCmd.Requery
        Else
    End If

End Sub

kodunu göreceksiniz..