VB6: KEYPAD - Backspace Function

Read More

Date format: How to store Month format

Dim amaun As Double
Dim Noic

For i = 4 To 16


amaun = 0
amaun = Dat_Excel.Recordset(i)


If amaun > 0 Then
Dat_potongan.Recordset.AddNew
Dat_potongan.Recordset("id_member") = Me.Dat_Excel.Recordset(1)
Dat_potongan.Recordset("noic") = Me.Dat_Excel.Recordset(2)
Dat_potongan.Recordset("ddate") = Txt_Date.Text
Dat_potongan.Recordset("company") = Me.Dat_Excel.Recordset(3)
Dat_potongan.Recordset("deduction") = i - 3
Dat_potongan.Recordset("amount") = Me.Dat_Excel.Recordset(i)
Dat_potongan.Recordset("Bulan") = Format$(Txt_Date, "mm")
Dat_potongan.Recordset("Jenis_sek") = Combo_Sheet.Text
Dat_potongan.Recordset.Update
End If


Next i


M345:
Dat_Excel.Recordset.MoveNext

DoEvents
Loop

M123:
Batal:


End Sub

Read More

Import Data from UBS to SQL Account ?

• Open SQL Account  

• Go to the File --> Import --> UBS Account...

•  Browse the database location from UBS - (C:\UBSACC90\DATA) --> Connect --> Execute

Read More