Terima kasih atas petunjuknya
BR,
Biebah
----- Original Message ----
From: Radhin <[EMAIL PROTECTED]>
To: [email protected]
Sent: Monday, January 14, 2008 1:38:56 PM
Subject: RE: [Programmer-VB] Looping Nomor Transaksi
Kalo saya Cuma VB
doank gak pake SQL
Ini code yg sy pake
utk no faktur secara otomatis
Semoga membantu
Set rsfak = New
ADODB.Recordset
rsfak.Open
"select fakturid from faktur", cn, adOpenDynamic, adLockOptimistic
If
rsfak.RecordCount <> 0 Then
rsfak.MoveLast
TeksNf =
rsfak("fakturid")
Nf = Val(TeksNf)
+ 1
Select Case Nf
Case 0 To 9
Text10.Text =
"00000" & Trim(Str(Nf) )
Case 10 To 99
Text10.Text =
"0000" & Trim(Str(Nf) )
Case 100 To 999
Text10.Text =
"000" & Trim(Str(Nf) )
Case 1000 To 9999
Text10.Text =
"00" & Trim(Str(Nf) )
Case 10000 To
99999
Text10.Text =
"0" & Trim(Str(Nf) )
Case 100000 To
999999
Text10.Text =
Trim(Str(Nf) )
End Select
Else
Text10.Text =
"000001
Salam
Endra J.
http://chlutaxs. blogspot. com
http://www.chlutaxs .com.cc
http://www.myspace. com/chlutaxs
From: ali suparman
[mailto:ali_ suparman@ yahoo.com]
Sent: 14 Januari 2008 11:36
To: Programmer-VB@ yahoogroups. com
Subject: Re: [Programmer- VB]
Looping Nomor Transaksi
Mas, saya pernah mengalami hal serupa dan diatasi dengan:
cara primitif (maksudnya cara saya). Biasanya saya membuat satu data
dalam database dengan tipe LONG. Data ini dibuat naik setiapkali terjadi
transaksi dibuat naik (kalau di SQL Server dapat dengan procedure/trigger
dikemas dalam sistem Transact di Database SQLServernya, atau dengan kode
program di VB), jadi setiap transaksi berhasil dilaksanakan maka data
dinaikkan 1.
Setiap kali membuka form untuk transaksi, data ini dibaca untuk
ditampilkan.
Mudah-mudahan ada cara lain yang lebih simple..beri saya juga
informasi, Thanks
bie edogawa
<[EMAIL PROTECTED] com> wrote:
Selamat Sore,
Saya sedang membuat suatu aplikasi sederhana yg terdiri dari :
1. Form Login
2. Form Transaksi
Dalam form transaksi ada button Print, Close dan Cancel
To d pont aj deh...yang ingin saya tanyakan...bagaiman a caranya setiap
kali membuka form transaksi yg baru, maka nomor transaksi akan secara otomatis
bertambah. Misal..saat membuka form transaksi, Nomor yg tertera adalah No.
"1"...saat transaksi selesai --> u/ print saya tinggal menekan
tombol print. Jika print sudah selesai maka Form transaksi akan baru lagi
(Blank) dan No transaksi menjadi "2"
Atas petunjuk yang diberikan saya ucapkan terima kasih
nb :
saya menggunakan database Ms. SQL Server, sebut saja nama database nya
"Project", table u/ transaksi ada 2 : transaksi-header dan
transaksi-detail
BR,
Biebah
Send instant messages to your online friends http://uk.messenger .yahoo.com
Send instant messages to your online friends http://uk.messenger .yahoo.com
Be a better friend, newshound, and know-it-all with Yahoo! Mobile. Try
it now.
<!--
#ygrp-mkp{
border:1px solid #d8d8d8;font-family:Arial;margin:14px 0px;padding:0px 14px;}
#ygrp-mkp hr{
border:1px solid #d8d8d8;}
#ygrp-mkp #hd{
color:#628c2a;font-size:85%;font-weight:bold;line-height:122%;margin:10px 0px;}
#ygrp-mkp #ads{
margin-bottom:10px;}
#ygrp-mkp .ad{
padding:0 0;}
#ygrp-mkp .ad a{
color:#0000ff;text-decoration:none;}
-->
<!--
#ygrp-sponsor #ygrp-lc{
font-family:Arial;}
#ygrp-sponsor #ygrp-lc #hd{
margin:10px 0px;font-weight:bold;font-size:78%;line-height:122%;}
#ygrp-sponsor #ygrp-lc .ad{
margin-bottom:10px;padding:0 0;}
-->
<!--
#ygrp-mlmsg {font-size:13px;font-family:arial, helvetica, clean, sans-serif;}
#ygrp-mlmsg table {font-size:inherit;font:100%;}
#ygrp-mlmsg select, input, textarea {font:99% arial, helvetica, clean,
sans-serif;}
#ygrp-mlmsg pre, code {font:115% monospace;}
#ygrp-mlmsg * {line-height:1.22em;}
#ygrp-text{
font-family:Georgia;
}
#ygrp-text p{
margin:0 0 1em 0;}
#ygrp-tpmsgs{
font-family:Arial;
clear:both;}
#ygrp-vitnav{
padding-top:10px;font-family:Verdana;font-size:77%;margin:0;}
#ygrp-vitnav a{
padding:0 1px;}
#ygrp-actbar{
clear:both;margin:25px 0;white-space:nowrap;color:#666;text-align:right;}
#ygrp-actbar .left{
float:left;white-space:nowrap;}
.bld{font-weight:bold;}
#ygrp-grft{
font-family:Verdana;font-size:77%;padding:15px 0;}
#ygrp-ft{
font-family:verdana;font-size:77%;border-top:1px solid #666;
padding:5px 0;
}
#ygrp-mlmsg #logo{
padding-bottom:10px;}
#ygrp-vital{
background-color:#e0ecee;margin-bottom:20px;padding:2px 0 8px 8px;}
#ygrp-vital #vithd{
font-size:77%;font-family:Verdana;font-weight:bold;color:#333;text-transform:uppercase;}
#ygrp-vital ul{
padding:0;margin:2px 0;}
#ygrp-vital ul li{
list-style-type:none;clear:both;border:1px solid #e0ecee;
}
#ygrp-vital ul li .ct{
font-weight:bold;color:#ff7900;float:right;width:2em;text-align:right;padding-right:.5em;}
#ygrp-vital ul li .cat{
font-weight:bold;}
#ygrp-vital a{
text-decoration:none;}
#ygrp-vital a:hover{
text-decoration:underline;}
#ygrp-sponsor #hd{
color:#999;font-size:77%;}
#ygrp-sponsor #ov{
padding:6px 13px;background-color:#e0ecee;margin-bottom:20px;}
#ygrp-sponsor #ov ul{
padding:0 0 0 8px;margin:0;}
#ygrp-sponsor #ov li{
list-style-type:square;padding:6px 0;font-size:77%;}
#ygrp-sponsor #ov li a{
text-decoration:none;font-size:130%;}
#ygrp-sponsor #nc{
background-color:#eee;margin-bottom:20px;padding:0 8px;}
#ygrp-sponsor .ad{
padding:8px 0;}
#ygrp-sponsor .ad #hd1{
font-family:Arial;font-weight:bold;color:#628c2a;font-size:100%;line-height:122%;}
#ygrp-sponsor .ad a{
text-decoration:none;}
#ygrp-sponsor .ad a:hover{
text-decoration:underline;}
#ygrp-sponsor .ad p{
margin:0;}
o{font-size:0;}
.MsoNormal{
margin:0 0 0 0;}
#ygrp-text tt{
font-size:120%;}
blockquote{margin:0 0 0 4px;}
.replbq{margin:4;}
-->
Send instant messages to your online friends http://uk.messenger.yahoo.com
