Đá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
  ứng dụng quản lý phòng khám online tt1212 16 121 15-08-17, 05:20 PM
Bài mới nhất: tt1212
  [Chương trình] Share Quản lý công việc V2.0 garupro 10 825 31-07-17, 02:31 PM
Bài mới nhất: phamthang2612
  [Chương trình] Quản lý văn bản điện tử qua LAN v1.5.1 maidinhdan 125 19,632 04-07-17, 11:17 PM
Bài mới nhất: khonggianviet
  PHẦN MỀM QUẢN LÝ THU NHẬP CÁ NHÂN buitheduy 9 405 22-06-17, 01:15 PM
Bài mới nhất: buitheduy
  Quản lý Nhân Sự bằng Access Noname 44 50,999 19-04-17, 11:53 AM
Bài mới nhất: tranthanhan1962

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ơ