Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
09/10/2011 23:52
Konu Sahibi
WiniFred
Yorumlar
9
Okunma
2612
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
WiniFred

WiniFred

Aktif Üye
39625
 39
 30
 125
 25/09/2011
11
 Zonguldak
 
 Ofis 2016 64 Bit
 30/10/2018,11:21
Çözüldü 
Merhaba,
aşağıdaki sorguyu hazırlayıp kaydettim.

SQL Code
1
2
3
4
5
6
7
8
9
SELECT Sicil,Adi,Soyadi,Sinif,MuesseseID,MuhasebeID,57,DernekAidati FROM BilgiBankasi WHERE Sinif=[Formlar]![TopluAktarim]![comboSinif]

UNION

SELECT Sicil,Adi,Soyadi,Sinif,MuesseseID,MuhasebeID,58,BiriktirmeTutari FROM BilgiBankasi WHERE Sinif=[Formlar]![TopluAktarim]![comboSinif]

UNION

SELECT Sicil,Adi,Soyadi,Sinif,MuesseseID,MuhasebeID,59,IkrazTaksidi FROM BilgiBankasi WHERE Sinif=[Formlar]![TopluAktarim]![comboSinif];


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

Visual Basic Code
Set rs = CurrentDb.OpenRecordset("DisketDisaAktarmaSorgusu")


ç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 Img-grin




ozanakkaya

ozanakkaya

Kurucu
1
Oz.... Ak....
 39
 482
 12.116
 29/01/2008
 Denizli
 Memur
 Ofis 2010 32 Bit
 Dün,21:53
Çözüldü 
Örnek uygulamayı ekleyiniz.


"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 

...........
WiniFred

WiniFred

Aktif Üye
39625
 39
 30
 125
 25/09/2011
11
 Zonguldak
 
 Ofis 2016 64 Bit
 30/10/2018,11:21
Çözüldü 
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.



ozanakkaya

ozanakkaya

Kurucu
1
Oz.... Ak....
 39
 482
 12.116
 29/01/2008
 Denizli
 Memur
 Ofis 2010 32 Bit
 Dün,21:53
Çözüldü 
Referanslara "Microsoft Activex Data Objects 2.X Library" referansını ekleyip aşağıdaki kodu deneyiniz.

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub KayitListele()
Call btnSil_Click
Refresh
Dim rs As New ADODB.Recordset
Dim DisaAktarSorgu As String
Dim Sinif As Integer
	Sinif = Me.comboSinif
	DisaAktarSorgu = "SELECT Sicil,Adi,Soyadi,Sinif,MuesseseID,MuhasebeID,57 AS KOD,DernekAidati FROM BilgiBankasi WHERE (((Sinif)=" & Sinif & "));" & _
	"UNION SELECT Sicil,Adi,Soyadi,Sinif,MuesseseID,MuhasebeID,58 AS KOD,BiriktirmeTutari FROM BilgiBankasi WHERE (((Sinif)=" & Sinif & "));" & _
	"UNION SELECT Sicil,Adi,Soyadi,Sinif,MuesseseID,MuhasebeID,59 AS KOD,IkrazTaksidi FROM BilgiBankasi WHERE (((Sinif)=" & Sinif & "));"
	rs.Open DisaAktarSorgu, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
		DoCmd.Hourglass True
			Do Until rs.EOF
			DoEvents
				CurrentDb.Execute ("INSERT INTO DisketTemp(Sicil,Adi,Soyadi,SinifID,MuesseseID,MuhasebeID,Yil,Ay,KesintiKodu,Tutar) VALUES('" & rs.Fields(0) & "','" & rs.Fields(1) & "','" & rs.Fields(2) & "'," & rs.Fields(3) & "," & rs.Fields(4) & "," & rs.Fields(5) & "," & Nz(Me![txtYil], 0) & "," & Nz(Me![txtAy], 0) & "," & rs.Fields(6) & ",'" & rs.Fields(7) & "');")
	rs.MoveNext
			loop
	rs.Close
	Set rs = Nothing
		DoCmd.Hourglass False
Refresh
End Sub



"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 

...........
WiniFred

WiniFred

Aktif Üye
39625
 39
 30
 125
 25/09/2011
11
 Zonguldak
 
 Ofis 2016 64 Bit
 30/10/2018,11:21
Çözüldü 
çok teşekkür ederim.



serbay33

serbay33

Üye
94213
 Belirtilmemiş
 1
 6
 22/12/2017
0
 
 
 
 14/08/2018,17:32
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.



...........

Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü Alt Form Toplamında #hata Ve #boyut! Sorunu donepezil 2 104 04/07/2019, 11:57
Son Yorum: donepezil
Çözüldü İki Tarih Ve İki Saat Arası Sorgu Formülü furens 5 248 18/06/2019, 15:28
Son Yorum: furens
Çözüldü Hata Yakalama Yunus Bozkurt 4 242 05/06/2019, 22:44
Son Yorum: Yunus Bozkurt
Çözüldü Sorgu Kriterini Formdan Almak Ertugrul Kuzu 7 433 03/06/2019, 16:10
Son Yorum: halily
Çözüldü Sorgu'da Aynı İsimleri Teke Düşürme haziran4 2 218 07/05/2019, 16:58
Son Yorum: haziran4

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2019 MyBB Group.