Viva Programmer
Saya Coba bantu tapi tolong di koreksi kalau ada salah .. :-) . Kita
asumsikan Nomornya di mulai dari 3000 ..tanpa embel2 di depannya .. ini source
sebagai refrensi aja setelah mas hartoto dinata .....
Private Function Kode ()
Dim Cn as new adodb.conection
Dim Rs as Adodb.recordset
Set Rs = new Adodb.Recordset
Cn.Open "disini settingan ODBC yang di pake "
rs.Open " Select Isnull (Max(Right("Kode",4)),' 0000 ' ) as NoAkhir,cn,
AddOpenStatic
If Rs.eof and Rs.Bof Then
Kode = " 3000"
else
Kode = Format(Val(Rs.Kode.Field("Noakhir")) + 1,'" 0000'" )
end if
End Function
Semoga membantu ya !! Viva Programmer
hartoto dinata <[EMAIL PROTECTED]> wrote:
iRec = getReadOnlyRS("SELECT COUNT(Kode_Customer) as RecCount FROM
Customers").Fields("RecCount")
txt(getObjIndex("txtKdCust")).Text = "cs" & iRec + 1
Function getReadOnlyRS(sSQL) As ADODB.Recordset
Dim oConnTemp As New ADODB.Connection
Dim rsTemp As ADODB.Recordset
Set rsTemp = New ADODB.Recordset
'MsgBox sSQL
oConnTemp.open sConn
rsTemp.open sSQL, oConnTemp, adOpenStatic
If Not rsTemp.EOF Then
Set getReadOnlyRS = rsTemp
Else
' Set rsTemp = Nothing
End If
Set oConnTemp = Nothing
End Function
----------------------------------------------------------
* Kursus, Belajar Visual Basic Medan,VB.NET, ASP, ASP.NET - XBasicPro Jl. Denai
No. 92 Medan - Sumatera Utara - Indonesia Flexi:061-77783749
http://xbasicpro.brinkster.net
----- Original Message ----
From: 7linuxs <[EMAIL PROTECTED]>
To: [email protected]
Sent: Friday, January 25, 2008 3:04:35 PM
Subject: [indoprog-vb] Nomor Otomatis
kk / guru2 vb, tolong donk, gmn yach buat supaya bisa nomor automatis ?
contoh : No.JobSheet
text1.text = textbox
nomor di mulai dari 3000
setiap form di panggil atau aktif, akan terus bertambah, dan tidak boleh
duplikasi ....
thx ya kk, saya masih newbie nich di VB 6.0
[Non-text portions of this message have been removed]
<!--
#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
[Non-text portions of this message have been removed]
---------------------------------
Be a better friend, newshound, and know-it-all with Yahoo! Mobile. Try it now.
[Non-text portions of this message have been removed]
