AccessTr.neT

Tam Versiyon: Tabloda kesişen kayıdın bulunup silinmesi
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Merhaba,
[Resim: do.php?imgf=148205570756761.png]
Listede seçili kaynağın bulunup listeden kaldırılmasını sağlamaya çalışmaktayım. Bunun için kod kısmına aşağıdaki gibi bir uygulama yapmaya çalıştım.
[Resim: do.php?imgf=148205570766042.png]
Görülceği üzere and komutu ile kesişen kayıdı buldurmaya çalıştım fakat hata vermekte. And komutu olmadan sorunsuz çalışıyor ama and komutu koyup kesişeni buldurmaya çalıştım acaba sorunu nasıl düzeltirim.
[attachment=26143]
Kod:
Dim rS As New ADODB.Recordset
rS.Open "SELECT ReceteTaslakNo FROM T_RECETETASLAKMALIYET WHERE ReceteTaslakNo =" & Me.taslakno & " And HmmdNo = " & Me.hmmdno2, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
rS.Delete
rS.Close
Me.lst_hmmdliste.Requery

Yazımı ile sorunumu düzelttim. Sayın atozun bir önceki cevabına bakarak & işeretini eksik kullandığımı anladım.

Teşekkürler. Cevaplandıya taşınabilir veya silinebilir.