(06/03/2018, 11:23)ozanakkaya yazdı: Merhaba, mesajlarınızı renklendirme olayını bırakın lütfen. Yaptığınız ancak olmayan örneği ekleyiniz.

Sayın hocam 
uyarılarınızı dikkat edeceğim
örneği ekledim

Merhaba,

kullandığınız kod

DoCmd.RunSQL "INSERT INTO TBL_UYEBORCODEME ([DAIREID],[DaıreNo],[BORCNO],[BORCACIKL],[BORCLTARIHI],[BORC],[KALAN], [BLOK],[adısoyadı]) VALUES (" & sayiyaz & "," & sayiyaz & ",'" & Me.BorcTuru1 & "','" & Me.DonemTarihi1 & "'," & Me.Tutar1 & "," & Me.Tutar1 & ",'" & Dlookup ("DaıreNo", "tbl_UYEGENEL", "[DAIREID]=" & sayiyaz) & "','" & Dlookup ("BLOK", "tbl_UYEGENEL", "[DAIREID]=" & sayiyaz) & "','" & Dlookup ("adısoyadı", "tbl_UYEGENEL", "[DAIREID]=" & sayiyaz) & "')"

Veri eklenecek tabloda [DaıreNo] alanı 2. sırada belirtilmiş, ancak aktarılacak veri olan Dlookup ("DaıreNo", "tbl_UYEGENEL", "[DAIREID]=" & sayiyaz) kodu ise 7. sırada, bu yüzden Dlookup ile bulduğunuz daire no verisi tabloda [KALAN] alanına aktarılıyor.

DoCmd.RunSQL "INSERT INTO TBL_UYEBORCODEME
(
[DAIREID],  ////1
[DaıreNo],   ////2
[BORCNO],  ////3
[BORCACIKL], /////4
[BORCLTARIHI], /////5
[BORC], /////6
[KALAN], /////7
[BLOK], ////8
[adısoyadı] ////9

) VALUES (

" & sayiyaz & ", ////1
" & sayiyaz & ", ////2
'" & Me.BorcTuru1 & "', ////3
'" & Me.DonemTarihi1 & "', ////4
" & Me.Tutar1 & ", ////5
" & Me.Tutar1 & ", ////6
'" & Dlookup ("DaıreNo", "tbl_UYEGENEL","[DAIREID]=" & sayiyaz) & "', ////7
'" & Dlookup ("BLOK", "tbl_UYEGENEL", "[DAIREID]=" & sayiyaz) & "', ////8
'" & Dlookup ("adısoyadı", "tbl_UYEGENEL", "[DAIREID]=" & sayiyaz) & "' ////9
)"

(06/03/2018, 13:04)ozanakkaya yazdı: Merhaba,

kullandığınız kod

DoCmd.RunSQL "INSERT INTO TBL_UYEBORCODEME ([DAIREID],[DaıreNo],[BORCNO],[BORCACIKL],[BORCLTARIHI],[BORC],[KALAN], [BLOK],[adısoyadı]) VALUES (" & sayiyaz & "," & sayiyaz & ",'" & Me.BorcTuru1 & "','" & Me.DonemTarihi1 & "'," & Me.Tutar1 & "," & Me.Tutar1 & ",'" & Dlookup ("DaıreNo", "tbl_UYEGENEL", "[DAIREID]=" & sayiyaz) & "','" & Dlookup ("BLOK", "tbl_UYEGENEL", "[DAIREID]=" & sayiyaz) & "','" & Dlookup ("adısoyadı", "tbl_UYEGENEL", "[DAIREID]=" & sayiyaz) & "')"

Veri eklenecek tabloda [DaıreNo] alanı 2. sırada belirtilmiş, ancak aktarılacak veri olan Dlookup ("DaıreNo", "tbl_UYEGENEL", "[DAIREID]=" & sayiyaz) kodu ise 7. sırada, bu yüzden Dlookup ile bulduğunuz daire no verisi tabloda [KALAN] alanına aktarılıyor.

DoCmd.RunSQL "INSERT INTO TBL_UYEBORCODEME
(
[DAIREID],  ////1
[DaıreNo],   ////2
[BORCNO],  ////3
[BORCACIKL], /////4
[BORCLTARIHI], /////5
[BORC], /////6
[KALAN], /////7
[BLOK], ////8
[adısoyadı] ////9

) VALUES (

" & sayiyaz & ", ////1
" & sayiyaz & ", ////2
'" & Me.BorcTuru1 & "', ////3
'" & Me.DonemTarihi1 & "', ////4
" & Me.Tutar1 & ", ////5
" & Me.Tutar1 & ", ////6
'" & Dlookup ("DaıreNo", "tbl_UYEGENEL","[DAIREID]=" & sayiyaz) & "', ////7
'" & Dlookup ("BLOK", "tbl_UYEGENEL", "[DAIREID]=" & sayiyaz) & "', ////8
'" & Dlookup ("adısoyadı", "tbl_UYEGENEL", "[DAIREID]=" & sayiyaz) & "' ////9
)"

Sayın hocam 
uyarılarınızı dikkat  ederek yaptım oldu 
hakkınızı helal ediniz sizi yordum 
çek teşekür ederim.

bir adım daha ileri atlamış oldum