AccessTr.neT

Merhaba. Bu şekilde ilişkilendirme olmaz. Siz bu işlem için amacınızı yazarsanız yardımcı olmaya çalışırım.

iyi geceler tek bir formdan iki ayrı tabloya veri aktarmak istiyorum tablodaki her şey aynı resimde görüldüğü gibi

piyasa isimli tablonuza "ihtiyac_no" adında yeni alan ekledim.

Form:İhtiyaç isimli (formun adı "frm_ihtiyac" olmalı) formunuza

Sub KayitAktar()



Dim GVarMi As Integer

Dim GSno As Integer



GVarMi = DCount("S_No", "Piyasa", "[ihtiyac_no]=" & [S_No])



If GVarMi = 0 Then



GSno = DMax("S_No", "Piyasa") + 1

DoCmd.SetWarnings False

DoCmd.RunSQL "INSERT INTO Piyasa (S_No, Malzemenin_Adı, Ölçüsü, ihtiyac_no ) values ('" & GSno & "','" & Malın_Adı & "','" & Ölçüsü & "','" & S_No & "')"

DoCmd.SetWarnings True



End If

End Sub

Şeklinde kod ekledim. Bu kod piyasa tablosunda ihtiyac_no alanının olup olmadığını, yani kaydın daha önce piyasa (tablonun adı tbl_piyasa olmalı) tablosuna kaydedilip edilmediğini kontrol eder, kaydedilmemiş ise Piyasa tablosuna s_no alanı ile birlikte kaydeder.

Bu kodu Yeni Kayıt ve Formu Kapat butonlarının tıklandığında olayına ekledim. Ayrıca bu butonlardaki katıştırılmış makro iptal edildi. Tavsiyem sizde buton oluşturduğunuzda katıştırılmış makro kullanmayın, olay yordamı kullanıp kod işini çözmeye çalışın.

Diğer tabloya veri aktarmanın yolu budur. İlişkilendirme ile iki tabloya veri aktaramazsınız.

Örneğinizin düzenlenmiş hali ektedir. İnceleyip olumlu/olumsuz bildirimde bulununuz.

Site Kuralları: 

(06/07/2009, 23:57)AccessTr.neT yazdı: [ -> ]2-) Herhangi bir soru(n) için konu açtıysanız verilen cevapları inceleyip en kısa zamanda yapılan yardımın olumlu ya da olumsuz sonucunu bildiriniz.