28/04/2015, 12:14
Merhaba Arkadaşlar,
İhtiyaç üzerine çalıştığım şirkette IT Envanter programını Access de oluşturmak üzere birkaç ay önce kolları sıvadım. İnceledikçe ve uyguladıkça bilgiler de yavaş yavaş aklıma geliyor. Ancak bir yerde takıldım .
Varlık Hareketleri Formundan Varlık Hareket tablosuna basit bir kayıt yapıyorum. Bu formdaki alanlar kısaca Hareket Türü, Varlık_Sınıf, Kullanıcı, Departman gibi...
Formdaki bilgileri kaydet butonuna tıkladıktan sonra kayıt ediyorum. Ancak kaydet butonuna 2 kere bastığımda farklı bir ID ile tabloda aynı kayıttan bir tane daha oluşturuyor. Veya o kaydı güncellemek istediğimde de farklı bir ID ile kayıt açıyor.
Kaydet Butonu içerisinde oluşturmuş olduğum Sql kodu aşağıdaki gibidir.
Private Sub btn_Kaydet_Click()
Dim kaydet As String
kaydet = "INSERT INTO tbl_VarlikHareket (Hareket_Tur ,Varlik_Kodu ,Departman ,Yeni_Departman ,Kullanici ,Yeni_Kullanici,Tarih,Aciklama,Sinif)VALUES(cbo_hareket_tur,cbo_VarlikKodu,txt_Departman,cbo_YeniDepartman,txt_Kullanici,cbo_YeniKullanici,txt_Tarih,txt_Aciklama,cbo_Sinif)"
DoCmd.SetWarnings False
DoCmd.RunSQL kaydet
DoCmd.SetWarnings True
Sorunu çözmek için benim aklıma ID numarasını koşulda belirtip üzerine kayıt yapmaktı ancak birincil anahtar olduğu için bu kayıt gerçekleşmedi ve yeni oluşturulan kayıtlarda tabloya henüz bir kayıt girilmediği için hata verdi.
Sorunum ile ilgili var ise çözümünüzü paylaşırsanız sevinirim.
Teşekkürler.
İhtiyaç üzerine çalıştığım şirkette IT Envanter programını Access de oluşturmak üzere birkaç ay önce kolları sıvadım. İnceledikçe ve uyguladıkça bilgiler de yavaş yavaş aklıma geliyor. Ancak bir yerde takıldım .
Varlık Hareketleri Formundan Varlık Hareket tablosuna basit bir kayıt yapıyorum. Bu formdaki alanlar kısaca Hareket Türü, Varlık_Sınıf, Kullanıcı, Departman gibi...
Formdaki bilgileri kaydet butonuna tıkladıktan sonra kayıt ediyorum. Ancak kaydet butonuna 2 kere bastığımda farklı bir ID ile tabloda aynı kayıttan bir tane daha oluşturuyor. Veya o kaydı güncellemek istediğimde de farklı bir ID ile kayıt açıyor.
Kaydet Butonu içerisinde oluşturmuş olduğum Sql kodu aşağıdaki gibidir.
Private Sub btn_Kaydet_Click()
Dim kaydet As String
kaydet = "INSERT INTO tbl_VarlikHareket (Hareket_Tur ,Varlik_Kodu ,Departman ,Yeni_Departman ,Kullanici ,Yeni_Kullanici,Tarih,Aciklama,Sinif)VALUES(cbo_hareket_tur,cbo_VarlikKodu,txt_Departman,cbo_YeniDepartman,txt_Kullanici,cbo_YeniKullanici,txt_Tarih,txt_Aciklama,cbo_Sinif)"
DoCmd.SetWarnings False
DoCmd.RunSQL kaydet
DoCmd.SetWarnings True
Sorunu çözmek için benim aklıma ID numarasını koşulda belirtip üzerine kayıt yapmaktı ancak birincil anahtar olduğu için bu kayıt gerçekleşmedi ve yeni oluşturulan kayıtlarda tabloya henüz bir kayıt girilmediği için hata verdi.
Sorunum ile ilgili var ise çözümünüzü paylaşırsanız sevinirim.
Teşekkürler.