'hy ekle________________________________
ClngAidat = CLng(Me.txtAidatTutari / 12)
For x = 1 To 12

StrEkle = " INSERT INTO T_0_MemberAccount ( UyeNo, Tarih, IslemTuru, Tutar ) " & _
          " SELECT UyeN.UyeNo, UyeN.Tarih, UyeN.IslemTuru, UyeN.Tutar " & _
          " FROM (SELECT T_1_MemberDefinition.UyeNo, " & CLng(DateSerial(Year(txtTarih), x, 1)) & " AS Tarih,  " & _
          " 'Borç' AS IslemTuru, " & ClngAidat & " AS Tutar " & _
          " FROM T_1_MemberDefinition " & _
          " ) as UyeN"
CurrentDb.Execute StrEkle
Next x
'hy ekle________________________________