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

Không xem được report phiếu nhập?

• Trang chủ

  • Thủ Thuật Access
  • Access Cơ Bản
  • Thành viên giúp nhau
  • Không xem được report phiếu nhập?
• Không xem được report phiếu nhập?

• Không xem được report phiếu nhập?

  ChiMai > 17-03-17, 09:42 PM

  Em bí quá không biết lỗi thế nào mà không xem được report phiếu nhập. Đành đưa lên đây nhờ mọi người chỉ dùm em nhé!
  Link: https://secufiles.com/d9NY/XemPhieuNhap.rar

• RE: Không xem được report phiếu nhập?

  tranthanhan1962 > 18-03-17, 12:07 AM

  Bạn sửa lại code event cmdXem_Click():
  

  Mã:

  Private Sub cmdXem_Click()
     DoCmd.OpenReport "R_PhieuNhapKho", acViewPreview, , , acWindowNormal
End Sub

  Và Record Source của report R_PhieuNhapKho
  

  Mã:

  SELECT tblPhieuNhap.NgayNhap, tblPhieuNhap.spn, tblPhieuNhap.idDoiTuong, tblPhieuNhap.NguoiGiaoHang, tblPhieuNhap.DienGiai, qryChiTietNhap.idHangHoa, qryChiTietNhap.TenHang, qryChiTietNhap.DVT, qryChiTietNhap.SlgN, qryChiTietNhap.DonGia, qryChiTietNhap.TienNhap FROM tblPhieuNhap INNER JOIN qryChiTietNhap ON tblPhieuNhap.spn = qryChiTietNhap.spn WHERE (((tblPhieuNhap.spn)=[Forms]![F_DMPhieuNhap]![sub_PhieuNhap].[Form]![spn]));

  Sẽ hết bị lỗi.

• RE: Không xem được report phiếu nhập?

  ChiMai > 20-03-17, 05:06 PM

  Cũng ở bài này, em muốn hỏi thêm 1 câu hỏi nữa ah!
  Em muốn thiết lập code cho nút xóa. Và em đã viết:
  

  Mã PHP:

  Private Sub cmdXoa_Click()
    If msgBoxOK(DLookup("", "", "ID=1"), vbYesNo + vbQuestion, App) = vbYes Then
       DoCmd.SetWarnings False
       DoCmd.RunCommand acCmdDeleteRecord[i][color=#ff3399] 'Cau nay phai sua nhu the nào?[/color][/i]
       sub_PhieuNhap.Requery
   End If
End Sub 


  nhưng nó vẫn không xóa được? Vì nó là subform nên em chưa biết thế lập ra sao ah!
  Link: https://secufiles.com/hmcQ/CodeChoNutXoa.rar
  Cám ơn mọi người nhiều!

• RE: Không xem được report phiếu nhập?

  tranthanhan1962 > 20-03-17, 07:28 PM

  Mã:

  DoCmd.RunCommand acCmdDeleteRecord

  Là event của nút lệnh thực hiện xóa recordcủa recordsource trên form của chính nó, Bạn để nút lệnh ở parent form thì không xóa được record của subform là đúng rồi

• RE: Không xem được report phiếu nhập?

  ChiMai > 21-03-17, 04:50 PM

  Vâng em hiểu. Nhưng có lần em đã thấy có bài hướng dẫn các nút để như vậy cũng có thể xóa được ạ? Vấn để là cái code em không nhớ nó được tạo nhưng như thế nào ạ? Nhờ anh và mọi người hướng dẫn cho em thể để em hoàn thiện ah!

• RE: Không xem được report phiếu nhập?

  paulsteigel > 21-03-17, 05:11 PM

  Bạn không thể làm được điều đó vì Truy vấn bạn bạn đang thiết lập là truy vấn chỉ đọc.
  

  Mã:

  SELECT tblPhieuNhap.NgayNhap, tblPhieuNhap.spn, tblDoiTuong.TenDoiTuong, tblPhieuNhap.DienGiai, Sum(qryChiTietNhap.TienNhap) AS TienNhap
FROM tblDoiTuong INNER JOIN (tblPhieuNhap INNER JOIN qryChiTietNhap ON tblPhieuNhap.spn = qryChiTietNhap.spn) ON tblDoiTuong.idDoiTuong = tblPhieuNhap.idDoiTuong
GROUP BY tblPhieuNhap.NgayNhap, tblPhieuNhap.spn, tblDoiTuong.TenDoiTuong, tblPhieuNhap.DienGiai;

  Còn nếu muốn xóa từ form ngoài, cách an toàn và hiệu quả vẫn chỉ là tạo nút bấm, và thực thi một truy vấn dạng Delete from [bảng] where [x]=y;
  Sau đó là requery.
  Nếu bạn muốn trả lời cụ thể hơn, bạn cần nói rõ bạn muốn xóa cái gì vì hiện tại, xem trên form của bạn, tôi không thấy có lý do gì phải dùng đến 2 form cho một nhiệm vụ đơn thuần là hiển thị kết quả cộng gộp!

• RE: Không xem được report phiếu nhập?

  ChiMai > 21-03-17, 05:21 PM

  Em thiết kế vậy vì: Nếu dùng listbox em không định dạng được trường số tiền theo lề phải. Nên em phải dùng subform này ạ. Em muốn click chọn vào nút Xóa thì nó sẽ hỏi và nếu đồng ý thì nó xóa record phiếu nhập biết kỳ nào đó mà mình chọn trên subform đó?

• RE: Không xem được report phiếu nhập?

  paulsteigel > 21-03-17, 06:03 PM

  (21-03-17, 05:21 PM)ChiMai Đã viết: Em thiết kế vậy vì: Nếu dùng listbox em không định dạng được trường số tiền theo lề phải. Nên em phải dùng subform này ạ. Em muốn click chọn vào nút Xóa thì nó sẽ hỏi và nếu đồng ý thì nó xóa record phiếu nhập biết kỳ nào đó mà mình chọn trên subform đó?

  
  Nếu như vậy thì bạn dùng thế này:
  
  

  Mã PHP:

  Private Sub cmdXoa_Click()
    Dim SqlTxt As String
    If msgBoxOK("Ban muon xoa ban ghi hien thoi?", vbYesNo + vbQuestion, App) = vbYes Then
        SqlTxt = "Delete from tblPhieuNhap WHERE spn = '" & Me.sub_PhieuNhap.Form.Controls("spn") & "';"
        CurrentDb.Execute SqlTxt
        Me.sub_PhieuNhap.Form.Requery
    End If
End Sub 


  Bạn thử nhé... nó sẽ xóa hết các phiếu nhập có id này trong bảng tbpPhieuNhap.

• RE: Không xem được report phiếu nhập?

  ChiMai > 21-03-17, 06:09 PM

  Cái này đúng ý em ạ!
• Bài trước Bài tiếp