• Tùy chọn
• Đăng nhập
• Đăng ký
• Xem như trên Máy tính
• Accelerated Mobile Pages Theme

Giúp mình tạo một ứng dụng quản lý văn bản đơn giản

• Trang chủ

  • Thủ Thuật Access
  • Access Nâng Cao
  • Thư Viện Ứng Dụng
  • Giúp mình tạo một ứng dụng quản lý văn bản đơn giản
• Giúp mình tạo một ứng dụng quản lý văn bản đơn giản

• RE: Giúp mình tạo một ứng dụng quản lý văn bản đơn giản

  hctol > 17-02-14, 11:48 AM

  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 đỡ.

• RE: Giúp mình tạo một ứng dụng quản lý văn bản đơn giản

  hctol > 17-02-14, 04:14 PM

  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

• RE: Giúp mình tạo một ứng dụng quản lý văn bản đơn giản

  hctol > 17-02-14, 06:56 PM

  Có ai giúp mình tý ko nhỉ ?

• RE: Giúp mình tạo một ứng dụng quản lý văn bản đơn giản

  hctol > 19-02-14, 12:05 PM

  Hình như không có ai vào 4u nữa thì phải.

• RE: Giúp mình tạo một ứng dụng quản lý văn bản đơn giản

  MTNQ > 19-02-14, 01:40 PM

  (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 s, s1, s2, s3, s4, s5, s6 As String
s = "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 = s + s1
End If

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

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

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

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

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

Me.List21.RowSource = s & ") "
Me.List21.Requery
CurrentDb().QueryDefs("timkiemgkg").SQl = s & ") "
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!

• RE: Giúp mình tạo một ứng dụng quản lý văn bản đơn giản

  hctol > 19-02-14, 02:27 PM

  Cảm ơn bạn rất nhiều nhiều.
• Bài trước Bài tiếp