Coba pake kode ini mas, dan kalau ada penghapusan record akan mengurutkan
kembali:
Private Sub koderest_AfterUpdate()
Dim dbs As Database
Dim rst As Recordset
Dim strSql As String, Seq As Long
Set dbs = CurrentDb
strSql = "SELECT restdt.nomer From restdt WHERE koderest = '" & Me.koderest
& _
"' ORDER By [nomer]"
Set rst = dbs.OpenRecordset(strSql, dbOpenDynaset)
If Not (rst.BOF And rst.EOF) Then
Seq = 1
Do While Not rst.EOF
With rst
.Edit
![Nomer] = Seq
.Update
End With
Seq = Seq + 1
rst.MoveNext
Loop
End If
If IsNull(Me.no) Or IsEmpty(Me.no) Or Me.no = 0 Then
strSql = "SELECT Count([restdt].[nomer]) as [CountofPONo] FROM [restdt]
" & _
"WHERE [koderest] = '" & Me.koderest & "'"
Set rst = dbs.OpenRecordset(strSql, dbOpenSnapshot)
Seq = rst![CountOfPONo] + 1
Me.no = Seq
End If
Me.Repaint
End Sub
Semoga membantu
Salam
Nurhasim
buday uhuy <[email protected]> wrote:
Saya udah coba-coba dan udah ganti nama field nya jadi nomer, lom berhasil jg.
Mungkin ada yg bisa bantu ? Saya attach jg database saya. Masalahnya ada di
form "restdt"
Sebelumnya terima kasih banyak u/ bantuan teman2.
---------------------------------
From: Haer Talib <[email protected]>
To: [email protected]
Sent: Thursday, February 12, 2009 14:22:24
Subject: Re: [belajar-access] kenapa nomor otomatis di sub form tetap 1 ?
bisa taruh breakpoint di code me!no dst itu, lalu
jalankan.
nanti VB akan berhenti dan anda bisa menekan F8 utk Step-by-Step ngejalanin
code.
test nilai yg dikandung variable.
Kalau string ditambahin ya hasilnya 1 melulu.
hati-hati juga menggunakan variabel yg udh dipakai sbg keyword
No sebaiknya diganti dengan nomor (misalnya) karena No sendiri merupakan
internal constant bagi akses, nilainya = 0.
Haer
2009/2/12 buday uhuy <herr_haikal@ yahoo.com>
Temans accesser..
Saya buat coding untuk membuat nomor detail transaksi di subform otomatis
bertambah, tapi kenapa no nya tetap 1 ya ?
Private Sub Form_BeforeInsert( Cancel As Integer)
Me!no = Nz(DMax("no", "restdt", "koderest='" & Me!koderest & "'"), 0) + 1
Apa ada yang kurang di coding itu ? atau mungkin ada yg perlu di tambahkan di
event yang lain ?
Mohon bantuan dari teman2 semua.
Sebelumnya terima kasih
Salam
Budi
---------------------------------
New Email names for you!
Get the Email name you've always wanted on the new @ymail and @rocketmail.
Hurry before someone else does!
--
[Haer Talib]
MVP Office Access
Meet me at www.RumahAccess. com
=>
---------------------------------
Get your preferred Email name!
Now you can @ymail.com and @rocketmail.com.
