31/05/2009, 00:06
Biraz önce gördüm konuyu. Biraz inceledikten sonra gördüğüm hataları düzeltmeye çalıştım. Sanırım istediğiniz şunun gibi bir şey:
1- A_DONEM_FORM_ANA formunuzdaki KDVac butonunun tıklandığında olayındaki kodları aşağıdaki kodlarla değiştirin:
2- F_DONEM_INDR_KDV_Son formunuzun kodlarının yerine aşağıdaki kodları yerleştirin.
Sanırım istediğiniz bu. Kolay gelsin...
1- A_DONEM_FORM_ANA formunuzdaki KDVac butonunun tıklandığında olayındaki kodları aşağıdaki kodlarla değiştirin:
Kod:
Private Sub KDVac_Click()
On Error GoTo Err_KDVac_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "F_DONEM_INDR_KDV_Son"
stLinkCriteria = "[Donem]=" & Me![Donem]
If kriter = "[Donem]=" Then
MsgBox ("Lütfen açmak istediğiniz kriteri seçin")
Else
DoCmd.OpenForm stDocName, , , stLinkCriteria
End If
Exit_KDVac_Click:
Exit Sub
Err_KDVac_Click:
MsgBox Err.Description
Resume Exit_KDVac_Click
End Sub2- F_DONEM_INDR_KDV_Son formunuzun kodlarının yerine aşağıdaki kodları yerleştirin.
Kod:
Private Sub Form_Unload(Cancel As Integer)
Forms![A_DONEM_FORM_ANA]![S_DONEM_Gelir_ANA].Requery
End Sub
Private Sub KDV_Son_Durum_DblClick(Cancel As Integer)
Dim aktar As String
aktar = MsgBox("İNDİRİLECEK KDV tutarı " & vbCrLf & _
"Aktarılan KDV alanına" & vbCrLf & _
"aktarılsın mı ?", _
vbInformation + vbYesNo, _
"Onaylayınız")
If aktar = 6 Then
If IsNull(Forms![A_DONEM_FORM_ANA]![S_DONEM_Gelir_ANA]!AktarilanindrKDV) Then
Forms![A_DONEM_FORM_ANA]![S_DONEM_Gelir_ANA]!AktarilanindrKDV = Forms![F_DONEM_INDR_KDV_Son]!KDV_Son_Durum
Else
Forms![A_DONEM_FORM_ANA]![S_DONEM_Gelir_ANA]!AktarilanindrKDV = [A_DONEM_FORM_ANA]![S_DONEM_Gelir_ANA]!AktarilanindrKDV
Form.Requery
Forms![A_DONEM_FORM_ANA]![S_DONEM_Gelir_ANA]!AktarilanindrKDV.SetFocus
End If
End If
End SubSanırım istediğiniz bu. Kolay gelsin...