Silme

[pcman]

Merhaba Arkadaşlar

Vba Kodlarıyla

Birtablodaki kayıtları ölçüt belirterek nasıl silerim

 

[modalı]

Sayın pcman,

Silme sorgusu ile.

İyi çalışmalar

 

[pcman]

Sn modalı

silme sorgusu yaptım ama sorguyu elle tıklıyınca çalışıyor

formun olay yordamına vba veya macro ile sorgu yu çalıştırınca 0 kayıt silindi diyor

anlamadım valla

 

[modalı]

Sayın pcman,

Sorguyu buna benzer kodlarla çalıştırın:

Private Sub cmdDelete_Click()
On Error GoTo Err_cmdDelete_Click
    Dim stDocName As String
    stDocName = "SilmeSorgusuAdı"
    DoCmd.OpenQuery stDocName, acNormal, acEdit
Exit_cmdDelete_Click:
    Exit Sub
Err_cmdDelete_Click:
    MsgBox Err.Description
    Resume Exit_cmdDelete_Click
    
End Sub

İyi çalışmalar

 

[pcman]

Malesef yine 0 kayıt silindi diyor...

sorgu normal formdan çalıştırınca böyle oluyor

 

[pcman]

Olay yordamında sadece silindiğinde kısmına yazınca çalışıyor

teşekkürler modalı

 

[beab05]

Merhaba;

Alternatif olarak bir de silme sorgusu hazırlamadan kısa yol var;

DoCmd.RunSQL "delete * from [tablo adı] where [sebze]='elma'"

Bu kodu düğmenin tıkla olayına yazabilirsiniz.Sebze alanında elma olan satırlar silinir..

 

[beab05]

Lakin elma bir sebze değildir o da ayrı bir mesele ya da elma sebze olmadığı için zaten siliniyor diyerek kendimi kurtarayım..

 

[pcman]

Teşekkürler Sn beab05