Skip to main content

AccessTr.neT


Parametreli sorguyu VBA içinden çalıştırmak

WiniFred
WiniFred
5
6957

Parametreli sorguyu VBA içinden çalıştırmak

#1
Merhaba,
Bunu daha önce ben forumda sormuştum. Cevap sorguyu Vba içine almak yöntemi olarak gelmişti. Şimdi bir kez daha ihtiyacım oldu ve biraz daha araştırınca çözümü buldum.

Diyelim ki bir sorgu hazırladınız. Bu sorgu bir formdan parametre alıyor. Bu sorguyu Vba içine almakla uğraşmak istemiyorsunuz ama Vba içinden çalıştırmak istiyorsunuz. Bildiğimiz yöntemlerle yapınca, yani

Set rs=CurrentDb.OpenRecordset("Sorgu")

yöntemiyle yapınca Çok az parametre.1 bekleniyor gibi bir hata veriyor.

Parametreli sorguları Vba içinden çalıştırmak için şöyle bir yöntem izlemek gerekiyormuş:

Private Sub YardimTuru_Change()
Dim qdf As QueryDef
Dim rs As Recordset

On Error GoTo hata

Set qdf = CurrentDb.QueryDefs("AyrilisYardimiHesaplamaSorgusu")

qdf![Forms!GenelForm!Sicil] = Forms![GenelForm]![Sicil]

Set rs = qdf.OpenRecordset()

YardimTutari = rs("Net Ödenen")

rs.Close
Set rs = Nothing

qdf.Close
Set qdf=Nothing

Exit Sub

hata:
MsgBox "HATA OLUŞTU!-" & Err.Number & "-" & Err.Description, vbCritical, "Hata"

End Sub
İhtiyacı olanlar için eklemek istedim.
Saygılarımla...

Edit:
Bir örnek ekledim. umarım anlaşılır olmuştur.
.rar QuerydefOrnek.rar (Dosya Boyutu: 17,22 KB | İndirme Sayısı: 103)
Son Düzenleme: 22/11/2011, 21:35, Düzenleyen: WiniFred.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
Parametreli sorguyu VBA içinden çalıştırmak - Yazar: WiniFred - 20/11/2011, 16:10