Nomor Otomatis Gabungan Kata + Tahun + Nomor urut Vb 6

Cara buat nomor otomatis :

Ketik kodenya :

Sub GetNumber()
adoAgt.RecordSource = "select * from Anggota Where KodeAnggota In(Select Max(KodeAnggota)From Anggota)Order By KodeAnggota Desc"
adoAgt.Refresh
    Dim Urutan As String * 9
    Dim Hitung As Long
    With adoAgt.Recordset
        If .EOF Then
            Urutan = "AG" + Right(Date, 2) + "0001"
            KodeAnggota = Urutan
        Else
            If Mid(!KodeAnggota, 3, 2) <> Right(Date, 2) Then
                Urutan = "AG" + Right(Date, 2) + "0001"
            Else
            Hitung = Mid(!KodeAnggota, 3, 7) + 1
                Urutan = "AG" + (Right(Date, 2)) + Right("0000" & Hitung, 4)
        End If
        End If
        Text1.Text = Urutan
    End With
End Sub

Panggil kode GetNumber didalam tombol Tambah,, lalu ketik kodenya:
 Private Sub cmdinput_Click()
      GetNumber
 end sub










Sekian, semoga bermanfaat . . . ^_^

Cara Memindahkan Kursor di Datagrid Vb 6

Hay.. Guys.. dah lama gak posting lg. kebetulan ane dapat masalah pas ngerjain tugas vb dari dosen. masalahnya pada saat mau pindahkan kursor ke cel row, eeh malah program debug kya gambar dibawah ini. Puyeng pening :( .... 

Eittss tapi dah ktemu kok, berkat mbah google yang ajaibnya bisa mengatasi masalah dengan solusi beraneka ragam. berikut coding sourcenya:

 

ok3y guys selemat mencoba.....