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

Nhờ giúp dùm bài tập access

• Trang chủ

  • Thủ Thuật Access
  • Access Cơ Bản
  • Query
  • Nhờ giúp dùm bài tập access
• Nhờ giúp dùm bài tập access

• Nhờ giúp dùm bài tập access

  nguyentrunghoadh > 18-01-18, 04:59 PM

  Xin lỗi mình quên share:
  Tôi đang làm chương trình phân công giáo viên tên "P_cong" đến query "Q_phancong" tôi gặp khó nhờ các bạn giúp đỡ. Ý tôi là các dòng trong query này nếu cột "TenGV" trùng nhau thì xử lý các cột có kiểu chữ cách nhau bởi dấu phẩy (Ví dụ: cột kiêm nhiệm là "Chủ nhiệm, Tổ trưởng", các cột kiểu số thì cộng lại, riêng cột "Solopday" vẫn sử dụng dấu phẩy. 
  
  Đây là file của tôi: 
  https://drive.google.com/file/d/1fX4IW14...sp=sharing

• RE: Nhờ giúp dùm bài tập access

  duynamvnn1208 > 20-01-18, 11:42 PM

  Mình có xem bài bạn đưa lên hôm trước. Mình không nghĩ là Query có thể giải quyết được yêu cầu của bạn. Nếu là mình sẽ dùng đến Form để hiển thị theo yêu cầu của User. Chữ đơn thuần Query chắc khó.

• RE: Nhờ giúp dùm bài tập access

  tranthanhan1962 > 21-01-18, 01:09 AM

  (18-01-18, 04:59 PM)nguyentrunghoadh Đã viết: Xin lỗi mình quên share:
  Tôi đang làm chương trình phân công giáo viên tên "P_cong" đến query "Q_phancong" tôi gặp khó nhờ các bạn giúp đỡ. Ý tôi là các dòng trong query này nếu cột "TenGV" trùng nhau thì xử lý các cột có kiểu chữ cách nhau bởi dấu phẩy (Ví dụ: cột kiêm nhiệm là "Chủ nhiệm, Tổ trưởng", các cột kiểu số thì cộng lại, riêng cột "Solopday" vẫn sử dụng dấu phẩy. 
  
  Đây là file của tôi: 
  https://drive.google.com/file/d/1fX4IW14...sp=sharing

  Thực sự nhìn qua CSDL tôi không biết bạn đang làm cái gì và ý muốn gì. Nhưng người ta xác định các đối tượng (ở đây là giáo viên) bằng mã (ID) để giải quyết trường hợp các đối tượng khác nhau bị trùng tên (như số CMND vậy).
  Cách gom các field (ở đây bạn gọi là cột) bạn phải tạo một field mới (ví dụ field có tên là Newfield), Nếu kiểu text Newfield: FieldName1 & "," & FieldName2 & "," & ....& "," &FieldNameN,  Nếu kiểu số Newfield: FieldName1 + FieldName2 + ....+ FieldNameN.
  Đây là 1 trong những vấn đề cơ bản trong access. Bạn không thể lấy kiến thức từ excel hay word để thiết kế một CSDL access được đâu!
  Trong excel người ta gọi cột (column), dòng hoặc hàng (row) nhưng access thì gọi là trường (field), mẫu tin (record). Nếu bạn chưa có kiến thức cơ bản về access hãy trang bị nó trước rồi mới có thể làm việc với nó được. Trong tình hình hiện tại dù có hỗ trợ bạn thì bạn cũng đâu hiểu gì!

• RE: Nhờ giúp dùm bài tập access

  nguyentrunghoadh > 24-01-18, 04:37 PM

  Ý của mình là trong field MaGV nếu có 2 hay nhiều hơn record trùng nhau thì từng field sẽ được gom các record tương ứng (nếu là type chữ thì cách nhau dấu ",", còn kiểu số thì cộng lại).

• RE: Nhờ giúp dùm bài tập access

  ongke0711 > 25-01-18, 01:46 PM

  Tôi nhớ là có giải bài dạng này của bạn ở link bên dưới rồi mà. Bạn vẫn chưa làm được sao?
  http://thuthuataccess.com/forum/thread-10035.html

• RE: Nhờ giúp dùm bài tập access

  nguyentrunghoadh > 26-01-18, 09:03 AM

  Đúng rồi, cảm ơn bạn. Do bận lâu quá tôi mới xem lại, nhưng tôi có thêm một số field nên hàm bạn viết tôi áp dụng chưa được (chắc là tôi mới học nên chưa hiểu hàm). Mong bạn giải thích kỹ hơn dùm.

• RE: Nhờ giúp dùm bài tập access

  ongke0711 > 26-01-18, 04:18 PM

  Tôi đã chỉnh sửa cái hàm "Gộp Dòng" - GopDong() lại cho bạn có thể áp dụng cho nhiều trường (Field) bạn cần gộp lại thành 1 dòng nếu nó cùng một mã qui định nào đó ([MaGV] trong bài của bạn).
  
  Kết quả query:
  
  
  
  Design view query:
  
  
  
  Code cho hàm GopDong():
  
  

  Mã PHP:

  Option Explicit

Function GopDong(TenFieldCanGop As String, TenFieldThamChieu As String, FieldThamChieu As Variant, TenTable As String)
'Ham dung de gop các dong co chung mot truong (field) nao do lai voi nhau.'

   Dim db As DAO.Database
   Dim rs As DAO.Recordset
   Dim strSQL As String
   Dim RowList As String

   Set db = CurrentDb()
   strSQL = "SELECT [" & TenFieldCanGop & "] FROM " & TenTable & " WHERE CStr([" & TenFieldThamChieu & "])= """ & FieldThamChieu & """"
   'Debug.Print strSQL'

   Set rs = db.OpenRecordset(strSQL, dbOpenSnapshot)

   If Not rs.EOF Then
       rs.MoveFirst
   End If

   Do While Not rs.EOF
       RowList = RowList & rs(0) & ", "
       rs.MoveNext
   Loop

   GopDong = Left(RowList, Len(RowList) - 2)

End Function 


  
  
  Link file demo: http://www.mediafire.com/file/2dtr61u0kd...a%29.accdb

• RE: Nhờ giúp dùm bài tập access

  thanhtruong > 06-07-18, 04:42 PM

  Link file demo: http://www.mediafire.com/file/2dtr61u0kd...a%29.accdb
  
  Áp dụng vào bài mình  link bài thì nó lỗi ở chổ này
  
  

• RE: Nhờ giúp dùm bài tập access

  ongke0711 > 06-07-18, 08:42 PM

  - Trong Query bạn sửa lại tham số truyền vào cho hàm GopDong():
    CHIDINH: GopDong("mathuthuat","maso",[maso],"thuthuat")
  
  - Vì field [maso] dạng Number nên trong hàm phải bỏ dấu nháy kép"
    strSQL = "SELECT [" & TenFieldCanGop & "] FROM " & TenTable & " WHERE [" & TenFieldThamChieu & "]=" & FieldThamChieu

• RE: Nhờ giúp dùm bài tập access

  thanhtruong > 06-07-18, 11:02 PM

  Còn cái số lượng nữa, phải thêm thế nào
  
  ví dụ : X072 SL 1, X073 SL 2.
  phải sửa code ở chổ nào ạ.
• Bài trước Bài tiếp