Selamlar,

Taksit hesaplaması yapabilen bir örnekten aldığım kodu kendi uygulamama uyarladım. Aşağıdaki gibi;

Private Sub Komut33_Click()
Dim Rc As DAO.Recordset
Dim a As Integer, s As Integer
Set Rc = CurrentDb.OpenRecordset("tbl_SOZLESME")
Dim myString, myString1 As String
Dim myNumber As Variant
Dim X, Y As Integer
Dim e As Date
Y = CInt(SZLSURE.Value)
For X = 1 To Y
Rc.AddNew
If X > 0 Then
Rc![PTNNO] = PTNMUSTERI
Rc![TEKLIFNO] = TKOD
Rc![Taksit_Say] = " " & "( " & X & " / " & Y & " )"
Rc![TAKSITTUTAR] = TTUTAR.Value
s = DatePart("yyyy", SZLTARIH.Value)
a = DatePart("m", SZLTARIH.Value)
e = DatePart("d", SZLTARIH.Value)
a = a + 1
Rc![TAKSITTARIH] = DateSerial(s, a, e)
End If
If X > 1 Then
Rc![TAKSITTARIH] = DateAdd("m", X - 1, DateSerial(s, a, e))
End If
Rc.Update
Next X
Set Rc = Nothing
MsgBox "Taksit Hesaplandı ve Ödeme Planı Oluşturuldu"


End Sub

Fakat "Rc![TEKLIFNO] = TKOD" adımından ötürü proses "Run-Time Error 3265" veriyor. Bu adımı vba'dan çıkarınca sorun çözülüyor. [TEKLIFNO] tablomda bulunan birincil anahtarın "Lookup" verisi.

Acaba [TEKLIFNO] birincil anathar olmasından dolayı mı kod çalışmıyor?

Altformda TKOD alan kayit kaynaginda ve form uzerinde mevcut degil.

Rc![TEKLIFNO] = TKOD yerine

Rc Tablosu da tbl_SOZLESME tanimlanmis ve TEKLIFNO alani yok

Rc![TKOD] = TEKLIFNO

olarak degistirebilirsiniz.

Rc tablosuna addnew ile yeni bir satir ile kayit eklenmesi tabloda mevcut alanlarin mevcut olmasi gerekir.

Sanırım hallettim. Yanıtınız için teşekkür ederim. Saygılar.

Tekrar merhaba. Aşağıdaki VBA setine eğer koşulu eklemek istedim fakat denediğim hiç bir kombinasyon olmadı.

Özetle [TKOD] alanına hiç bir değer girilmemişse ve [TKOD], [TEKLIFNO] eşit değilse bu kodu çalıştırsın istiyorum. Bunu nasıl yapabilirim?


Private Sub Komut33_Click()
Dim Rc As DAO.Recordset
Dim a As Integer, s As Integer
Set Rc = CurrentDb.OpenRecordset("tbl_SOZLESME")
Dim myString, myString1 As String
Dim myNumber As Variant
Dim X, Y As Integer
Dim e As Date
Y = CInt(SZLSURE.Value)
For X = 1 To Y

Rc.AddNew
If X > 0 Then
Rc![PTNNO] = PTNMUSTERI
Rc![TKOD] = TEKLIFID
Rc![Taksit_Say] = " " & "( " & X & " / " & Y & " )"
Rc![TAKSITTUTAR] = TTUTAR.Value
s = DatePart("yyyy", SZLTARIH.Value)
a = DatePart("m", SZLTARIH.Value)
e = DatePart("d", SZLTARIH.Value)
a = a + 1
Rc![TAKSITTARIH] = DateSerial(s, a, e)
End If
If X > 1 Then
Rc![TAKSITTARIH] = DateAdd("m", X - 1, DateSerial(s, a, e))
End If
Rc.Update
Next X
Set Rc = Nothing
MsgBox "Taksit Hesaplandı ve Ödeme Planı Oluşturuldu"


End Sub

Private Sub Komut33_Click()
...
Set Rc = CurrentDb.OpenRecordset("Select * From tbl_SOZLESME Where ((CLng(TKOD))=" & CLng(Me.TEKLIFID) & ")")
If Rc.RecordCount > 0 Then Exit Sub
...
end sub

ile yapilabilir.

Taksit sayisi kadar ekleme sorgusuna kosul belirtilerek kayit eklenebilir.

Sezgin hocam öncelikle teşekkürler vakit ayırdığınız için. Yalnız yazmış olduğunuz kodu, vba setine ekleyince bu sefer ekleme sorgusunun yarattığı aynı kayıt setini 2. sefer oluşturuyor. yoksa ben mi beceremedim.