AccessTr.neT

(23/10/2022, 12:53)berduş yazdı: [ -> ]forma bir düğme ekleyip aşağıdaki kodu yazarsanız düğmeye her bastığınızda değerleri tabloya ekler
ama aynı kayıtta 5 defa basarsanız 5 defa ekler

Dim xSQL

xSQL = " INSERT INTO ilanNumaralari " _

            & "(kurs1ilanNo,kurs2ilanNo, kurs3ilanNo) VALUES " _

            & "(" & IIf(Len([KURS1 İLAN NO] & "") = 0, "Null", [KURS1 İLAN NO]) & "," & _

                    IIf(Len([Metin703] & "") = 0, "Null", [Metin703]) & "," & _

                    IIf(Len([Metin705] & "") = 0, "Null", [Metin705]) & ");"

            

CurrentDb.Execute xSQL

Not: @atoykan hocamın belirttiği gibi çalışmanızı yeniden yapılandırmanız yerinde olur

böyle olunca da diğer verilerle uyumsuz olmaz mi ? yani o ilan numarasinin o kişiye ait olduğunu nereden bilecek?

adres formundaki gibi sadece kutuya yazıp entere bastiğimda kayıt eden bir sistem yapmak mümkün değil mi ?

Tam olarak dediğimiz de bu bizim bu durumda ilan no tablosuna yeni bir alan ekleyin uzun sayı olsun bu alana da kişiyi tanımlayan değer eklenir

(23/10/2022, 12:59)yakanic yazdı: [ -> ]o ilan numarasinin o kişiye ait olduğunu nereden bilecek?

diğer tablodaki kişiyi belirleyen alan hangisi

adres tablosundaki birincil anahtar "Kimlik" ile bağlayamiyormuyuz? ya da tckimlik numarasiyla ?

bağlanır bağlamakta sorun yok ama bu haliyle sizin her defasında butona basıp tabloya aktarmanız lazım - ayrıca butona 40 defa basarsanız 40 defa kayıt atar- oysa form yapısınız değiştirip alt form eklerseniz butona gerek kalmaz
ama çalışmanızın mantığını bilemediğimden bir öneri de bulunamam
yapılanlar:
1 - ilan tablonuza yeni bir alan ekledim
2 - formunuza bir buton eklendi

Dim xSQL

xSQL = " INSERT INTO ilanNumaralari " _

            & "(kurs1ilanNo,kurs2ilanNo, kurs3ilanNo,KisiID) VALUES " _

            & "(" & IIf(Len([KURS1 İLAN NO] & "") = 0, "Null", [KURS1 İLAN NO]) & "," & _

                    IIf(Len([Metin703] & "") = 0, "Null", [Metin703]) & "," & _

                    IIf(Len([Metin705] & "") = 0, "Null", [Metin705]) & "," & Me.Kimlik & ");"

            

CurrentDb.Execute xSQL

(23/10/2022, 15:01)berduş yazdı: [ -> ]bağlanır bağlamakta sorun yok ama bu haliyle sizin her defasında butona basıp tabloya aktarmanız lazım - ayrıca butona 40 defa basarsanız 40 defa kayıt atar- oysa form yapısınız değiştirip alt form eklerseniz butona gerek kalmaz
ama çalışmanızın mantığını bilemediğimden bir öneri de bulunamam
yapılanlar:
1 - ilan tablonuza yeni bir alan ekledim
2 - formunuza bir buton eklendi

Dim xSQL

xSQL = " INSERT INTO ilanNumaralari " _

            & "(kurs1ilanNo,kurs2ilanNo, kurs3ilanNo,KisiID) VALUES " _

            & "(" & IIf(Len([KURS1 İLAN NO] & "") = 0, "Null", [KURS1 İLAN NO]) & "," & _

                    IIf(Len([Metin703] & "") = 0, "Null", [Metin703]) & "," & _

                    IIf(Len([Metin705] & "") = 0, "Null", [Metin705]) & "," & Me.Kimlik & ");"

            

CurrentDb.Execute xSQL

öncelikle ilgilendiğiniz için teşekkür ederim.
verileri giriyoruz ama bu sefer tekrar mehmet aliyi açtiğimda o girdiğim veri gelmiyor gene boş geliyor üstteki mesela kurs1 tarihini girdiğimde tekrar açtiğimda o tarihi görüyorum.
yapmak istediğim şu her kurs tarihinin altinda ilan no alani olacak kurs tarihini girdiğimde ilan no da gireceğim ve o kişinin bilgileri lazım olduğunda açıp bakacağim.