Membatasi hanya angka pada textbox VB6

Kali ini saya akan membagikan cara untuk membatasi hanya angka pada textbox VB6 dengan menggunakan bahasa pemrograman Visual Basic 6. Pada program inidigunakan agar terjadi error sedikit mungkin pada program yang akan dibuat. seringnya user tidak mengetahui cara dan karakter apa saja yang dapat diinputkan pada textbox membuat program ketika dijalankan menjadi error, sehinggi kadang kala membuat programer kerepotan. semoga ilmu yang saya sharingkan ini bisa menambah wawasan bagi para pembaca semuanya.

prosedur :

Public Sub JustNumber(ByRef KeyAscii As Integer)
    If ((KeyAscii < 48 And KeyAscii <> 8) Or KeyAscii > 57) Then
        KeyAscii = 0
    End If
End Sub

cara memanggilnya pada textbox yang telah dibuat pada form di Visual Basic 6

Private Sub Text5_KeyPress(KeyAscii As Integer)
  JustNumber KeyAscii

End Sub

demikian ilmu membatasi hanya angka pada textbox VB6 yang saya sharingkan, semoga bermanfaat bagi pembaca sekalian.

Membatasi hanya huruf pada textbox VB6

Kali ini saya akan membagikan cara untuk membatasi hanya huruf pada textbox VB6 dengan menggunakan bahasa pemrograman Visual Basic 6. Pada program inidigunakan agar terjadi error sedikit mungkin pada program yang akan dibuat. seringnya user tidak mengetahui cara dan karakter apa saja yang dapat diinputkan pada textbox membuat program ketika dijalankan menjadi error, sehinggi kadang kala membuat programer kerepotan. semoga ilmu yang saya sharingkan ini bisa menambah wawasan bagi para pembaca semuanya.

prosedur :

Public Sub HanyaHuruf(ByRef KeyAscii As Integer)
    If Not (KeyAscii >= Asc("a") & Chr(13) And KeyAscii <= Asc("z") & Chr(13) Or (KeyAscii >= Asc("A") & Chr(13) And KeyAscii <= Asc("Z") & Chr(13) Or KeyAscii = vbKeyBack Or KeyAscii = vbKeyDelete Or KeyAscii = vbKeySpace)) Then
        KeyAscii = 0
    End If
End Sub

cara memanggilnya pada textbox yang telah dibuat pada form di Visual Basic 6

Private Sub Text2_KeyPress(KeyAscii As Integer)
HanyaHuruf KeyAscii
End Sub

demikian ilmu membatasi hanya huruf pada textbox VB6 yang saya sharingkan, semoga bermanfaat bagi pembaca sekalian.

Membuat laporan berdasarkan kriteria pada Crystal report dan VB6

Kali ini saya akan membagikan cara untuk menampilakan laporan berdasrkan kriteria tertentu seperti nomor nota yang menggunakan bahasa pemrograman Visual Basic 6.  pada program ini menggunakan crystal report sebagai laporannya  semoga bisa menambah wawasan bagi para pembaca semuanya.

source code :

  Me.MousePointer = 11
    With CrystalReport1
        .Reset
        .ReportFileName = App.Path & "\Jual.rpt"
        .DataFiles(0) = App.Path & "\STOKIS.mdb"
        .SelectionFormula = "{TB_Jual.noNota}='" & Text1.Text & "'"
        .WindowMinButton = False
        .WindowShowCancelBtn = True
        .WindowShowCloseBtn = True
        .WindowShowPrintBtn = True
        .WindowShowPrintSetupBtn = True
        .WindowParentHandle = MDIForm1.hWnd
        .WindowState = crptMaximized
        .Action = 1
    End With
Me.MousePointer = 1

untuk memilih kriteria harap diperhatikan "{TB_Jual.noNota}='" & Text1.Text & "'" ---> gantilah agar sesuai dengan kriteria anda.

berikut screenshootnya :

Autonumber berdasarkan tanggal pada VB6

Pada kesempatan sebelumnya saya telah membagikan informasi mengenai pembuatan autonumber. Kali ini saya akan membagikan cara untuk membuat autonumber atau penomoran secara otomatis dengan menggunakan tanggal sebagai acuan yang menggunakan bahasa pemrograman Visual Basic 6. Pada program ini menggunakan perulangan. semoga bisa menambah wawasan bagi para pembaca semuanya.

berikut source code nya :

Function autoNumber() As String
    Dim rs As New ADODB.Recordset
    rs.Open "select max(kode_beli) from pembelian where month(tgl_beli)=" & Month(Now) & _
    " and year(tgl_beli)=" & Year(Now), cn
    autoNumber = IIf(IsNull(rs.Fields(0)), Right(Year(Now), 2) & Month(Now) & "001", _
        Left(rs.Fields(0), 4) & Format(Right(rs.Fields(0), 3) + 1, "0##"))
    rs.Close
End Function

berikut screenshootnya :

Autonumber pada VB6

Kali ini saya akan membagikan cara untuk membuat autonumber atau penomoran secara otomatis dengan menggunakan bahasa pemrograman Visual Basic 6. Pada program ini menggunakan perulangan. semoga bisa menambah wawasan bagi para pembaca semuanya.

Sub auto()


 Dim Con As New ADODB.Connection
  Dim Rst As New ADODB.Recordset
  Dim s As String
    

 'mengatur dan membuka koneksi
   Con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\SPK.mdb;"
  '    Con.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=STOKIS;Data Source=OKA-881F6BA00CA"
    
    
    'mengambil 4 karakter dari kanan (yg merupakan nomer) dari field ID, kemudian dicari nilai yg paling besar (max)
    'kemudian hasilnya d tampung d field buatan dgn nama Nomor
    Rst.Open "select max(right(Kd_penilaian,4)) as kd from TB_Penilaian", Con, adOpenKeyset
    
    ''jika berisi null atau tdk ditemukan
    If IsNull(Rst!kd) Then
       Text1.Text = "0001" 'member nilai awal
    Else
     Text1.Text = "ID" & Format(Rst!kd + 1, "0000")
    End If
    
    Con.Close

End Sub

yang kemudian fungsi diatas bisa dipanggil pada button baru dengan cara

Call auto

screenshoot nya :