Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[Help] Nhờ hướng dẫn giúp code nút search
#1
034 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]
và 1 form nhập công văn :
[Hình: 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
Chữ ký của wellngoc Xin chào, mình là wellngoc, Tham gia http://thuthuataccess.com/forum từ ngày 11-12 -13.
Reply
Những người đã cảm ơn
#2
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 !
Chữ ký của Minh Tiên -----------------------------------------------
Đường tuy ngắn, không đi không đến
Việc tuy nhỏ, không làm không nên.
                                           Tuân Tử
-----------------------------------------------
Reply
Những người đã cảm ơn Noname
#3
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
Chữ ký của dinh_trong_hoa
Reply
Những người đã cảm ơn
#4
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 !
Chữ ký của Minh Tiên -----------------------------------------------
Đường tuy ngắn, không đi không đến
Việc tuy nhỏ, không làm không nên.
                                           Tuân Tử
-----------------------------------------------
Reply
Những người đã cảm ơn Noname
#5
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 .
Chữ ký của wellngoc Xin chào, mình là wellngoc, Tham gia http://thuthuataccess.com/forum từ ngày 11-12 -13.
Reply
Những người đã cảm ơn
#6
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
Chữ ký của Xuân Thanh Trăm năm trước thì ta chưa gặp
Trăm năm sau biết gặp được không?
Cuộc đời sắc sắc không không
Thì thôi ta cứ hết lòng vì nhau
ღღღღღTài sản của Xuân Thanh (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#7
(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
Chữ ký của wellngoc Xin chào, mình là wellngoc, Tham gia http://thuthuataccess.com/forum từ ngày 11-12 -13.
Reply
Những người đã cảm ơn
#8
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
Chữ ký của quan_pc Lắp đặt Internet VNPT tại Điện Bàn - Quảng Nam - Hotline: 0915.636.745
ღღღღღTài sản của quan_pc (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#9
(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()
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
bi báo lỗi 3061
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:
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
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ỉ
Chữ ký của wellngoc Xin chào, mình là wellngoc, Tham gia http://thuthuataccess.com/forum từ ngày 11-12 -13.
Reply
Những người đã cảm ơn
#10
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
Mã:
Set myset = DB.OpenRecordset("Select * From CONGVAN Where Tau = '" & Me.txttau & "'")
thành
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
Chữ ký của Xuân Thanh Trăm năm trước thì ta chưa gặp
Trăm năm sau biết gặp được không?
Cuộc đời sắc sắc không không
Thì thôi ta cứ hết lòng vì nhau
ღღღღღTài sản của Xuân Thanh (View All Items) ღღღღღ
Reply
Những người đã cảm ơn wellngoc


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  [Help] Chỉnh giúp Form thống kê hoanghai902 2 123 28-10-16, 06:15 PM
Bài mới nhất: hoanghai902
  Xin giúp tạo 1 trường trong table đánh số tự động thay cho autonumber trungminh 7 446 16-09-16, 05:17 PM
Bài mới nhất: maidinhdan
  Giúp đỡ về form với trungminh 9 490 10-09-16, 09:17 PM
Bài mới nhất: trungminh
  [Help] Hướng dẫn tạo form cha con mohamedtr 2 236 06-08-16, 01:52 AM
Bài mới nhất: maidinhdan
  [Lỗi] Lỗi code event! toancvp 18 1,033 07-07-16, 01:36 AM
Bài mới nhất: maidinhdan

Chuyển nhanh:


User(s) browsing this thread: 1 Guest(s)
Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ