RUMUS SANGAT-SEDERHANA (RSS) Semua Rumus dibawah ini untuk control Data untuk yang menggunakan Adodc silakan sesuaikan sendiri Update Bunga Perbulan, bunga 12 % per tahun Sub Bunga () Dim periode, periode1, periode2, periodetahun As Integer Dim bunga As Currency If Len(Text1.Text) < 5 Then Exit Sub Data1.Recordset.Index = "Noidx" Data1.Recordset.Seek "=", Text1.Text If Data1.Recordset.NoMatch Then Text2.SetFocus Else If Year(Date) = Year(Data1.Recordset.Fields(1)) Then If Month(Date) = Month(Data1.Recordset.Fields(1)) Then bunga = 0 Else periode = Month(Date) - Month(Data1.Recordset.Fields(1)) bunga = (periode / 12) * (12 / 100) * Val(Data1.Recordset.Fields(2)) End If Else periode1 = 12 - Month(Data1.Recordset.Fields(1)) + 1 periode2 = Month(Date) periodetahun = Year(Date) - Year(Data1.Recordset.Fields(1)) - 1 periode = periode1 + periode2 + (12 * periodetahun) bunga = (periode / 12) * (12 / 100) * Val(Data1.Recordset.Fields(2)) End If Text2.Text = Val(Data1.Recordset.Fields(2)) + bunga End If End Sub
Membuat Nomor Urut Otomatis Untuk 5 Karakter Nomor (semua berupa Angka), dimulai dengan “00001” Sub NoUrut() On error resume next Data1.Recordset.MoveLast Text1.Text = Data1.Recordset(0) If Val(Right(Text1.Text, 5)) < 9 Then no = "0000" & (Val(Right(Text1.Text, 1)) + 1) ElseIf Val(Right(Text1.Text, 5)) < 99 Then no = "000" & (Val(Right(Text1.Text, 2)) + 1) ElseIf Val(Right(Text1.Text, 5)) < 999 Then no = "00" & (Val(Right(Text1.Text, 3)) + 1) ElseIf Val(Right(Text1.Text, 5)) < 9999 Then no = "0" & (Val(Right(Text1.Text, 4)) + 1) ElseIf Val(Right(Text1.Text, 5)) < 99999 Then no = "" & (Val(Right(Text1.Text, 5)) + 1) End If Text1.Text = no End Sub
Untuk yang menggunakan karakter bukan angka, misalnya diawali dengan “FJ0001”silakan berimprovisasi sendiri, … alias saya belum tahu!!!!
MENGHAPUS SEMUA RECORD Sub HAPUSSEMUADATA () Do Until Data1.Recordset.EOF Data1.Recordset.Delete Data1.Recordset.MoveNext Loop End Sub
Eh … Jangan Keluar Sembarangan!!! 1. Beri Pesen Private Sub Form_Unload(Cancel As Integer) x = MsgBox("Anda Akan Keluar", vbYesNo, "Eit…") If x = vbYes Then End Else Cancel = 1 End If End Sub
2. Gak Pernah Kan Keluar Private Sub Form_Load() App.TaskVisible = False End Sub Private Sub Form_Unload(Cancel As Integer) Cancel = 1 End Sub
Pindah Kursor Dengan Enter Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text2.Setfocus KeyAscii = 0 End If End Sub
*)Dapat diaplikasikan untuk perintah lain dengan mengganti Text2.Setfocus dengan code yang anda inginkan
Koneksi Database Dengan Code Tidak Usah Mengoneksikan ulang database saat Pindah Ke Komputer Lain, caranya????? Sub Form1_Load() Data1.DatabaseName = App.Path & "\Database\xxxx.mdb" Data1.RecordsetType = 0 Data1.RecordSource = "Sementara" End Sub
*)Syarat File xxxx.mdb, berada dalam folder Database yang diletakkan = dengan lokasi project, alias folder Database dengan database project anda
BERBAGILAH…!!!, Karena Kita Nggak Pernah Tahu dari Mulut Siapa Do’a Akan diKabulkan
Sort Data Sub URUTDATA () Data2.RecordsetType = 1 Data2.RecordSource = "SELECT * FROM TGaji ORDER BY Anggota" Data2.Refresh DBGrid1.Refresh End Sub
*)Saat akan melakukan penyimpanan dengan data yang sama maka tiperecordset harus diubah lagi menjadi 0, sebagai berikut: Sub SIMPANDATA () Data2.RecordsetType = 0 Data2.RecordSource = "TGaji" Data2.Recordset.AddNew … Data2.Recordset.Update Data2.Refresh End Sub
By Moslem_Soft.com - BePe 13 Tembalang