kodu aşağıdaki ile değiştir.

Private Sub FaturaCinsi_AfterUpdate()

Select Case [FaturaCinsi]

Case "Satış Faturası"

Forms![Fatura Raporlama]![FaturaRaporKıstasları].Form.RecordSource = "FaturaRaporları"

Case "Alış Faturası"

Forms![Fatura Raporlama]![FaturaRaporKıstasları].Form.RecordSource = "FaturaRaporlarıAlis"

Case "Alış İade Faturası"

Forms![Fatura Raporlama]![FaturaRaporKıstasları].Form.RecordSource = "FaturaRaporları"

Case "Satış İade Faturası"

Forms![Fatura Raporlama]![FaturaRaporKıstasları].Form.RecordSource = "FaturaRaporlarıAlis"



End Select

Me.FaturaRaporKıstasları.Requery





End Sub