AccessTr.neT

Bul · 20/11/2011, 16:10

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.

AccessTr.neT

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

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

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

Giriş yap

Hesap oluştur

Konu Linkleri