Đang chuẩn bị liên kết để tải về tài liệu:
Kế toán doanh nghiệp với Visual Basic part 7

Tham khảo tài liệu 'kế toán doanh nghiệp với visual basic part 7', công nghệ thông tin, kỹ thuật lập trình phục vụ nhu cầu học tập, nghiên cứu và làm việc hiệu quả | 296 Kế toán doanh nghiệp với Visual Basic Adotkdoi.Recordsource select from t_dmtk order by mstk Adotkdoi. Refresh MSNT.SetFocus Else Adotkdoi.Recordsource select from t dmtk order by mstk Adotkdoi.Refresh Formcha F_HDNHAP frmCHONTK.Show 1 MSNT.SetFocus End If End If End Select End Sub Private Sub tkco_LostFocus tkco.BackColor HFFFFFF End Sub Các thủ tục biến cố của Datacombo chọn tài khoản cỏ Private Sub tkno_Change Dim rst As Recordset Dim Mydb As Database Dim strsql As String If tkno.Text Then Set Mydb Open DatabasefApp.Path ketoan.MDB strsql select from T_dmtk where mstk strsql strsql tkno.Text . Set rst Mydb.OpenRecordset strsql If rst.RecordCount 0 Then no.Caption rst.Fields diengiai End If Chưditg 4 Phâ.u hệ tí árt hàng hóa 29 rst.Close Mydb.Close End If End Sub Private Sub TKNO_GotFocus tkno.BackColor HC0E0FF End Sub Private Sub tkno_KeyPress KeyAscii As Integer Dim rs As New A DO DB Record set Dim Str Select Case KeyAscii Case 1 3 Jf xthem Or xsua Then Adodmtk. Rec ord Source select mstk from t_dmtk WHERE mstk Trim tkno . Adodmtk.Refresh If Adodmtk.Recordset.EOFO False Then Adodmtk.Recordsource select from tdmtk order by mstk Adodmtk. Refresh tkco. Set Focus Else Adodmtk.Recordsource select from tjdmtk order by mstk Adodmtk.Refresh Formcha F_HDNHAP frmCHONTK.Show 1 I kco Set Focus End If End If End Select 298 Kế toán doanh nghiệp với Visual Basic End Sub Private Sub tkno_LostFocus tkno.BackColor HFFFFFF End Sub Các thủ tục biến cổ của Text box nhập Tỷ giá Private Sub TYGIAGotFocusO TYGIA.BackColor HC0E0FF End Sub Private Sub TYGiAKeyDown KeyCode As Integer Shift As Integer If KeyCode 38 Then msnv.SetFocus End If End Sub Private Sub TYGIAKeyPressfKeyAscii As Integer Select Case KeyAscii Case 13 dathue.SetFocus End Select End Sub Private Sub TYGIALostFocusO TYGiA.BackColor HFFFFFF End Sub Các thủ tục biến cố cua Datacombo chọn mã số hĩnh thức thanh toán Private Sub m httt_change Dim rst As Recordset Dim Mydb As Database Dim strsqi As String If mshttt.Text .