Merhabalar
Access 2010 da yapmak istediğim hakediş programında 3 şarta bağlı olarak ( Firmaadı, birimadı ve hizmetintürünü sorgulayarak ) hakediş numarsını verdirmek istiyorum. DMax ve If komutlarını kullanarak yapmak istedim ama başarılı olamadım.Örnek dosya ektedir.Yardımcı olacak arkadaşlara şimdiden teşekkürler

Şartlar Parantez içresinde kırmızı ile yazılı olan alanlara göre 1 den başlayarak sayı üretecek.
Veriler
Firmaadı: A, AA, AAA
Hizm

SQL REPORTİNG SERVİCE DE (SERİLEŞTİRİLMİŞ SAYAÇ MANTIĞIYLA YAPILIYOR )RAPOR HAZIRLARKEN SÜREKLİ BARCODE EKLEMEK YERİNE OTOMATİK BARCODE'UN GELMESİNİ İSTİYORUM .BUNUN İÇİN NE YAPMALIYIM YARDIMCI OLUR MUSUNUZ .?

Güncel Tarih ve saati kullanarak otomatik sayı üretmeyi bi türlü yapamadım. 
09.09.2016 22:39;23 çü sayıya dönüstürmek için mesela 09092016223923 nasıl yapabilirim bi  yardımcı olursanız çok işime yarar..

Merhaba başlıkta belirttigim gibi mesela 20 haneli rastgele sayı üretmek istiyorum bulabildigim kodlarla yapmaya çalıştım fakat tam olarak 20 olmuyor yardımlarınızı bekliyorum.

Şöyle bir şey yaptım ama "Invalid use of null " hatası alıyorum  aşağıdaki kodda yanlışlık var mı?

KYT0002 diye artarak  kayıt üretmesi lazım daha doğrusu tablonun en son kaytında ID alanında değer yoksa hata veriyor.

module

[vb]Function nurmaraAl(yb As String) As String
   Dim donenDeger As String
   Dim i As Integer
   donenDeger = ""
   For i = 1 To Len(yb)
       If Mid(yb, i, 1) >= "0" And Mid(yb, i, 1) <= "9" Then
           donenDeger = donenDeger + Mid(yb, i, 1)