guys g mo tny neh
g kan pny tbl_ao isinya no_ao , no_so .G mo autonumberin no_ao dgn format angka
biasa
mslnya 1,2,....dst
n codenya spt ini
Public Function GenerateKode() As Integer
Dim n As Integer
Adodc1.RecordSource = "select isnull(max(cast NO_AO as int)),0) from tbl_ao"
Adodc1.Refresh
n = Adodc1.Recordset.Fields(0) + 1
Return n
End Function
cr krjnya stp g klik tmbl add text9.text yg diwakili no_ao tmbh trus ......jd
pas di tmbladd_click()
g tmbh text9.text=generate kode()
tp npe y errornya d return n tulisannya merah
mnt tolong y
[Non-text portions of this message have been removed]
