vba içinden sorgu çalıştırırken hata alıyorum. - 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ığı: vba içinden sorgu çalıştırırken hata alıyorum. (/konu-vba-icinden-sorgu-calistirirken-hata-aliyorum.html) Sayfalar:
1
2
|
vba içinden sorgu çalıştırırken hata alıyorum. - WiniFred - 09/10/2011 Merhaba, aşağıdaki sorguyu hazırlayıp kaydettim.
WHERE kısmındaki parametreyi görüyorsunuz. TopluAktarim formu açıkken sorguya çift tıkladığımda, comboSinif alanının değerine göre sorgu problemsiz çalışıyor. Ama bu sorguyu aşağıdaki gibi vb içinden çalıştırmaya istediğimde
çok az parametre. 1 bekleniyor (hata kodu:3061) hatası alıyorum. Sorguya parametre eklemeden önce hiç hata vermeden problemsiz çalışıyordu kod. bunu aşmak için yapabileceğim birşey var mı? Access ısrarla sorguyu olduğu gibi Vba içine almamı istiyor, ben de bunu yapmak istemiyorum Cvp: vba içinden sorgu çalıştırırken hata alıyorum. - ozanakkaya - 10/10/2011 Örnek uygulamayı ekleyiniz. Cvp: vba içinden sorgu çalıştırırken hata alıyorum. - WiniFred - 10/10/2011 Uygulamayı ekledim. Uygulama geliştirilme aşamasında olduğu için hatalı, eksik vs. kısımlar mevcuttur. Lütfen dikkate almayınız. sadece yukarıdaki mesajımda belirttiğim TopluAktarim formu ile DisketDisaAktarmaSorgusu'nu dikkate alınız. TopluAktarim formunda Yapılacak İşlem:TEVKİFAT DOSYASI DIŞA AKTAR'ı seçin ve Sınıf alanından İŞÇİ veya MEMUR seçip "Dosyadan Oku" butonuna tıklayın. Sonra form açıkken ve Sınıf alanında İŞÇİ veya MEMUR seçiliyken Gezinti Bölmesinden DisketDisaAktarmaSorgusu'na çift tıklayın. Cvp: vba içinden sorgu çalıştırırken hata alıyorum. - ozanakkaya - 10/10/2011 Referanslara "Microsoft Activex Data Objects 2.X Library" referansını ekleyip aşağıdaki kodu deneyiniz.
Cvp: vba içinden sorgu çalıştırırken hata alıyorum. - WiniFred - 11/10/2011 çok teşekkür ederim. Cvp: vba içinden sorgu çalıştırırken hata alıyorum. - serbay33 - 27/12/2017 başlık burası mı bilemedim ama sadece aynı hatayı burda gördüm. Private Sub Komut25_Click() Dim dno dno = Me.Dosya_No CurrentDb.Execute "INSERT INTO Zorunluİstihdam ([Dosya No],[Ad-Soyad],[TC Kimlik No],[Mezuniyet],[Bölümü],[Telefon],[Askerlik],[Görev Yeri-İl],[Görev Yeri-İlçe],[Görev Yeri]) SELECT [Dosya No],[Ad-Soyad],[TC Kimlik No],[Mezuniyet],[Bölümü],[Telefon],[Askerlik],[Görev Yeri-İl],[Görev Yeri-İlçe],[Görev Yeri] FROM [İşbaşıEğitimListesi]" _ & "WHERE ([İşbaşıEğitimListesi].[Durum] = 'Zorunlu İstihdam')" Debug.Print strSQL End Sub bu kodla insert işlemi oluyor. ancak aşağıdaki gibi "dno"yu da ekleyince olmuyor. Private Sub Komut25_Click() Dim dno dno = Me.Dosya_No CurrentDb.Execute "INSERT INTO Zorunluİstihdam ([Dosya No],[Ad-Soyad],[TC Kimlik No],[Mezuniyet],[Bölümü],[Telefon],[Askerlik],[Görev Yeri-İl],[Görev Yeri-İlçe],[Görev Yeri]) SELECT [Dosya No],[Ad-Soyad],[TC Kimlik No],[Mezuniyet],[Bölümü],[Telefon],[Askerlik],[Görev Yeri-İl],[Görev Yeri-İlçe],[Görev Yeri] FROM [İşbaşıEğitimListesi]" _ & "WHERE (([İşbaşıEğitimListesi].[Dosya No] = dno) & ([İşbaşıEğitimListesi].[Durum] = 'Zorunlu İstihdam'))" Debug.Print strSQL End Sub hata olarak da aşağıdaki hatayı veriyor: Çok az parametre. 1 bekleniyor teşekkürler. |