ekstre görüntüle komutunu aşağıdaki kodla değiştiripp dener misiniz?

Private Sub Komut10_Click()

If Len(Me.AK_Firma & "") = 0 Then

    MsgBox "Firma seçilmemiş"

    Me.AK_Firma.SetFocus

    Exit Sub

End If

If Not IsDate(Me.txtilktarih) Then

    MsgBox "ilk tarih girilmemiş"

    Me.txtilktarih.SetFocus

    Exit Sub

End If

If Not IsDate(Me.txtsontarih) Then

    MsgBox "ilk tarih girilmemiş"

    Me.txtsontarih.SetFocus

    Exit Sub

End If

DoCmd.SetWarnings False  'uyarıyı kapat

DoCmd.OpenQuery "s_bakiye"

DoCmd.SetWarnings True   'uyarıyı aç

DoCmd.OpenReport "r_bakiye", acViewReport



End Sub