QUOTE(dineeshd @ 18 Aug, 2008 - 02:52 AM)
Go to Project Menu-->Components, from the list select "Microsoft Windows Common Controls 6.0" and apply. New controls will be added to toolbox.
Thank you i finally got my calendar to work....
Now for another question:
in my userform, user will be able to enter a deposit amt and a withdrawal amt...
i need to be able to compute the balance.... also must be able to add previous balance to this amt...
how can i go abt doing so?
i know that i m supposed to take the value the user enters by doing a deposit.val-withdrawal.val=currentbal
this balance must be added to the previous balance to give the user the updatedbalance. how do i call the previous balance value from the excel sheet?
QUOTE(ALVINCHAAND @ 21 Aug, 2008 - 06:29 AM)
QUOTE(dineeshd @ 18 Aug, 2008 - 02:52 AM)
Go to Project Menu-->Components, from the list select "Microsoft Windows Common Controls 6.0" and apply. New controls will be added to toolbox.
Thank you i finally got my calendar to work....
Now for another question:
in my userform, user will be able to enter a deposit amt and a withdrawal amt...
i need to be able to compute the balance.... also must be able to add previous balance to this amt...
how can i go abt doing so?
i know that i m supposed to take the value the user enters by doing a deposit.val-withdrawal.val=currentbal
this balance must be added to the previous balance to give the user the updatedbalance. how do i call the previous balance value from the excel sheet?
CODE
Private Sub CMD_CANCEL_Click()
Unload Me
End Sub
Private Sub CMD_CALCULATE_Click()
'DEPOSITS -WITHDRAWAL = currentBalanceAmt then need to add this balane amt to the previous to get the most uptodate balance to display in the userform and in the excel spreadsheet db
End Sub
Private Sub DTPicker1_CallbackKeyDown(ByVal KeyCode As Integer, ByVal Shift As Integer, ByVal CallbackField As String, CallbackDate As Date)
End Sub
Private Sub ITEM_COMBO_Change()
ITEM_COMBO.DropDown
End Sub
Private Sub CMD_UPDATE_Click()
Dim iRow As Long
Dim WS As Worksheet
Set WS = Worksheets("CASH_FLOW08") 'CHANGE TO SHEET NAME THAT U WISH UR UPDATE TO APPEAR IN
'find first empty row in database
iRow = WS.Cells(Rows.Count, 1) _
.End(xlUp).Offset(1, 0).Row
'copy the entered data to the database
WS.Cells(iRow, 1).Value = Me.DTPicker1.Value
WS.Cells(iRow, 2).Value = Me.ITEM_COMBO.Value
WS.Cells(iRow, 3).Value = Me.REMARKS.Value
WS.Cells(iRow, 4).Value = Me.DEPOSITS.Value
WS.Cells(iRow, 5).Value = Me.WITHDRAWAL.Value
'clear the data after first set of data is entered in db so that user can enter next set
'Me.DTPicker1.Value
Me.ITEM_COMBO.Value = ""
Me.REMARKS.Value = ""
Me.DEPOSITS.Value = ""
Me.WITHDRAWAL.Value = ""
Me.DTPicker1.SetFocus
End Sub
| 