Ustalarım merhaba, bu güne kadar başıma gelmeyen fakat işin içinden çıkamadığım bir sorunla karşı karşıya kaldım. Kafam durdu ben neyi kaçırıyorum acaba.

access runtime error 3346 Sorgu değerleri ile hedef alanların sayısı aynı değil. 



Uğraşmakta olduğum çalışmada bu hatayı alıyoum. Ancak sorunum değerlerle alakalı değil. Sorguyu çalıştırdığımda texbox içindeki değerler içinde küsüratlı değerler varsa sonuç bu oluyor. Eğer sonuç küsüratlı değilse sorgu çalışıyor ve kayıt işlemi gerçekleşiyor. 0,40 * 2 = 0,80 olduğunda yukarıdaki hatayı alıyorum. Eğer sonuç 0,50*2=1 olursa sorun çıkmıyor. Sizce neyi atlıyorum ben kafam karıştı iyice. Veritabanı içindeki değerler sayı olarak giriliyor. Ondalıklı olan kısımdada sorun gözükmüyor. Ama formdan çekmeye çalıştığımda sonuç hüsran. Yardımlarınız için şimdiden teşekkür ederim. Sorguda hata olduğunu sanmıyorum. Ancak incelerseniz sevinirim. Şimdiden teşekkürler....


CurrentDb.Execute "INSERT INTO stok ( malzeme1c, malzeme2c, malzeme3c, malzeme4c, malzeme5c, malzeme6c, malzeme7c, malzeme8c, malzeme9c, malzeme10c, malzeme11c, malzeme12c, malzeme13c, malzeme14c, malzeme15c, malzeme16c, malzeme17c, malzeme18c, malzeme19c, malzeme20c, malzeme21c, malzeme22c, malzeme23c, malzeme24c ) " & _

"VALUES(" & Me.maal1 & "," & Me.maal2 & "," & Me.maal3 & "," & Me.maal4 & "," & Me.maal5 & "," & Me.maal6 & "," & Me.maal7 & "," & Me.maal8 & "," & Me.maal9 & "," & Me.maal10 & "," & Me.maal11 & "," & Me.maal12 & "," & Me.maal13 & "," & Me.maal14 & "," & Me.maal15 & "," & Me.maal16 & "," & Me.maal17 & "," & Me.maal18 & "," & Me.maal19 & "," & Me.maal20 & "," & Me.maal21 & "," & Me.maal22 & "," & Me.maal23 & "," & Me.maal24 & ")"

Merhaba..

SQL, VBA içinde farklı kurallar ister.. Ondalık ayırıcı VBA da virgül değil nokta olmalı..

Bu tür değerlerin bulunduğu alanları kod içinde bu şekilde değiştirip kullanabilirsiniz..:


Replace(Me.maal1, ",", ".")

Hemen deniyorum. Dönüşünüz için ayrıca teşekkür ederim. Sonuç hakkında bilgi vereceğim. Saygılarımla..

(05-10-2019, 18:24)Taruz demiş ki: Merhaba..

SQL, VBA içinde farklı kurallar ister.. Ondalık ayırıcı VBA da virgül değil nokta olmalı..

Bu tür değerlerin bulunduğu alanları kod içinde bu şekilde değiştirip kullanabilirsiniz..:


Replace(Me.maal1, ",", ".")

Pardon ama sadece 2 tanesini ekleyebilirmisiniz diğerlerini ben yapacağım. Kafam alt üst oldu.

Replace(Me.maal1, ",", ".")

VALUES(" & Me.maal1 & "," & Me.maal2 & ",

VALUES(" & Replace(Me.maal1, ",", ".") & "," & Replace(Me.maal2, ",", ".") & ",


Kırmızı yerleri ekledim.. Ondalık değer içerebilecek alanlarınızda aynı şekilde kullanabilirsiniz..

Belki birine daha lazım olur. Çok teşekkür ederim sayın TARUZ Hocam... SORUN ÇÖZÜLMÜŞTÜR.

"VALUES(" & Me.maal1 & "," & Me.maal2 & "," & Me.maal3 & "," & Me.maal4 & "," & Me.maal5 & "," & Me.maal6 & "," & Me.maal7 & "," & Me.maal8 & "," & Me.maal9 & "," & Me.maal10 & "," & Me.maal11 & "," & Me.maal12 & "," & Me.maal13 & "," & Me.maal14 & "," & Me.maal15 & "," & Me.maal16 & "," & Me.maal17 & "," & Me.maal18 & "," & Me.maal19 & "," & Me.maal20 & "," & Me.maal21 & "," & Me.maal22 & "," & Me.maal23 & "," & Me.maal24 & ")"