Fungsi AutoFill Pada VB 6.0


AutoFillPernahkah anda mengalami kesulitan untuk mengisi kode dengan kombinasi antara huruf dan angka?. Biasanya seorang programmer akan menggunakan combo box atau fungsi searching untuk melakukannya. Namun disini saya akan memberikan sebuah fungsi autofill agar saat seorang user menginputkan kode akhirnya saja maka kode yang utuh akan terisi secara otomatis.

Misalnya anda memliki kode barang dengan format PM-00000001. Maka dengan mengetikkan angka 1 saja maka seluruh kode barang akan muncul. Fungsi tersebut dapat anda letakkan pada modul atau pada form terkait. Sebagai contoh anda bisa copy kode berikut pada modul.

Private Function noGenerate(Optional op As String) As String
  Dim OP_TEXT() As String
  Dim fg As String
  OP_TEXT = Split(op, "-")
  Select Case Len(OP_TEXT(UBound(OP_TEXT)))
  Case Is = 1: fg = "PM" & "-0000000" & OP_TEXT(UBound(OP_TEXT))
  Case Is = 2: fg = "PM-" & "-000000" & OP_TEXT(UBound(OP_TEXT))
  Case Is = 3: fg = "PM-" & "-00000" & OP_TEXT(UBound(OP_TEXT))
  Case Is = 4: fg = "PM-" & "-0000" & OP_TEXT(UBound(OP_TEXT))
  Case Is = 5: fg = "PM-" & "-000" & OP_TEXT(UBound(OP_TEXT))
  Case Is = 6: fg = "PM-" & "-00" & OP_TEXT(UBound(OP_TEXT))
  Case Is = 7: fg = "PM-" & "-0" & OP_TEXT(UBound(OP_TEXT))
  Case Else: fg = "PM-" & "-" & OP_TEXT(UBound(OP_TEXT))
End Select
  noGenerate = fg
End Function

Private Sub Text1_KeyPress(KeyAscii As Integer)
  If KeyAscii = 13 Then
  Me.Text1.Text = noGenerate(Me.Text1.Text)
  End If
End Sub

Semoga bisa membantu bermanfaat ya…

One response to “Fungsi AutoFill Pada VB 6.0

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s