AccessTr.neT

Slm Arkadaşlar yazdırmak istediğim ürünlerin barkodları tikle seçerek ve arama yaptıktan sonra gelen ürünün barkodunuda tikleyerek yazdırmak ,Liste şeklinde gelen ürünlerin barkod yazılacaklarınıda listeden seçerek yazmak istiyorum yardımlarınızı bekliyorum.Teşekkürler

bir kayda geldiniz tiklediniz, sonra diğer hayda gelip onu atladınız, sonra diğer kayda geçip onu da tiklediniz rapor düğmesine basınca bu 3 kayıttan tiklediğiniz 2 kaydı yazdırsın istiyorsunuz öyle mi?

(28/09/2022, 11:21)berduş yazdı: [ -> ]bir kayda geldiniz tiklediniz, sonra diğer hayda gelip onu atladınız, sonra diğer kayda geçip onu da tiklediniz rapor düğmesine basınca bu 3 kayıttan tiklediğiniz 2 kaydı yazdırsın istiyorsunuz öyle mi?

Evet kardeşim

yalnız bu tiklerin kaydedileceği bir alan yok tablonuzda dolayısıyla Access bunu doğrudan hafızasında tutamaz, diziye aktarmak mümkün ama tablonuzda benzersiz alan tanımlanmamış gibi geldi bana -en azından dikkatimden kaçmadıysa- yani aynı barkod 2 defa girilmişse değişiklikler aynı barkodlu tüm alanları etkiler
çalışmanızda benzersiz alan var mı eğer yoksa accessin kendi otomatik tam sayı alanı kullanılabilir

(28/09/2022, 14:06)berduş yazdı: [ -> ]yalnız bu tiklerin kaydedileceği bir alan yok tablonuzda dolayısıyla Access bunu doğrudan hafızasında tutamaz, diziye aktarmak mümkün ama tablonuzda benzersiz alan tanımlanmamış gibi geldi bana -en azından dikkatimden kaçmadıysa- yani aynı barkod 2 defa girilmişse değişiklikler aynı barkodlu tüm alanları etkiler
çalışmanızda benzersiz alan var mı eğer yoksa accessin kendi otomatik tam sayı alanı kullanılabilir

Kullansın kardeşim Access otomatik tam sayı olarak.

dilerim işinize yarar
yapılan değişiklikler:

1. tablonuza yeni bir ID alanı eklendi
   
2. 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