Benzeri ugulamada kullandığım kod aşağıdaki gibidir.
Yazdır butonunu tıkladığımda formdaki sonrakiyanittarihi alanındaki veriyi tablodaki yanittarihi alanına aktarıyor, tablodaki sonrakiyanittarihi alanına da dateadd ile dönemini ay olarak ekliyor.
DoCmd.OpenReport "rpr_daimiarama", acViewPreview, , kriter
DoCmd.PrintOut acPrintAll, , , acHigh, 2
strSQL = "SELECT * FROM tbl_daimiarama "
Set rstkayit = New ADODB.Recordset
rstkayit.Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
With rstkayit
.Find "[id]=" & Me.id
If Not rstkayit.EOF Then
.Fields("yanittarihi") = Me.mtn_sonrakiyanittarihi
.Fields("sonrakiyanittarihi") = DateAdd("m", Me.acl_donemi, mtn_sonrakiyanittarihi)
.Update
End If
End With