wellngoc > 16-12-13, 01:58 PM
(16-12-13, 09:44 AM)Xuân Thanh Đã viết:THANKS BAN CHAY DUOC ROI...GIO MINH LAM TIEP DAYMã:Private Sub cmdsearch_Click()
Dim DB As Database
Dim myset As Recordset
Set DB = CurrentDb()
Set myset = DB.OpenRecordset("Select * From CONGVAN Where Tau = '" & Me.txttau & "'")
If myset!NgayHL <= Me.txtngay And myset!NgayHHHL >= Me.txtngay Then
MsgBox " Tau " & Me.txttau & " co noi 1 toa " & myset!NCToa & " tu ngay " & myset!NgayHL & " den ngay " & myset!NgayHHL & " theo cong van so " & myset!SoCV
End If
End Sub
1/ Trên form có 2 textbox : txtTau để nhập mã tàu (ví dụ SE5, SE2...) và txtNgay để ghi ngày xem xét
2/ Sửa
thànhMã:Set myset = DB.OpenRecordset("Select * From CONGVAN Where Tau = '" & Me.txttau & "'")
Mã:Set myset = DB.OpenRecordset("Select * From CONGVAN Where MTau = '" & Me.txttau & "'")
Lưu ý khi đưa vào câu truy vấn phải đúng tên trường của table
Thân mến