dilerim işinize yarar
yapılan değişiklikler:
- tablonuza yeni bir ID alanı eklendi
- rapor sorgunuz yeni Id alanına göre düzenlendi
eklenen kodlar
1 - forma seçilen kayıtları tutması içi değişken eklendi
Public BrkLst As String '<<--Eklenen
2 - seçilen kayıtların onayını aktif yapan kodlar
eğer gelinen kayıt listedeyse onay kutusu seçilir, değilse kaldırır
Private Sub Form_Current() '<<--Eklenen
If InStr(1, BrkLst, "|" & Me.xID & "|", vbDatabaseCompare) > 0 Then Me.Onay13 = True Else Me.Onay13 = False
End Sub
3 - onay kutusu tıklanınca kaydı listeye ekler
Private Sub Onay13_AfterUpdate() '<<--Eklenen
If Me.Onay13 = False And InStr(1, BrkLst, "|" & Me.xID & "|", vbDatabaseCompare) > 0 Then BrkLst = Replace(BrkLst, "|" & Me.xID & "|", "")
If Me.Onay13 = True And InStr(1, BrkLst, "|" & Me.xID & "|", vbDatabaseCompare) = 0 Then BrkLst = BrkLst & "|" & Me.xID & "|"
End Sub
düzenlenen yordam
rapor yazdırma yordamına aşağıdaki kod eklenerek rapor için süzme koşulu oluşturulmuş
If Len(BrkLst & "") > 0 Then Kriter = "ID IN (" & Replace(Replace(BrkLst, "||", ","), "|", "") & ")" Else Kriter = "" '<<--Eklenen
ve aşağıdaki koda kriter yollanmıştır DoCmd.OpenReport stDocName, acPreview, ,
Kriter '<<--Değişen
Private Sub Rapor_Click()
On Error GoTo Err_Rapor_Click
Dim stDocName As String
If Len(BrkLst & "") > 0 Then Kriter = "ID IN (" & Replace(Replace(BrkLst, "||", ","), "|", "") & ")" Else Kriter = "" '<<--Eklenen
stDocName = "BarkodRaporu"
DoCmd.OpenReport stDocName, acPreview, , Kriter '<<--Değişen
Exit_Rapor_Click:
Exit Sub
Err_Rapor_Click:
MsgBox Err.Description
Resume Exit_Rapor_Click
End Sub
Barkodlu_hy.rar
(Dosya Boyutu: 26,34 KB | İndirme Sayısı: 8)