Đá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] Phần mềm quản lý nhân khẩu trunghieu 1 709 07-10-17, 12:17 AM
Bài mới nhất: vulinh090990
  Ứng dụng quản lý cư trú changkhoonline77 21 5,676 06-10-17, 11:54 PM
Bài mới nhất: vulinh090990
  Chương trình quản lý bán thuốc-phòng khám tt1212 18 3,224 27-09-17, 01:37 AM
Bài mới nhất: daocuong
  Phần mềm quản lý phòng khám nhiều dịch vụ tt1212 3 1,160 27-09-17, 01:12 AM
Bài mới nhất: daocuong
  ứng dụng quản lý phòng khám online tt1212 16 545 15-08-17, 05:20 PM
Bài mới nhất: tt1212

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ơ