Đá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 MTNQ 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ý bán thuốc-phòng khám tt1212 38 1,440 10-12-17, 08:59 AM
Bài mới nhất: tt1212
Heart [Chương trình] Hệ thống quản lý Đoàn Viên garupro 7 6,248 07-12-17, 09:30 AM
Bài mới nhất: Thiên Hùng
  [Chương trình] Quản lý văn bản điện tử qua LAN v1.5.1 maidinhdan 129 24,223 29-11-17, 12:49 AM
Bài mới nhất: maidinhdan
  Quản lý Thiết bị Che_Guevara 2 181 02-11-17, 05:26 PM
Bài mới nhất: Che_Guevara
Wink [Chương trình] Phần mềm quản lý cấp lệnh xe ôtô mqhuan123 5 270 26-10-17, 08:01 AM
Bài mới nhất: mqhuan123

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ơ