AccessTr.neT

Tam Versiyon: 2 Tabloda "aynı Satır Farklı Sütuna" Tek Formdan Veri Ekleme
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
DoCmd.RunCommand acCmdSaveRecord
  
  DoCmd
.SetWarnings False
  DoCmd
.RunSQL "INSERT INTO rehber ([ADI SOYADI]) VALUES('" Me.ADI_SOYADI "')"
  
DoCmd.SetWarnings True
  MsgBox 
"Kayıt işlemi tamamlandı"vbInformation"AccessTR.Net"
  
DoCmd.GoToRecord , , acNext 


Bu kodu site içerisinde araştırdım. Bu kod ile bir formdan 2 tabloya aynı veriyi kaydedebiliyorum. Ancak aynı satırda bulunan diğer değerleri kaydedebilmem için;

DoCmd.RunSQL "INSERT INTO rehber ([ADI SOYADI]) VALUES('" Me.ADI_SOYADI "')"
DoCmd.RunSQL "INSERT INTO rehber ([İRTİBAT]) VALUES('" Me.İRTİBAT "')"

şeklinde altına ekledim. Ancak "irtibatı" farklı satıra kaydetti. Aynı satırda olması için nasıl düzenleme yapmam lazım. Birkaç deneme yaptım ama hata verdi. Yardımınıza ihtiyacım var.
Aynı satırda olmasındaki maksat nedir? İlişkisel veritabanında aynı satır birşey ifade etmez ki. Kodlarınızda aynı tabloya kayıt ettiğiniz de görülüyor hepsini bir seferde işlemeyi neden denemiyorsunuz?

Amacınızı tam anlamış değilim ancak irtibat bilgisi illa sonradan kayıt edilecek ise INSERT yerine istediğiniz kaydın eklenmesini istediğiniz satır için unique bir alan kriter olarak kullanılarak tespit edilerek UPDATE ile eklenebilir.
Hocam kendimi yanlış ifade etmişim gibi hissediyorum. O yüzden detaylı açıklama yapacağım. 
Paint dosyasına çizim yaptım. Elimde okul bilgileri var. 

Bu okulların bazılarına sabit Polis görevlendirmesi yapılırken bazılarına irtibat görevlisi ve irtibat görevlisi sorumlusu görevlendirilmektedir. Sabit Polis görevlendirmesi yapılan personel aynı zamanda o okulun yada başka bir okulun irtibat görevlisi olabilmektedir. Bunun değerlendirmesi derecelendirme ile belirlenmektedir.

Ben tabloları ve ilişkileri oluşturdum. İstediğim kısım ekte gönderdiğim dosyaya kayıt yaparken her iki tabloya da aynı verilerin kayıt edilmesi. "koordinasyonpersonelitablosu ile okulkollukpersonelitablosu" bu tablolara.
Her iki tabloda da aynı verilen olmasını istiyordum. Çünkü farklı kısımlara farklı veri çekeceğim gibi farklı sorgularda oluşturabileceğim. 

Ama kayıt yaptığımda sizde deneme yaparsanız bir tabloya düzgün kayıt olurken diğer tabloda farklı satırlara kayıt olduğunu göreceksiniz.
Kodunuzu
DoCmd.RunCommand acCmdSaveRecord

DoCmd.SetWarnings False
DoCmd.RunSQL "INSERT INTO koordinasyonpersonelitablosu ([okulkoordinasyongörevlisisicil]," & _
"[okulkoordinasyongörevlisiadsoyad],[okulkoordinasyongörevlisiirtibat],[okulkoordinasyongörevlisibirim])" & _
"VALUES ('" & Me.sabitokulpolisisicil & "','" & Me.sabitokulpolisiadsoyad & "','" & Me.sabitokulpolisiirtibat & "'," & _
"'" & Me.sabitokulpolisibirim & "')"
DoCmd.SetWarnings True
MsgBox "Kayıt işlemi tamamlandı", vbInformation, "AccessTR.Net"

DoCmd.GoToRecord , , acNext

olarak düzenleyin. Form üzerindeki bilgileri aynı tabloya giriyorsunuz herbirisi için ayrı ayrı INSERT sorgusu çalıştırmanıza gerek yok o yüzden herbirini yeni kayıt olarak ekliyor. Tekseferde ilgili alanlara kayıt edin.
Teşekkürler konu çözülmüştür. saygılar
Rica ederim, iyi çalışmalar.