asp access hakkında

arkadaşlar merhaba elimde asp bir site var access veri tabanlı.
bir form sayfası hazırlıyorum burada form_no diye bir alanım var . Buraya ben

AB0013 AB0014 Şeklinde otomatik değerler versin istiyorum bunu nasıl yyapabilirim yardımcı olurmusunuz. Access veri tabanında tabloyu oluşturdum sayı mı metin mi demem gerekiyor birde asp de kodlama ne yapmam lazım yardımcı olursanız çok sevinirim. teşekkürler.

eğer otomatik id nin haricinde sütün oluşturup ve o kısıma sayı ve rakam birlikte gelmesini istiyorsan alan türünü metin yapacaksın sayı yaparsan hata verir.

Merhabalar,

Aşağıdaki kod ile id üretimini yapabilirsiniz. Veritabanında alanı metin olarak açık form içerisine hidden elementine oluşturulan değeri atayın ve bu kaydı veritabanına aktarın bu değer her seferinde yenisi üretileceği için değişken her seferinde yenisi üretilecektir.

<%Function SifreUret(HarfSayi, SayiUret, HarfUret) 'Bir function açtık
 
Harf = Array("A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "R", "S", "T", "U", "V", "Y", "Z", "Q", "W", "X") 'Arraya harflerimizi tanıtık.
Sayi = Array("1", "2", "3", "4", "5", "6", "7", "8", "9", "0") 'Şimdide sayılarımızı tanıttık
 
 
If SayiUret = "1" AND HarfUret = "1" Then 'Eğer sayı üretme e harf üretme 1 ise
     Denetim = "3" ' Denetim 3 olsun
Elseif SAyiUret = "1" Then 'Aksi Taktirde SAyiUret 1 ise
     Salla = "2" 'Salla 2 olsun
Elseif HarfUret = "1" Then 'Yoksa HarfUret 1 ise
     Salla = "1" 'Salla 1 olsun
End if
Randomize Timer 'Zamana göre üret
For I = 0 To INT(HarfSayi) 'İstenilen Karaktere kadar dön
 
     If Denetim = "3" Then ' Denetim 3 ise
          Salla = Int((Rnd * 2) + 1) 'Salla 1 veya 2 olsun
     End if
      
     If Salla = 2 Then 'Eğer Salla 2 ise
          Gidecek = Gidecek & "" & Sayi(Int((Rnd * 10) + 0)) 'Bir Sayı üret
     Elseif Salla = 1 Then 'Yoksa Salla 1 ise
          Gidecek = Gidecek & "" & Harf(Int((Rnd * 26) + 0)) 'Harf üret
     End if
 
Next
      
SifreUret = Gidecek
 
End Function
 
Response.Write SifreUret(8, "1", "1") '8 karakterli harf ve sayılardan oluşan bir şifre oluşturur
Response.Write "<br>---"
Response.Write SifreUret(8, "1", "0") '8 Karakterli sayılardan oluşan bir şifre 
Response.Write "<br>---"
Response.Write SifreUret(8, "0", "1") '8 Karakterli harflerden oluşan bir şifre
Response.Write "<br>---"%>

İyi çalışmalar