denedim
aktar as integer i beğenmedi



Private Sub KDV_Son_Durum_DblClick(Cancel As Integer)

aktar As Integer
aktar = MsgBox("İNDİRİLECEK KDV tutarı " & vbCrLf & _
"Aktarılan KDV alanına" & vbCrLf & _
"aktarılsın mı ?", _
vbCritical + vbYesNo, _
"Onaylayınız")
If aktar = 6 Then
If IsNull(Forms![A_DONEM_FORM_ANA]![A_DONEM_Gelir_ANA alt formu]!AktarilanindrKDV) Then
Forms![A_DONEM_FORM_ANA]![A_DONEM_Gelir_ANA alt formu]!AktarilanindrKDV = Forms![F_DONEM_INDR_KDV_Son]!KDV_Son_Durum
Else

End Sub