Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Giúp mình tạo một ứng dụng quản lý văn bản đơn giản
#11
Cảm ơn các bạn rất nhiều, sau những ngày mày mò thì mình cũng đang dần hoàn thành được công việc với mong muốn tạo ra 1 project nhỏ để ứng dụng và công việc, cũng rất vui vì được sự giúp đỡ của anh em trên này.
Hiện giờ mình đang làm chức năng tìm kiếm thì gặp vấn đề sau: code lựa chọn socv và đơn vị để tìm kiếm liệt kê ra subform và để in report từ kết quả tìm kiếm đó nhưng không hiểu sau nó ko run cũng ko báo lỗi.
LInk data: http://up.4share.vn/f/4477777171747775/qlvb.mdb
Mong nhận được sự giúp đỡ.
Chữ ký của hctol Xin chào, mình là hctol, Tham gia http://thuthuataccess.com/forum từ ngày 10-02 -14.
Reply
Những người đã cảm ơn
#12
Hiện tại mình đã làm được phần tìm kiếm, nhưng để in được kết quả của tìm kiếm riêng ra thì vẫn chưa làm được, mong các cao thủ chỉ giúp: http://up.4share.vn/f/6754545252555e55/qlvb.mdb
Chữ ký của hctol Xin chào, mình là hctol, Tham gia http://thuthuataccess.com/forum từ ngày 10-02 -14.
Reply
Những người đã cảm ơn
#13
Có ai giúp mình tý ko nhỉ ?
Chữ ký của hctol Xin chào, mình là hctol, Tham gia http://thuthuataccess.com/forum từ ngày 10-02 -14.
Reply
Những người đã cảm ơn
#14
Hình như không có ai vào 4u nữa thì phải. sad
Chữ ký của hctol Xin chào, mình là hctol, Tham gia http://thuthuataccess.com/forum từ ngày 10-02 -14.
Reply
Những người đã cảm ơn
#15
(17-02-14, 04:14 PM)hctol Đã viết: Hiện tại mình đã làm được phần tìm kiếm, nhưng để in được kết quả của tìm kiếm riêng ra thì vẫn chưa làm được, mong các cao thủ chỉ giúp: http://up.4share.vn/f/6754545252555e55/qlvb.mdb

Bạn thêm code sau đây vào cuối thủ tục sự kiện On Click của nút "TRA CỨU":
CurrentDb().QueryDefs("timkiemgkg").SQl = s & ") "

Mã PHP:
Private Sub Command14_Click()
    
Dim ss1s2s3s4s5s6 As String
"SELECT [guikiemgia].[id],[guikiemgia].[socv],[guikiemgia].[donvi],[guikiemgia].[ngaythang]," _
"[guikiemgia].[noidung],[guikiemgia].[kinhphi]FROM [guikiemgia]WHERE (1=1"

s1 " AND (([guikiemgia].[id]) like '" "*" & [Text0] & "*" "')"
s2 " AND (([guikiemgia].[socv])like '" "*" & [Text2] & "*" "')"
s3 " AND (([guikiemgia].[donvi]) like '" "*" & [Text4] & "*" "')"
s4 " AND (([guikiemgia].[ngaythang])=#" & [Text6] & "#)"
s5 " AND (([guikiemgia].[noidung])like '" "*" & [Text8] & "*" "')"
s6 " AND (([guikiemgia].[kinhphi])like '" "*" & [Text10] & "*" "')"

If IsNull(Trim(Text0)) = False Then
    s 
s1
End 
If

If 
IsNull(Trim(Text2)) = False Then
    s 
s2
End 
If

If 
IsNull(Trim(Text4)) = False Then
    s 
s3
End 
If

If 
IsNull(Trim(Text6)) = False Then
    s 
s4
End 
If

If 
IsNull(Trim(Text8)) = False Then
    s 
s5
End 
If

If 
IsNull(Trim(Text10)) = False Then
    s 
s6
End 
If

Me.List21.RowSource ") "
Me.List21.Requery
CurrentDb
().QueryDefs("timkiemgkg").SQl ") "
End Sub 

P/S: bạn nên đặt tên form, query, report,... phân biệt ra VD: rptTimkiemgkg, qryTimkiemgkg chứ không nên đặt tên giống nhau (đều là timkiemgkg)

Chúc bạn thành công! 015
Chữ ký của MatTroiNguQuen Thời gian nước chảy... da mòn
Ngủ quên một chốc thấy còn bộ xương!
Reply
Những người đã cảm ơn hctol
#16
Cảm ơn bạn rất nhiều nhiều.
Chữ ký của hctol Xin chào, mình là hctol, Tham gia http://thuthuataccess.com/forum từ ngày 10-02 -14.
Reply
Những người đã cảm ơn


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  [Chương trình] Quản lý văn bản điện tử qua LAN v1.5.1 maidinhdan 116 13,966 Hôm qua, 12:47 AM
Bài mới nhất: huuduy.duy
Star [Chương trình] Quản lý bán hàng cho cửa hàng vi tính quy mô nhỏ. quan_pc 15 3,668 28-10-16, 10:49 AM
Bài mới nhất: btnnhut
  Tiện ích In nội dung hoá đơn GTGT lên tờ Hoá đơn in sẵn Noname 1 858 19-10-16, 10:27 AM
Bài mới nhất: lehongduc
  Phần mềm quản lý bán hàng-nhà phân phối-đại lý tt1212 1 356 06-09-16, 11:29 AM
Bài mới nhất: dangngocthuyen
  [Help] Giúp Tạo Form tìm kiếm theo nhiều điều kiện nguyenhoangbanhan 8 1,486 17-05-16, 09:32 PM
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ơ