Selam ve saygılarımı ileterek herkese iyi geceler diliyorum.
Örnekteki çalışmada kaydettiğimde farklı kayıt ve seri numarasının verilmesini istiyorum.
Şimdiden teşekkür eder saygılarımı sunarim.
Ne yapmak istediğinizi tam anlatırmısınız örneğinizde kayıt numarası birde etiket numarası var siz hangisine farklı kayıt seri numarası istiyorsunuz yani kayıt yaparken farklı kayıt numarasımı olsun istiyorsunuz.
İlginizden dolayı teşekkür ederim.
1- kayıt numarası 6 raklamdan oluşur ve başına üç harf gelecek.(herhangi bir harf olabilir) Öeneğin: AAA 000001 - AAA 000002 gibi.
2- Seri veya etiket numarası her veri kaydettiğimde Data3/C2 de gösterdiğim gibi sıra ile birer numara kullanacak. Bu seri bittiğinde ikinci seri numarayı D2 den kullanacak.
Saygılarımla...
Tamam şimdi oldu en kısa zamanda döneceğim şimdilik iyi geceler.
Size de iyi geceler ve iyi sahurlar.
Function Duzenle(ByVal Sayi As Double, ByVal Uzunluk As Long) As String
Parca = Mid(Str(Sayi), 2)
For T = 1 To Uzunluk
If Len(Parca) <> Uzunluk Then
Parca = "0" + Parca
End If
Next T
Duzenle = Parca
End Function
bu kodu denermisiniz .