Rumus Vb

  • Uploaded by: Nur Suhadi
  • 0
  • 0
  • May 2020
  • PDF

This document was uploaded by user and they confirmed that they have the permission to share it. If you are author or own the copyright of this book, please report to us by using this DMCA report form. Report DMCA


Overview

Download & View Rumus Vb as PDF for free.

More details

  • Words: 483
  • Pages: 1
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

Related Documents

Rumus Vb
May 2020 8
Rumus-rumus
November 2019 46
Rumus-rumus Segitiga
May 2020 37
Vb
November 2019 60
Vb
November 2019 53
Vb
November 2019 51

More Documents from ""