I am trying to build a function so that when
certain keys are pressed the focus will shift
Ex.
If I have focus in Text1 and I want to move Text3 the I just press my hot key. If I am in three and I press my other hot key focus will go to Text2
Just need this for my three Textboxes
Here is the code
Private Sub Command1_Click()
Dim DepCost As Double, DepSalvalge As Double, DepLife As Double, i As Double
Dim Answer As String, nl As String
Dim Dan As Integer, m As Integer
Dim DepSln, DepDdb, DepSyd
nl = Chr$(13) + Chr$(10)
m = 1
Call KeyPress
Call ImputData(DepCost, DepSalvalge, DepLife)
DepSln = SLN(DepCost, DepSalvalge, DepLife)
DepSln = Format(DepSln, "Currency")
Answer = Answer & " " & DepSln & nl
For j = m To DepLife
DepDdb = DDB(DepCost, DepSalvalge, DepLife, j)
DepDdb = Format(DepDdb, "$#,###.##")
Answer = Answer & " " & DepDdb & nl
Next j
m = 1
For j = m To DepLife
DepSyd = SYD(DepCost, DepSalvalge, DepLife, j)
DepSyd = Format(DepSyd, "$#,###.##")
Answer = Answer & " " & DepSyd & nl
Next j
Text4 = Answer
End If
End Sub
Private Sub Form_Load()
Label1.Caption = "Cost = "
Label2.Caption = "salvage = "
Label3.Caption = "life = "
Label1.FontBold = True
Label2.FontBold = True
Label3.FontBold = True
Label1.Alignment = 2
Label2.Alignment = 2
Label3.Alignment = 2
End Sub
Private Sub ImputData(DepCost As Double, DepSalvalge As Double, DepLife As Double)
DepCost = Val(Text1.Text)
DepSalvalge = Val(Text2.Text)
DepLife = Val(Text3.Text)
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = vbKeyF2 Then
Text1.SetFocus
KeyAscii = 0
Else
KeyAscii = 0
End If
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = vbKeyF3 Then
Text2.SetFocus
Else
End If
End Sub
Now this code just accepts value from Text1, Text2 and Text3 then Calculates depreciation methods and prints them to text box.
Thanks
Coco
