Ekleme sorgusu tabloda kayıt yoksa çalışmıyor?

[mehmetdemiral]

sql kodu yazarak yorumlayınca sorun yok. Bu access'in kendi başvuru hatası bence. Yeni54 kodu sql komutlarına dönüştürünce hatasız çalışıyor. Bu şekli işini görür işte.. Sorun çözülmüş..

 

[mehmetdemiral]

Ben xp (2002) kullanıyorum. Bende de son şekliyle çalışıyor. SQL gösterince düzelmiş..

 

[realperest]

örneğini gördüm önce görmemiştim,

hakatten çalışıyor, benim 2002 access versiyonum

ama sen SQL kodunu da biraz değiştirmişsin. (yani köşeli tırnakları falan kaldırmışsın)

acaba ondan mı ?

valla eğer senin makinada oluyor ise madem üstad sana asıl sorgumu gönderecem, halledersen sevinirim, eğer müsaitsen tabi, cevabını bekliyorum

 

[mehmetdemiral]

Tek fark Deyim1: [Formlar]![Form1]![alan1] şeklinde yazmış olman. Halbuki Yeni54'ün yaptığında Deyim1: Formlar!Form1!alan1 şekli kullanılmış.

 

[yeni54]

hemen gönder, 15 dakika sonra yokum çünkü

 

[realperest]

ekteki, aynı isimli dosya ama içinde benim orjinal sorgumu göreceksin


teşekkürler

 

[realperest]

heralde senin yazdığın gibi yazınca GRUPLA maya gerek te kalmıyor , değil mi ?

 

[mehmetdemiral]

Köşeli parantezler şöyle kalkmış: Yeni54 kodu incelemek için Görünümden SQL göstr deyip öyle kaydedince tekrar geri tasarım görünümüne de geçsen artık köşeli parantezsiz gösteriyor. Böylece kodu elemiş, düzeltmiş oluyor.

 

[realperest]

evet, ulen şeytanın aklına gelmez haaaa

ne uğraştırdı beni bee

ilginiz için , çok teşekkür ediyorum

 

[yeni54]

eeeee, deminki ile aynı bu.

sorgu1 i çalıştırıyorsun butona tıklayınca.

sorgu1 in arkasındaki kodu

INSERT INTO Tablo1 ( alan1, alan2, alan3 )
SELECT Formlar!Form1!alan1 AS Deyim1, Formlar!Form1!alan2 AS Deyim2, Formlar!Form1!alan3 AS Deyim3;


ile değiştir tamam olacak.

gruplamaya filan gerek kalmıyor tabi bu şekilde.

çümkü tablodan veri almıyoruz. select i bir hesap makinası veya hafızada veri işleme komutu gibi kullandık.

yani select i

SELECT 10+5/2 AS Deyim1;
veya
SELECT Now() AS Deyim1;
gibi tablosuz kullanabiliyoruz.

 

[mehmetdemiral]

Düzelmiş hali)

 

[realperest]

çok teşekkürler, sağolun

 

[modalı]

Ben de ADO lu çözümü ekleyeyim:

Public Sub KayıtEkle()
Dim rs As New ADODB.Recordset
rs.Open "Tablo1", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
Do While Not rs.EOF
rs.MoveNext
Loop
rs.AddNew
rs("alan1") = Me.alan1.Value
rs("alan2") = Me.alan2.Value
rs("alan3") = Me.alan3.Value
rs.Update
rs.Close
Set rs = Nothing
End Sub

İyi çalışmalar

 

[realperest]

Sizede teşekkür ediyorum,

şu ADO yu anlayamadım gitti bir türlü, anlasaydım zaten direkt Visual Bacic ' e geçerdim