Slide1

Private Sub Cmdbatal_Click()
Txtnpm.SetFocus
Txtnpm.Text = “”
Txtnm.Text = “”
Txtal.Text = “”
Txtjur.Text = “”
End Sub

Private Sub Command1_Click()
Txtnpm.SetFocus
Txtnpm.Text = “”
Txtnm.Text = “”
Txtal.Text = “”
Txtjur.Text = “”
End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Txtal_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txtjur.SetFocus
End If
End Sub

Private Sub Txtnm_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txtal.SetFocus
End If
End Sub

Private Sub Txtnpm_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txtnm.SetFocus
End If
End Sub

Iklan