Filter Crystal Report melalui Visual Basic (VB) 6.0

Ketika membuat laporan melalui Crystal Report maka secara normal akan muncul 2 object
yaitu :
1. Report
2. Form

Bukalah Form tersebut, disitu kita akan lihat bahwa sebenarnya pada Form yang tercipta telah tertempel komponen CRViewer seperti yang tampak pada gambar berikut ini :

Berikutnya masuklah ke dalam tampilan code, anda cari event Form_Load(), disitu akan anda jumpai code yang secara otomatis tercipta ketika membuat Crystal Reprort tadi.

Nah sisipkan perintah Filter di tengah baris code tersebut.
Berikut adalah contoh perintah Filter-nya :

Private Sub Form_Load()
Screen.MousePointer = vbHourglass
CRViewer1.ReportSource = Report
Report.RecordSelectionFormula = "{DEPercobaan_RepHardware.kdhard}='OPR-01'"
CRViewer1.ViewReport
Screen.MousePointer = vbDefault
End Sub

Selamat mencoba ...

Cetak Laporan VB ke Word

Dim MyWord As New Word.Application
MyWord.Documents.Add

MyWord.ActiveDocument.Tables.Add Range:=MyWord.Selection.Range, NumRows:=1, NumColumns:= _
RsGrid.Fields.Count, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
wdAutoFitFixed

For i = 0 To RsGrid.Fields.Count - 1
MyWord.Selection.TypeText Text:=RsGrid.Fields(i).Name
MyWord.Selection.MoveRight Unit:=wdCell
Next i
RsGrid.MoveFirst
While Not RsGrid.EOF
For i = 0 To RsGrid.Fields.Count - 1
MyWord.Selection.TypeText Text:=RsGrid.Fields(i)
MyWord.Selection.MoveRight Unit:=wdCell
Next i
RsGrid.MoveNext
Wend
Me.CommonDialog1.DialogTitle = "Penyimpanan Laporan Word"
Me.CommonDialog1.Filter = "File Word|*.docx"
Me.CommonDialog1.ShowSave
ActiveDocument.SaveAs Me.CommonDialog1.FileName
ActiveDocument.Close
MyWord.Quit
Set MyWord = Nothing

Validasi Inputan Textbox Khusus Angka

Pernahkah anda dipusingkan dengan sebuah textbox yang berfungsi untuk menginputkan data gaji ???

Nah ada kan ???

Inputan pada textbox tersebut yang diijinkan hanyalah angka, tombol delete, tombol backspace dan tombol enter. Untuk tombol delete dan tombol enter sih secara otomatis pasti berfungsi, masalahnya tinggal 2 hal, yaitu (1) Bagaimana supaya hanya angka saja yang bisa diinputkan, (2) Bagaimana supaya tombol backspace tetap berfungsi sebagaimana mestinya ???

Oke ini pembahasannya ...

Contoh kita memiliki sebuah textbox dengan nama "txtgaji" yang kita gunakan untuk menginputkan data gaji. Maka codingnya adalah seperti di bawah ini :

Private Sub txtgaji_KeyPress(KeyAscii As Integer)
If IsNumeric(Chr(KeyAscii)) = False And KeyAscii <> vbKeyBack Then
KeyAscii = 0
End If
End Sub

Ingat !!! coding itu diketik pada event KeyPress miliknya textbox yang bernama "txtgaji"

Menghilangkan Format Ribuan di Visual Basic

Apakah anda pernah melakukan peyimpanan data gaji yang ada format ribuannya ???

Jika anda pernah melakukannya pasti hasilnya "error", nah kenapa bisa begitu ???

Akar permasalahannya adalah anda menciptakan tempat penyimpanan untuk gaji dengan tipe angka (sering disebut dengan long integer), sedangkan nilai gaji yang akan anda simpan ada format ribuannya (String/Teks), sehingga terjadi tipe yang tidak sama.
Padahal pada sebuah tampilan program sangatlah penting supaya gaji itu tampil dengan format ribuan karena digit dari nominal gaji sangat banyak (paling tidak 5 digit).

Jadi solusinya adalah :
Biarkanlah pada tampilan program gaji itu diberi format ribuan, tapi kita harus membuat sebuah Function untuk menghilangkan tanda ribuan yang ada (koma/titik).

Berikut ini adalah codingnya
------------
Function AmbilAngka(DataAsli As String) As Long
Hasil = ""
For i = 1 To Len(DataAsli)
If IsNumeric(Mid(DataAsli, i, 1)) = True Then
Hasil = Hasil & Mid(DataAsli, i, 1)
End If
Next i
AmbilAngka = Hasil
End Function
------------
Usahakan coding tersebut diletakkan di module sehingga bisa digunakan oleh semua Form yang ada pada project anda.

Contoh penggunaan Function tersebut adalah :
Misalkan anda memiliki sebuah textbox yang bernama "txtgaji" pada sebuah Form. Textbox tersebut berfungsi untuk menampilkan gaji dengan format ribuan, bahkan ada simbol mata uangnya juga (Rp.). Kemudian anda menciptakan textbox baru dengan nama "txtcopy" yang berfungsi untuk menampilkan data yang ada di "txtgaji" tetapi dengan menghilangkan semua karakter selain angka (tanda ribuan maupun simbol mata uang).

Maka codingnya adalah : me.txtcopy.text = AmbilAngka(me.txtgaji.text)

Tutorial Visual Basic Part 4

Masih ingat dengan Tutorial VB Part 1,2, dan 3 ?
Sekarang hadir Tutorial VB Part 4, silahkan di DOWNLOAD selangkapnya (format pdf) GRATIS LHO !!!

Bab IV Fungsi Bantu pada Visual Basic dan Visual Basic Aplication

4.1. Visual Basic Application

a. Deklarasi Konstanta

b. Struktur Perulangan

c. Struktur Kendali Nested

4.2. Fungsi Bantu pada Visual Basic

a. Fungsi Bantu Konversi

b. Fungsi Bantu Waktu

4.3. Module Pada Visual Basic

a. Deklarasi Variabel Pada Module

b. Deklarasi Fungsi dan Sub pada module

c. Procedure

d. Function Procedure

4.4. Mencetak Isi Form ke Printer

a. Memahami Objek App

b. Mendapatkan Path dimana aplikasi berada

c. Mendapatkan nama file Executable

d. Memeriksa apakah aplikasi telah dijalankan

e. Tidak menampilkan aplikasi pada task list ketika sedang berjalan

f. Memahami Objek Screen

DOWNLOAD Selangkapnya (format pdf)
Semoga bermanfaat buat anda semua .......................................

Tutorial Visual Basic Part 3

Masih ingatkah anda dengan Tutorial Visual Basic Part 1 dan 2 yang beberapa waktu lalu saya posting, nah sekarang saya berikan Tutorial yang Part 3.

DOWNLOAD aja sekarang (format PDF).

Bab III Kontrol Standard

3.1. Jenis Kontrol Standar

a. Label

b. Textbox

c. Option

d. Check

e. Frame

f. CommandButton

g. ListBox

h. Combo Box

i. Image

j. PictureBox

k. HScrollBar dan VScrollBar

l. Line dan Shape

m. Timer

n. DriveListBox

o. DirListBox

p. FileListBox

DOWNLOAD format PDF sekarang

Tutorial Visual Basic Part 2

Masih ingatkah anda dengan Tutorial Visual Basic Part 1 yang seminggu lalu saya posting, nah sekarang saya berikan Tutorial yang Part 2.

DOWNLOAD aja sekarang (format PDF).

Bab II Memahami Objek pada Visual Basic

2.1. Apa yang dimaksud dengan Objek

2.2. Dari mana datangnya Objek

2.3. Bekerja dengan objek

a. Mengatur Nilai properti

b. Mengambil nilai dari Properti

c. Menggunakan Metode dalam Kode

d. Beberapa properti yang umum

e. Beberapa Metode-metode umum

f. Beberapa Event yang umum

2.4. Objek Browser

2.5. Mengenal Form

a. Struktur kode pada Form

b. Beberapa Event, Metoda, dan Perintah pada Form

c. Urutan Event pada Form

2.6. Bahasa Visual Basic Aplication

a. Konvensi penamaan dalam Visual Basic

b. Mengenal Struktur Kendali

DOWNLOAD format PDF sekarang

Tutorial Visual Basic Part 1

Bagi anda para pemula yang ingin belajar Visual Basic (VB) mungkin Tutorial ini bisa agak membantu anda mengenal VB, tapi saya pecah jadi 4 Bab, sekarang yang Bab I dulu, minggu depan akan saya posting yang Bab II, harap bersabar ya.

Silahkan di DOWNLOAD sesuka hati, GRATIS KOK !!!

BAB I PENGENALAN VISUAL BASIC

1.1. IDE Visual Basic

a. Menjalankan IDE

b. Memilih jenis Project

c. Jendela IDE

1.2. Toolbox

1.3. Mengatur Lingkungan Kerja Visual Basic

a. Mengatur Editor

b. Mengatur Format Editor

c. Mengatur hal-hal yang General

d. Mengatur Docking Jendela

e. Mengatur Environment

f. Mengatur SDI Development Environment atau MDI

1.4. Bahasa Visual Basic Aplication

a. Type Variabel

b. Operator Pada Visual Basic dan urutan operasinya

c. Operator Like

d. Deklarasi Variabel

.: Semoga Bermanfaat bagi anda semua :.

DOWNLOAD Tutorial Sekarang

Export Data Access ke Excel via Visual Basic

Private Sub Command1_Click()
Dim app As Application
Dim wbk As Workbook
Dim sheet As Worksheet
Set app = Excel.Application
Set wbk = app.Workbooks.Add
Set sheet = wbk.Worksheets(1)
sheet.Cells(5, 5) = "Kode"
sheet.Cells(5, 6) = "Nama Hardware"
sheet.Range("E5:F5").Font.Bold = True
sheet.Range("E5:F5").Borders.LineStyle = xlContinuous
ActiveWindow.DisplayGridlines = False
With RstHardwareExcel
.MoveFirst
n = 5
For i = 1 To .RecordCount
sheet.Cells(n + i, 5) = .Fields(0)
sheet.Cells(n + i, 6) = .Fields(1)
sheet.Range("E" & n+i & ":F" & n+i).Borders.LineStyle=xlContinuous
.MoveNext
Next i
End With
sheet.Range("E5").EntireColumn.AutoFit
sheet.Range("F5").EntireColumn.AutoFit
Me.CommonDialog1.DialogTitle = "File Name"
Me.CommonDialog1.Filter = "File Excel|*.xls"
Me.CommonDialog1.ShowSave
wbk.SaveAs Me.CommonDialog1.FileName
wbk.Close
app.Quit
Set sheet = Nothing
Set wbk = Nothing
Set app = Nothing
End Sub

Private Sub Form_Load()
BukaKoneksi
BukaHardwareExcel
End Sub

Private Sub Form_Unload(Cancel As Integer)
TutupHardwareExcel
TutupKoneksi
End Sub

*) Untuk koneksi Database Access saya menggunakan Modul, berikut dibawah ini adalah isi dari Modul yang saya buat di VB

Public Koneksi As ADODB.Connection
Public RstHardwareExcel As ADODB.Recordset
Sub BukaKoneksi()
Set Koneksi = CreateObject("ADODB.Connection")
Koneksi.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & app.Path & "\data.mdb"
End Sub

Sub BukaHardwareExcel()
Set RstHardwareExcel = CreateObject("ADODB.RecordSet")
RstHardwareExcel.Open "Hardware", Koneksi, adOpenStatic,adLockOptimistic
End Sub

Sub TutupKoneksi()
Koneksi.Close
Set Koneksi = Nothing
End Sub

Dibawah ini merupakan Contoh Form ketika saya jalankan

*) Setelah Form muncul berikutnya
diclick Command1 maka akan muncul tampilan CommondDialog dalam bentuk ShowSave seperti dibawah ini

Ketika muncul Commond Dialog dengan bentuk ShowSave maka berikutnya silahkan diberi nama filenya, maka akan muncul file Excel dengan nama tersebut.

Nah tinggal dicek aja

Selamat Mencoba

Download sekarang