aşağıdaki kodu tam olarak
yapıştırıp
denermisiniz
Kod:
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
Forms![A_DONEM_FORM_ANA]![A_DONEM_Gelir_ANA alt formu]!AktarilanindrKDV = [A_DONEM_FORM_ANA]![A_DONEM_Gelir_ANA alt formu]!AktarilanindrKDV
End If
End If