Scribd
Upload
9 views

Private Sub Timer1

This document contains code for several private sub procedures in Visual Basic for Applications (VBA) that appear to be manipulating data and performing calculations for an accounting application. The procedures include updating text fields by summing values, updating recordsets and enabling/disabling buttons, randomizing background colors, and looping through records to calculate balances by month for different accounts and updating the records.

Uploaded by

rizky
Copyright
© © All Rights Reserved
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
9 views

Private Sub Timer1

This document contains code for several private sub procedures in Visual Basic for Applications (VBA) that appear to be manipulating data and performing calculations for an accounting application. The procedures include updating text fields by summing values, updating recordsets and enabling/disabling buttons, randomizing background colors, and looping through records to calculate balances by month for different accounts and updating the records.

Uploaded by

rizky
Copyright
© © All Rights Reserved
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
You are on page 1/ 9

Private Sub GABER_Click()

TGABER.Text = Val(TGAPOK.Text) + Val(TTUNA.Text) +


Val(TTUNI.Text)
End Sub

Private Sub Timer1_Timer()

d = JL.Caption
JL.Caption = Mid(d, 2, Len(d) - 1) + Left(d, 1)
End Sub
Private Sub WR_Click()
MHS.BackColor = QBColor(Rnd() * 15)
End Sub

Private Sub GABER_Click()

TGABER.Text = Val(TGAPOK.Text) + Val(TTUNA.Text) + Val(TTUNI.Text)

End Sub
Private Sub kel_Click()

If MsgBox("MAU PULANG KANGEN DIA", vbQuestion + vbYesNo,


"Keluar") = vbYes Then
Unload Me
End If
End Sub
Private Sub SIM_Click()
Data1.Recordset.Update
TAM.Enabled = True
SIM.Enabled = False
End Sub

private Sub TAM_Click()

Data1.Recordset.AddNew
TAM.Enabled = False
SIM.Enabled = True
TNIP.SetFocus
End Sub
Private Sub PROSES_Click()
On Error GoTo Err_PROSES_Click

DoCmd.SetWarnings False
Dim dbs As Database
Dim rst As Recordset
Set dbs = CurrentDb()
Dim sqlx, SQLUPD, SQLSA, XCOA As String
Dim DEBET, KREDIT, xdebet, xkredit As Double

sqlx = "SELECT ACC_CODE,Sum(NIL_RUPIAH_DEBET) AS XDEBET,Sum(NIL_RUPIAH_KREDIT) AS XKREDIT FROM


BUKU_BESAR WHERE year(TGL_VOUCHER)='" & Me!TH & "' AND month(TGL_VOUCHER)='" & Me!BL.Column(0) & "' group by
ACC_CODE "
Set rst = dbs.OpenRecordset(sqlx)
rst.MoveFirst
While Not rst.EOF()
XCOA = rst("ACC_CODE")
DEBET = Nz(rst("XDEBET"), 0)
KREDIT = Nz(rst("XKREDIT"), 0)
If Me!BL.Column(0) = 1 Then
SQLUPD = "UPDATE SALDO_COA SET MDEBET_1 = '" & DEBET & "', MKREDIT_1 = '" & KREDIT & "' WHERE THN='" & Me!TH &
"' AND GLMST_COA='" & XCOA & "'"
ElseIf Me!BL.Column(0) = 2 Then
SQLUPD = "UPDATE SALDO_COA SET MDEBET_2 = '" & DEBET & "', MKREDIT_2 = '" & KREDIT & "' WHERE THN='" & Me!TH &
"' AND GLMST_COA='" & XCOA & "'"
ElseIf Me!BL.Column(0) = 3 Then
SQLUPD = "UPDATE SALDO_COA SET MDEBET_3 = '" & DEBET & "', MKREDIT_3 = '" & KREDIT & "' WHERE THN='" & Me!TH &
"' AND GLMST_COA='" & XCOA & "'"
ElseIf Me!BL.Column(0) = 4 Then
SQLUPD = "UPDATE SALDO_COA SET MDEBET_4 = '" & DEBET & "', MKREDIT_4 = '" & KREDIT & "' WHERE THN='" & Me!TH &
"' AND GLMST_COA='" & XCOA & "'"
ElseIf Me!BL.Column(0) = 5 Then
SQLUPD = "UPDATE SALDO_COA SET MDEBET_5 = '" & DEBET & "', MKREDIT_5 = '" & KREDIT & "' WHERE THN='" & Me!TH &
"' AND GLMST_COA='" & XCOA & "'"
ElseIf Me!BL.Column(0) = 6 Then
SQLUPD = "UPDATE SALDO_COA SET MDEBET_6 = '" & DEBET & "', MKREDIT_6 = '" & KREDIT & "' WHERE THN='" & Me!TH &
"' AND GLMST_COA='" & XCOA & "'"
ElseIf Me!BL.Column(0) = 7 Then
SQLUPD = "UPDATE SALDO_COA SET MDEBET_7 = '" & DEBET & "', MKREDIT_7 = '" & KREDIT & "' WHERE THN='" & Me!TH &
"' AND GLMST_COA='" & XCOA & "'"
ElseIf Me!BL.Column(0) = 8 Then
SQLUPD = "UPDATE SALDO_COA SET MDEBET_8 = '" & DEBET & "', MKREDIT_8 = '" & KREDIT & "' WHERE THN='" & Me!TH &
"' AND GLMST_COA='" & XCOA & "'"
ElseIf Me!BL.Column(0) = 9 Then
SQLUPD = "UPDATE SALDO_COA SET MDEBET_9 = '" & DEBET & "', MKREDIT_9 = '" & KREDIT & "' WHERE THN='" & Me!TH &
"' AND GLMST_COA='" & XCOA & "'"
ElseIf Me!BL.Column(0) = 10 Then
SQLUPD = "UPDATE SALDO_COA SET MDEBET_10 = '" & DEBET & "', MKREDIT_10 = '" & KREDIT & "' WHERE THN='" & Me!TH
& "' AND GLMST_COA='" & XCOA & "'"
ElseIf Me!BL.Column(0) = 11 Then
SQLUPD = "UPDATE SALDO_COA SET MDEBET_11 = '" & DEBET & "', MKREDIT_11 = '" & KREDIT & "' WHERE THN='" & Me!TH
& "' AND GLMST_COA='" & XCOA & "'"
ElseIf Me!BL.Column(0) = 12 Then
SQLUPD = "UPDATE SALDO_COA SET MDEBET_12 = '" & DEBET & "', MKREDIT_12 = '" & KREDIT & "' WHERE THN='" & Me!TH
& "' AND GLMST_COA='" & XCOA & "'"
End If

DoCmd.RunSQL (SQLUPD)
If Me!BL.Column(0) = 1 Then
SQLSA = "UPDATE SALDO_COA SET SAKHIR_1 =NZ(SALDO_AWAL,0)+NZ(MDEBET_1,0)-NZ(MKREDIT_1,0) WHERE THN='" &
Me!TH & "' AND GLMST_COA='" & XCOA & "'"
ElseIf Me!BL.Column(0) = 2 Then
SQLSA = "UPDATE SALDO_COA SET SAKHIR_2 =NZ(SAKHIR_1,0)+NZ(MDEBET_2,0)-NZ(MKREDIT_2,0) WHERE THN='" & Me!
TH & "' AND GLMST_COA='" & XCOA & "'"
ElseIf Me!BL.Column(0) = 3 Then
SQLSA = "UPDATE SALDO_COA SET SAKHIR_3 =NZ(SAKHIR_2,0)+NZ(MDEBET_3,0)-NZ(MKREDIT_3,0) WHERE THN='" & Me!
TH & "' AND GLMST_COA='" & XCOA & "'"
ElseIf Me!BL.Column(0) = 2 Then
SQLSA = "UPDATE SALDO_COA SET SAKHIR_4 =NZ(SAKHIR_3,0)+NZ(MDEBET_4,0)-NZ(MKREDIT_4,0) WHERE THN='" & Me!
TH & "' AND GLMST_COA='" & XCOA & "'"
ElseIf Me!BL.Column(0) = 2 Then
SQLSA = "UPDATE SALDO_COA SET SAKHIR_5 =NZ(SAKHIR_4,0)+NZ(MDEBET_5,0)-NZ(MKREDIT_5,0) WHERE THN='" & Me!
TH & "' AND GLMST_COA='" & XCOA & "'"
ElseIf Me!BL.Column(0) = 2 Then
SQLSA = "UPDATE SALDO_COA SET SAKHIR_6 =NZ(SAKHIR_5,0)+NZ(MDEBET_6,0)-NZ(MKREDIT_6,0) WHERE THN='" & Me!
TH & "' AND GLMST_COA='" & XCOA & "'"
ElseIf Me!BL.Column(0) = 2 Then
SQLSA = "UPDATE SALDO_COA SET SAKHIR_7 =NZ(SAKHIR_6,0)+NZ(MDEBET_7,0)-NZ(MKREDIT_7,0) WHERE THN='" & Me!
TH & "' AND GLMST_COA='" & XCOA & "'"
ElseIf Me!BL.Column(0) = 2 Then
SQLSA = "UPDATE SALDO_COA SET SAKHIR_8 =NZ(SAKHIR_7,0)+NZ(MDEBET_8,0)-NZ(MKREDIT_8,0) WHERE THN='" & Me!
TH & "' AND GLMST_COA='" & XCOA & "'"
ElseIf Me!BL.Column(0) = 2 Then
SQLSA = "UPDATE SALDO_COA SET SAKHIR_9 =NZ(SAKHIR_8,0)+NZ(MDEBET_9,0)-NZ(MKREDIT_9,0) WHERE THN='" & Me!
TH & "' AND GLMST_COA='" & XCOA & "'"
ElseIf Me!BL.Column(0) = 2 Then
SQLSA = "UPDATE SALDO_COA SET SAKHIR_10 =NZ(SAKHIR_9,0)+NZ(MDEBET_10,0)-NZ(MKREDIT_10,0) WHERE THN='" &
Me!TH & "' AND GLMST_COA='" & XCOA & "'"
ElseIf Me!BL.Column(0) = 2 Then
SQLSA = "UPDATE SALDO_COA SET SAKHIR_11 =NZ(SAKHIR_10,0)+NZ(MDEBET_11,0)-NZ(MKREDIT_11,0) WHERE THN='" &
Me!TH & "' AND GLMST_COA='" & XCOA & "'"
ElseIf Me!BL.Column(0) = 2 Then
SQLSA = "UPDATE SALDO_COA SET SAKHIR_12 =NZ(SAKHIR_11,0)+NZ(MDEBET_12`,0)-NZ(MKREDIT_12,0) WHERE THN='" &
Me!TH & "' AND GLMST_COA='" & XCOA & "'"
End If
DoCmd.RunSQL (SQLSA)
rst.MoveNext
Wend

MsgBox ("Data telah selesai proses")


DoCmd.SetWarnings True

Exit_PROSES_Click:
Exit Sub

Err_PROSES_Click:
MsgBox Err.Description
Resume Exit_PROSES_Click

End Sub

You might also like