26/10/2021, 16:35
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