Coklu Sonuc Yazdirma - Baskı Önizleme

Coklu Sonuc Yazdirma - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Soruları ve Cevapları (https://accesstr.net/forum-access-sorulari-ve-cevaplari.html)
+--- Konu Başlığı: Coklu Sonuc Yazdirma (/konu-coklu-sonuc-yazdirma.html)

Sayfalar: 1 2

RE: Coklu Sonuc Yazdirma - yambaxx - 19/03/2025

Sorun cozuldu, Simdi cikan sonucu email atmayi arastiriyorum.

Option Compare Database

Private Sub btnReset_Click()
On Error GoTo ErrorHandler
' Filtreyi kaldir ve tüm kayitlari göster
Me.FilterOn = False
Me.Requery
' Arama çubugunu temizle
Me.txtSearchBar = ""
Exit Sub

ErrorHandler:
MsgBox "Bir hata olustu: " & Err.Description, vbExclamation, "Hata"
End Sub

Private Sub btnSearch_Click()
On Error GoTo ErrorHandler
Dim searchTerms As Variant
Dim filterQuery As String
Dim i As Integer

' Arama çubugu bossa tüm kayitlari göster
If IsNull(Me.txtSearchBar) Or Trim(Me.txtSearchBar) = "" Then
Me.FilterOn = False
Me.Requery
Exit Sub
End If

' Virgüle göre ayrilmis fatura numaralarini al
searchTerms = Split(Me.txtSearchBar, ",")

' Fatura numaralarini aramak için filtre sorgusu olustur
For i = LBound(searchTerms) To UBound(searchTerms)
If filterQuery <> "" Then
filterQuery = filterQuery & " OR "
End If
filterQuery = filterQuery & "[InvoiceNo] = '" & Trim(searchTerms(i)) & "'"
Next i

' Filtreyi uygula
Me.Filter = filterQuery
Me.FilterOn = True
Exit Sub

ErrorHandler:
MsgBox "Bir hata olustu: " & Err.Description, vbExclamation, "Hata"
End Sub