Tùy chọn
Nhờ hướng dẫn giúp code nút search
- Nhờ hướng dẫn giúp code nút search
-
Nhờ hướng dẫn giúp code nút search
wellngoc > 11-12-13, 05:13 AM
chào các bạn nhờ các bạn giúp dùm mình hiện tại viết chương trình quản lý nối và cắt toa tàu từ công văn,mình vẫn còn trong vừa học và làm nên vẫn còn gà lắm nhờ các giúp đỡ thêm .
link file:http://share.vnn.vn/tai-file-20165055
với ý ban đầu mình thiết kế 1 table công văn :
![[Hình: tablecv.png]](https://lh6.googleusercontent.com/-Li5FNXEf47I/Uqd64LnKICI/AAAAAAAABiA/IdnD3f5T-aU/tablecv.png)
và 1 form nhập công văn :
![[Hình: cv.png]](https://lh5.googleusercontent.com/-OV2yGtsogDk/Uqd7v1cmd1I/AAAAAAAABiU/GqvwPzQq1BI/cv.png)
mình đã viết các nút lệnh thêm xóa rồi.
giờ mình muốn viết 1 nút search tên tàu và ngày đi sẽ cho ra câu thông báo
vi du : nhập tên tàu:se2 và ngày hiện tại cho ra kết quả là tàu se2 di sg-hn có nối 1 toa và còn hiệu lực trong 20 ngày và số cv là 1
trong nút search mình có viết thử như sau với ý định là tìm tên tàu trước nếu có thì thong báo tìm thấy :
Private Sub Command33_Click()
LoadDB
Dim str As String
str = InputBox ("nhap ten tau vidu:SE2")
If str = "" Then
Exit Sub
Else
rst.FindFirst "Tau = " & str & ""
MsgBox "TIM THAY "
If rst.NoMatch Then
MsgBox "KHONG TIM THAY "
End If
End If
nhưng bị lỗi
các bạn xem giúp mình và làm sao viết lệnh cho ra câu thong báo như vi du
có thể hướng dẫn mình cụ thể hoặc cho mình 1 đoạn code tham khảo
mình có kèm link tải file các xem giúp minh -
RE: Nhờ hướng dẫn giúp code nút search
Minh Tiên > 11-12-13, 09:41 AM
Bạn hãy sử dụng query sẽ năng động hơn nhiều.Dùng VBA cũng được nhưng bạn phải biết về VBA 1 tý.
1. Bạn tạo 1 query có nguồn từ table của bạn.
2. Trong query tại trường bạn muốn tìm (VD: Tau) ở dòng Criteria bạn gõ:
Like "*" & forms!Tenform!TentextboxMatau & "*" hoặc
Like forms!Tenform!TentextboxMatau (Phải gõ chính xã mã Tau).
Tại trường Ngaydi bạn gõ:
Like forms!Tenform!TentextboxNgaydi.
Lưu ý: Bạn phải có 2 textbox: TentextboxTim , TentextboxNgaydi trên form.
3. Tại thủ tục After_Update của TentextboxMattau, After_Update của TentextboxNgaydi (hoặc btnTim) bạn nếu bạn tạo nút lệnh tìm, bạn gõ: Docmd.Refresh.
4. Kết quả: Nếu bạn gõ mã Tau vào TentextboxTim, ngày đi vào TentextboxNgaydi và Enter thì trên Form sẽ chỉ hiển thị các Mã Tau bạn muốn tìm.
Thân chào ! -
RE: Nhờ hướng dẫn giúp code nút search
dinh_trong_hoa > 11-12-13, 04:52 PM
Chào bạn,
Mình chưa hiểu ý của bạn, bạn post file lên đi sẽ dễ trao đổi hơn -
RE: Nhờ hướng dẫn giúp code nút search
Minh Tiên > 11-12-13, 05:55 PM
File của bạn mình ko mở được (Bị lỗi), bạn tạm nghiên cứu file mình gửi và vận dụng vào ứng dụng của bạn nhé !
Demo_Search
Chúc bạn thành công ! -
RE: Nhờ hướng dẫn giúp code nút search
wellngoc > 12-12-13, 09:19 PM
ok cam on bantmtien261 .co le file cua minh la 2010 de minh chuyen lai 2007 .
ah ban dinh_trong_hoa .chang la vay : nhu minh trinh bay nhu tren co1 table CV nha .minh muon
lam 1 nut tim kiem ten tau vidu :SE2 ,khi minh go vao o textbox :SE2 va bam nut seach thi se nhan duoc cau thong bao : tau se2 co noi 1 toa tu ngay 12/12/13 den ngay 13/12/13 theo CV so 1.
co ban nao co cach nao khong huong dan giup minh voi .
xin loi cac ban minh go tren dien thoai nen khong co dau nha . -
RE: Nhờ hướng dẫn giúp code nút search
Xuân Thanh > 12-12-13, 10:58 PM
Mã:Private Sub cmdSearch_Click()
Dim rs As Recordset
Set rs = CurrentDb.OpenRecordset("Select * From tblCongVan Where MaTau = '" & Me.txtMaTau & "'")
If rs!NgayHL <= Me.txtNgay And rs!NgayHetHL >= Me.txtNgay Then
MsgBox " Tau " & Me.txtMaTau & " co noi 1 toa " & rs!NCToa & " tư ngay " & rs!NgayHL & " den ngay " & rs!NgayHetHL & " theo cong van so " & rs!SoCV
End If
End Sub
Bạn tham khảo cái này
Thân mến -
RE: Nhờ hướng dẫn giúp code nút search
wellngoc > 15-12-13, 04:20 AM
(12-12-13, 10:58 PM)Xuân Thanh Đã viết:
Mã:Private Sub cmdSearch_Click()
Dim rs As Recordset
Set rs = CurrentDb.OpenRecordset("Select * From tblCongVan Where MaTau = '" & Me.txtMaTau & "'")
If rs!NgayHL <= Me.txtNgay And rs!NgayHetHL >= Me.txtNgay Then
MsgBox " Tau " & Me.txtMaTau & " co noi 1 toa " & rs!NCToa & " tư ngay " & rs!NgayHL & " den ngay " & rs!NgayHetHL & " theo cong van so " & rs!SoCV
End If
End Sub
Bạn tham khảo cái này
Thân mến
Bác ơi em dựa vào đoạn code bác cho thêm vào sao bi báo lỗi ở dòng :
Set rs = CurrentDb.OpenRecordset("Select * From tblCongVan Where MaTau = '" & Me.txtMaTau & "'")
mà bắt lỗi thì rs=nothing là chưa khai báo tham số hay sao vậy :
mình viết như vây bác xem có đúng không:http://share.vnn.vn/tai-file-20165857 minh có kèm theo file ,mình sài 2010
Option Compare Database
Dim db As Database
Dim rst As Recordset
Sub LoadDB()
Set db = CurrentDb()
Set rst = Me.Recordset
End Sub
Private Sub cmdsearch_Click()
Dim rtst As Recordset
Set rts = CurrentDb.OpenRecordset("Select * From CONGVAN Where Tau = '" & Me.txttau & "'")
If rts!NgayHieuLuc <= Me.txtngay And rts!NgayHetHieuLuc >= Me.txtngay Then
MsgBox " Tau " & Me.txttau & " co noi 1 toa " & rts!NCToa & " tu ngay " & rts!NgayHieuLuc & " den ngay " & rts!NgayHetHieuLuc & " theo cong van so " & rts!SoCV
End If
End Sub
(11-12-13, 05:55 PM)tmtien261 Đã viết: File của bạn mình ko mở được (Bị lỗi), bạn tạm nghiên cứu file mình gửi và vận dụng vào ứng dụng của bạn nhé !
Demo_Search
Chúc bạn thành công !
ban oi links không tải được .thanks -
RE: Nhờ hướng dẫn giúp code nút search
quan_pc > 15-12-13, 11:30 AM
khai báo là rst
Dùng ở dưới là rts
=> hoa cả mắt
file demo của tmtien261 http://haiquan.id1945.com/up/file/_339_Search.rar -
RE: Nhờ hướng dẫn giúp code nút search
wellngoc > 16-12-13, 04:22 AM
(15-12-13, 11:30 AM)quan_pc Đã viết: khai báo là rst
Dùng ở dưới là rts
=> hoa cả mắt
file demo của tmtien261 http://haiquan.id1945.com/up/file/_339_Search.rar
XIN LỖI NHA TẠI HÔM QUA CẢM CÚNG NÊN BI LỘN CODE:
mình có sửa lại rồi các xem giúp mình coi bi lỗi gì mà không thực hiên được :
Trích dẫn:Private Sub cmdsearch_Click()
bi báo lỗi 3061
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
Mình có kèm theo file :http://share.vnn.vn/tai-file-20166084
các bạn coi giúp mình với
(12-12-13, 10:58 PM)Xuân Thanh Đã viết:
bac xuanthanh xem giup mình voi sao mình làm theo đoạn code ban cho bi lỗi 3061 là sao nhỉMã:Private Sub cmdSearch_Click()
Dim rs As Recordset
Set rs = CurrentDb.OpenRecordset("Select * From tblCongVan Where MaTau = '" & Me.txtMaTau & "'")
If rs!NgayHL <= Me.txtNgay And rs!NgayHetHL >= Me.txtNgay Then
MsgBox " Tau " & Me.txtMaTau & " co noi 1 toa " & rs!NCToa & " tư ngay " & rs!NgayHL & " den ngay " & rs!NgayHetHL & " theo cong van so " & rs!SoCV
End If
End Sub
Bạn tham khảo cái này
Thân mến -
RE: Nhờ hướng dẫn giúp code nút search
Xuân Thanh > 16-12-13, 09:44 AM
Mã: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