tag:blogger.com,1999:blog-2559341823310336344.post6596568663577147561..comments2024-03-15T15:07:47.452+07:00Comments on Enchantment of Hidden Beauty: VB.NET: Button ControlUnknownnoreply@blogger.comBlogger9125tag:blogger.com,1999:blog-2559341823310336344.post-63545242643114384762016-05-11T08:21:03.617+07:002016-05-11T08:21:03.617+07:00coba order by right(Voucher_No,4)desc diganti jadi...coba order by right(Voucher_No,4)desc diganti jadi order by Voucher_No desc<br /><br />karena klo hanya mengurutkan berdasarkan 4 karakter terakhir, nomor urut dari bulan lain juga ikut dihitung.ranihttps://www.blogger.com/profile/01367023459565924367noreply@blogger.comtag:blogger.com,1999:blog-2559341823310336344.post-61390806784124484092016-05-10T10:38:52.275+07:002016-05-10T10:38:52.275+07:00bu rani, mohon bantuannya saya buat autonumber den...bu rani, mohon bantuannya saya buat autonumber dengan kombinasi bulan,tahun dan no urut dengan format : 0516 - 0001. mohon dikoreksi kodingannya bu :<br /><br /> Public Function autonumber() As String<br /> q = "select right(Voucher_No,4) as Voucher_No from data_voucher"<br /> q &= " order by right(Voucher_No,4)desc"<br /> cmmd = New OdbcCommand(q, Irfan Sanusihttps://www.blogger.com/profile/07895199207048618849noreply@blogger.comtag:blogger.com,1999:blog-2559341823310336344.post-59044640233519566572015-04-18T19:47:17.973+07:002015-04-18T19:47:17.973+07:00ok sipok sipranihttps://www.blogger.com/profile/01367023459565924367noreply@blogger.comtag:blogger.com,1999:blog-2559341823310336344.post-8968519199947185642015-04-18T10:50:23.275+07:002015-04-18T10:50:23.275+07:00maaf bu Rani ternyata ada masalah dengan koneksiny...maaf bu Rani ternyata ada masalah dengan koneksinya sekarang udah bisa..hehe<br />terima kasih banyak ya buAnonymoushttps://www.blogger.com/profile/06109426498519412404noreply@blogger.comtag:blogger.com,1999:blog-2559341823310336344.post-15652003486760551552015-04-18T10:37:13.644+07:002015-04-18T10:37:13.644+07:00Bu rani ada kendala bu,
pas data di save no urut y...Bu rani ada kendala bu,<br />pas data di save no urut yang 000 gak mau berubah jadi 001 gimana ya bu<br />jadi tetap kayak gini PO20150418000<br />seharus nya jadi PO20150418001<br />ini koding yang di butto_click nya<br /><br /> Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click<br /> TextBox1.Text = (AutoNumber(Label1.Text & Anonymoushttps://www.blogger.com/profile/06109426498519412404noreply@blogger.comtag:blogger.com,1999:blog-2559341823310336344.post-64981034212200573232015-04-17T09:30:50.410+07:002015-04-17T09:30:50.410+07:00Function AutoNumber(ByVal Prefix As String) As Str...Function AutoNumber(ByVal Prefix As String) As String<br /> Dim cmd As SqlCommand<br /> Dim sql As String<br /> Dim sNumber As Integer<br /> Dim iLen As Integer = Len(Prefix)<br /><br /> sql = "SELECT TOP 1 RIGHT(NIS, LEN(NIS)-" & iLen & ") " & _<br /> "FROM Table_MasterSiswa " & _<br /> &ranihttps://www.blogger.com/profile/01367023459565924367noreply@blogger.comtag:blogger.com,1999:blog-2559341823310336344.post-25189563093357080572015-04-16T11:41:32.840+07:002015-04-16T11:41:32.840+07:00kasih sample data NIS nya bentuk komplitnya kayak ...kasih sample data NIS nya bentuk komplitnya kayak gimana donkranihttps://www.blogger.com/profile/01367023459565924367noreply@blogger.comtag:blogger.com,1999:blog-2559341823310336344.post-72360213111434849582015-04-16T11:08:36.903+07:002015-04-16T11:08:36.903+07:00Bu Rani bisa kasih petunjuk nya...saya tunggu bala...Bu Rani bisa kasih petunjuk nya...saya tunggu balasannya..trimsAnonymoushttps://www.blogger.com/profile/06109426498519412404noreply@blogger.comtag:blogger.com,1999:blog-2559341823310336344.post-79072359058438354912015-04-14T01:11:20.659+07:002015-04-14T01:11:20.659+07:00Selamat malam Bu Rani,Saya mau tanya Bu Maaf kalau...Selamat malam Bu Rani,Saya mau tanya Bu Maaf kalau agak penyimpang dari topik.<br />saya mempunyai No Bukti otomatis dengan sintak seperti ini:<br /><br />Function AutoNumber() As String<br />Dim sql As String<br />Call Koneksi()<br />sql = "SELECT RIGHT(NIS,3) AS NIS FROM Table_MasterSiswa WHERE YEAR(LEFT(NIS,8))+MONTH(LEFT(NIS,8))=YEAR(GETDATE())+MONTH(GETDATE()) ORDER BY RIGHT(NIS,3) DESCAnonymoushttps://www.blogger.com/profile/06109426498519412404noreply@blogger.com