Memang kalu kita buka database dalam bersamaan maka penomoran akan mencari
data terakhir yang ada. Pada setiap client yang buka !
Kalau dahulu sy pernah kejadian yang seperti ini ?
Maka pada saat proses save maka penomoran yang dibuka akan menjadi satu
kedalam data yang sama ?
Maka saya membuat satu table penampungan (generatorPK) untuk penomoran dari
setiap table yang mengunakan penomoran !
Jadi ketika pada proses add maka Tbl generatorPK akan menampung nomor
terakhir yang akan dibuat yang mau dipakai ! sebelum proses save dilakukan ?
Private Sub GeneratePK()
PK = getIndex("tbl_AR_Customer")
TxtEntry(0).Text = GenerateID(PK, "CUS-", "00000")
End Sub
Public Function getIndex(ByVal srcTable As String) As Long
On Error GoTo err
Dim rs As New Recordset
Dim RI As Long
rs.CursorLocation = adUseClient
rs.Open "SELECT * FROM TBL_GENERATOR WHERE TableName = '" & srcTable &
"'", CN, adOpenStatic, adLockOptimistic
RI = rs.Fields("NextNo")
rs.Fields("NextNo") = RI + 1
rs.Update
getIndex = RI
srcTable = ""
RI = 0
Set rs = Nothing
Exit Function
err:
''Error when incounter a null value
If err.Number = 94 Then getIndex = 1: Resume Next
End Function
Contoh yang saya buat !
Table generatorPK
Tablename : Text
Nextno : float
TableName NextNo
tbl_AP_StockRcv 43
tbl_AP_StockRcvDetails 20
tbl_AP_Supplier 4
tbl_AR_Customer 4
tbl_AR_Invoice 182
tbl_AR_InvoiceDetails 83
tbl_AR_InvoicePH 23
tbl_AR_PaymentHistory 58
tbl_AR_PDCManager 26
tbl_AR_Salesman 4
tbl_IC_Category 9
tbl_IC_Products 19
tbl_SM_BankList 5
tbl_SM_UnitOfMeasure 6
tbl_SM_Users 3
maaf kalau ada kata2 yang salah semoga membantu ?
-----Original Message-----
From: [email protected] [mailto:[EMAIL PROTECTED]
On Behalf Of develop
Sent: 14 Agustus 2006 14:40
To: [email protected]
Subject: [Programmer-VB] Save di Database Access secara bersamaan
temen2,
ada yang tau gak?
saya ada buat program dengan menggunakan VB + database
Access 2000, untuk program multiuser.
tapi kalau di save secara bersamaan, penomorannya itu
akan double. Ada yang tau gak? untuk proses
antrian-nya,supaya yang pertama kali masuk yang proses
deluan...sehingga tidak double nomornya.
yang sekarang saya buat, kalau ada 3 user yang save
bersamaan.
USER 1 : N0001
USER 2 : N0001
USER 3 : N0001
yang saya mau, walaupun di save bersamaan, nomor yang
di dapat :
USER 1 : N0001
USER 2 : N0002
USER 3 : N0003
Thx.
__________________________________________________
Do You Yahoo!?
Tired of spam? Yahoo! Mail has the best spam protection around
http://mail.yahoo.com
Wahana Programmer Groups Links
Yahoo! Groups Links
Send instant messages to your online friends http://asia.messenger.yahoo.com
Wahana Programmer Groups Links
<*> Untuk mengunjungi sponsor milis ini, klik link berikut:
http://wahanaprogrammer.net
<*> Untuk menghubungi owner milis ini, kirim email ke:
[EMAIL PROTECTED]
<*> Konsultasi pemrogramman bisa chat disini:
Yahoo! Messenger: wahanaprogrammer
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/Programmer-VB/
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
