Skip to main content

AccessTr.neT

Kayıt Ol

 | Facebook ile Bağlan  | Twitter İle Bağlan | Google+ İle Bağlan

otomatik barkod numarası üretmek

karaayhan
karaayhan
Access Cevaplanmış Soruları
15
10301

otomatik barkod numarası üretmek

Çözüldü #9
POWER
Uzman
POWER
Bul
Uzman
Adı Soyadı: Uf.... Öz....
Yaşı: 60
Konum: İzmir
Ofis Versiyonu: Ofis 2003
Son Oturumu: 13/02/2024,12:56
Yorumları: 1.893
Konuları: 44
Kayıt Tarihi: 02/04/2010
Teşekkür Puanı: 1.899
Mesleğiniz: Bilgisayar Mühendisi
Uyarmasını istemiyorsanız kodu değiştirin.


Dim Metin8 As String

20 Burasına bunu yazın

Metin8 = Format(CStr(Int(Rnd() * 9999)), "0000")



barkod12 = Me.KODU & "" & Format(CStr(Int(Rnd() * 1000)), "0000") & "" & Format([SatisNo], "0000")

Me.barkodu = barkod12 & "" & BarkodHesapla(barkod12)



If rs.EOF = True Then GoTo 500

rs.MoveFirst

Do Until rs.EOF

 If rs!barkodu = Me.barkodu Then GoTo 20 Burasına bunu yazın

Benzersiz numara buluncaya kadar devam edecektir...
Please return your positive or negative ...
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
otomatik barkod numarası üretmek - Yazar: karaayhan - 14/01/2012, 00:16
Cvp: otomatik barkod numarası üretmek - Yazar: POWER - 14/01/2012, 10:22
Cvp: otomatik barkod numarası üretmek - Yazar: POWER - 14/01/2012, 11:01
Cvp: otomatik barkod numarası üretmek - Yazar: POWER - 14/01/2012, 12:18
Task