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ı: 4)
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
PHP Kod:
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
PHP Kod:
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
PHP Kod:
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
PHP Kod:
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ı: 4)
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da