Skip to main content

AccessTr.neT


Seçerek Barkod Yazdırmak

Seçerek Barkod Yazdırmak

Çözüldü #1
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
.rar Barkodluu.rar (Dosya Boyutu: 100,74 KB | İndirme Sayısı: 5)
Buralar sizlerle güzel.İyiki varsınız. Shy
Cevapla
#2
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?
Cevapla
#3
(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
Buralar sizlerle güzel.İyiki varsınız. Shy
Cevapla
#4
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
Cevapla
#5
(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.
Buralar sizlerle güzel.İyiki varsınız. Shy
Cevapla
#6
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
.rar Barkodlu_hy.rar (Dosya Boyutu: 26,34 KB | İndirme Sayısı: 8)
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task