Selamat Datang Di Berbagi Ilmu Komputer. Mudahan Anda Bisa Menikmati Fitur-Fitur yang Tersedia disini dan Kami Menerima Kritik Anda Karna Kritik Anda Sangat bermaanfaat Bagi saya untuk jauh lebih Baik Dalam Situs Ini . Terima kasih

Tips And Trik Visual Basic 6.0


Kumpulan Source Code tuk Validasi Program dengan menggunakan Visual Basic 6.o, Jika anda tertatik dengan Tips dan Trik Visual Basic ini Silahkan Baca di…
–> Hanya Angka yang bisa di Input dalam TextBoxt
Private Sub txtNomor_KeyPress(KeyAscii As Integer)
If Not (KeyAscii >= Asc(“0″) & Chr(13) _
And KeyAscii <= Asc(“9″) & Chr(13) _ Or KeyAscii = vbKeyBack _ Or KeyAscii = vbKeyDelete _ Or KeyAscii = vbKeySpace) Then Beep KeyAscii = 0 End If End Sub –> Hanya Huruf
Private Sub txtNama_KeyPress(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 Beep KeyAscii = 0 End If End Sub –> membersihkan Seluruh Control TextBox dan Combo Box
Sub Clear()
For Each Control In Me.Controls
If TypeOf Control Is TextBox Then
Control.Text = “”
End If
If TypeOf Control Is ComboBox Then
Control.Text = “”
End If
Next Control
End Sub
NB: jika ada tombol yang lain tinggal di tambah kondisi IFnya aja, dan tuk menonaktifkan seluruh tombol tinggal ganti “Control.Text=Enabled” aja
–> Get Auto Number
Private Sub Auto()
Dim Urutan As String * 10
Dim Tgl As String
Dim Hitung
Set TMasuk = New ADODB.Recordset
TMasuk.Open “Select * from Masuk”, Persediaan, adOpenDynamic, adLockPessimistic
‘TMasuk.MoveFirst
Tgl = Format(Now, “yy/mm/dd”)
With TMasuk
If .RecordCount = 0 Then
Urutan = Right(Tgl, 2) + Mid(Tgl, 4, 2) + Left(Tgl, 2) + “0001″
Else
.MoveLast
If Left(![No Masuk], 6) <> Right(Tgl, 2) + Mid(Tgl, 4, 2) + Left(Tgl, 2) Then
Urutan = Right(Tgl, 2) + Mid(Tgl, 4, 2) + Left(Tgl, 2) + “0001″
Else
Hitung = (![No Masuk]) + 1
Urutan = (Right(Tgl, 2) + Mid(Tgl, 4, 2) + Left(Tgl, 2)) + Right(“0000″ & Hitung, 4)
End If
End If
txtNomor = Urutan
End With
End Sub
–> Mengambil record ke dalam COmboBox
Sub DaftarPelanggan()
Me.MousePointer = 11
Pesan = “Select * from Pelanggan Order By kodePlg”
Set TPelanggan = New ADODB.Recordset
TPelanggan.Open Pesan, Persediaan, adOpenStatic
cmbPlg.Clear
If Not TPelanggan.EOF Then
TPelanggan.MoveFirst
While Not TPelanggan.EOF
cmbPlg.AddItem TPelanggan!KodePlg
TPelanggan.MoveNext
Wend
End If
TPelanggan.Close
Set TPelanggan = Nothing
Me.MousePointer = 1
End Sub
– Laporan dengan Crystall Report
Sub CetakLap()
With CrtLaporan
.Reset
.DataFiles(0) = App.Path & “\Penduduk.mdb”
.ReportFileName = App.Path & “\Lap Lahir.rpt”
.WindowMinButton = False
.WindowShowCancelBtn = True
.WindowShowCloseBtn = True
.WindowShowPrintBtn = True
.WindowShowPrintSetupBtn = True
.WindowState = crptMaximized
.Action = 1
End With
end sub




*Notice*
-Selamat Mencoba
-jangan lupa koment Kalau Anda Berhasil maupun gagal.

Artikel Terkait

1 komentar:

Blogger mengatakan...

Did you know that you can earn cash by locking special sections of your blog or website?
All you need to do is join AdWorkMedia and add their content locking widget.

Posting Komentar

*Berikan Pendapat Anda !!!!!
-ada Sebuah pertanyaan yang mengganjal dalam pikiran anda??? Atau Juga ada Artikel Yg Kurang Jelas ....Beriakan Komentar Anda ....Dengan Komentar Anda Saya Bisa Belajar APa Aja Yang Salah Dalam Artikel Diatas,.....

*Caution!!!

-Saya MemBeri Yang terbaik Untuk Anda Semua

*Harap !!!
-Harap Dibaca Lengkap Artikel Diatas
-dan Baca Pula *NOTICE*

*Terima Kasih Telah Membaca Artikel Saya !!!!!