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

hep sửa lỗi về code và modules

• Trang chủ

  • Thủ Thuật Access
  • Access Nâng Cao
  • Thủ thuật VBA
  • hep sửa lỗi về code và modules
• hep sửa lỗi về code và modules

• hep sửa lỗi về code và modules

  cuongvan09 > 17-06-12, 01:32 PM

  mấy anh ơi coi hộ e coi cái bài của e nó bị lỗi code cho nào nha
  tình hình là khi e mở form "Frm_PXUAT" lên để e nhập hàng rồi khi chọn "Mã sản phẩm" xong rồi cái nó báo lỗi ah, mà cái bài của e là nó có code và modules luôn rồi, mấy anh vô coi rồi hướng dẫn hay sữa lỗi hộ e vơi, mà mấy anh vô coi thử coi code hay modules cuả e coi có sai ko, mà sẵn đây e nhờ anh a hướng dẫn hộ e luôn cái phần làm "Frm_PNHAP" luôn nha là e muốn khi mình chon "Mã sản phẩm" xong rồi thì nó sẽ tự động điền giá nhập của sản phẩm vào đơn giá luôn mà giá nhập của sản phẩm ở đây sẽ lấy từ "GN" của table "Hang". còn 1 điều nữa là mấy anh hướng dẫn e viết code "lấy số tồn kho của từng mặt hàng (khi xuất phải kiểm tra số lượng xuất không vượt quá số lượng tồn"
  và kèm theo đây là hình ảnh lỗi đây
         
  e cảm ơn nhiều
  đây link bài của e đây ah
  http://maxup.vn/tai-ve/jjthaiprturirkh/fafaf.mdb.html

• RE: hep sửa lỗi về code và modules

  cuongvan09 > 18-06-12, 10:15 AM

  mới upp lại đó anh e vô coi lai rồi dowload ve rồi xin hướng dẫn hộ e vơi, em mới up link download mới, tại link trước bị hỏng mà e ko biết, giờ thì ae vô download về xem rồi hướng dẫn cho e nha
  cảm ơn ae nhiều nha
  

• RE: hep sửa lỗi về code và modules

  Xuân Thanh > 18-06-12, 10:38 AM

  1/ Chưa xem file nhưng đọc lỗi thông báo là access không tim thấy Ngay trong form Xuat. Bạn kiểm tra lại, có thể tên đã thay đổi
  2/ Muốn tìm giá nhập, dùng Dlookup mà tìm = Dlookup("GN","tblHang","Mahang=cboHang")
  3/ Muốn biết tồn của hàng trước khi xuất, lấy tổng nhập trừ tổng xuất là ra thui mà
  Thân

• RE: hep sửa lỗi về code và modules

  cuongvan09 > 18-06-12, 10:47 AM

  (18-06-12, 10:38 AM)Xuân Thanh Đã viết: 1/ Chưa xem file nhưng đọc lỗi thông báo là access không tim thấy Ngay trong form Xuat. Bạn kiểm tra lại, có thể tên đã thay đổi
  2/ Muốn tìm giá nhập, dùng Dlookup mà tìm = Dlookup("GN","tblHang","Mahang=cboHang")
  3/ Muốn biết tồn của hàng trước khi xuất, lấy tổng nhập trừ tổng xuất là ra thui mà
  Thân

  
  cái đó thì phải làm thế nào xin anh hướng dẫn kĩ hơn cho e với, em làm tới đó rồi bị lỗi rồi nên ko biết sửa sao nữa, xin anh hướng dẫn cho e với

• RE: hep sửa lỗi về code và modules

  Xuân Thanh > 18-06-12, 10:58 AM

  Cái đó là cái nào? một hay cả ba? Hướng dẫn thế là tỷ mỉ rồi đây, bạn theo đó mà làm chắc chắn sẽ được
  Nói thêm : Đừng lạm dụng hàm quá khi ta chưa thực sự hiểu về nó. Cứ query mà làm, chỉ khi nào query không thể làm được hảy sử dụng hàm
  Thân mến

• RE: hep sửa lỗi về code và modules

  cuongvan09 > 18-06-12, 11:04 AM

  (18-06-12, 10:58 AM)Xuân Thanh Đã viết: Cái đó là cái nào? một hay cả ba? Hướng dẫn thế là tỷ mỉ rồi đây, bạn theo đó mà làm chắc chắn sẽ được
  Nói thêm : Đừng lạm dụng hàm quá khi ta chưa thực sự hiểu về nó. Cứ query mà làm, chỉ khi nào query không thể làm được hảy sử dụng hàm
  Thân mến

  
  dạ hết cả 3 cái luôn anh ơi, nếu anh hỗ trợ cho e được phần nào thì làm phần đó, còn phần còn lại thì e sự từ từ nhờ những anh khác hỗ trợ và chỉ cho e sửa, a giúp e với e cảm ơn anh nhiều

• RE: hep sửa lỗi về code và modules

  Xuân Thanh > 18-06-12, 12:14 PM

  Sửa cho cái frm_PXUAT, những cái khác tự xem và tự sửa
  
  

  Mã PHP:

  Private Sub Masp_AfterUpdate()
  'Kiem tra mat hang da co trong phieu chua?
  If DCount("Masp", "Chitietpx", "Masp='" & Masp & _
            "' and Maphieuxuat='" & Maphieuxuat & "'") > 1 Then
    MsgBox "Mat hang nay da xuat, xin vui long xem lai"
    DoCmd.RunCommand acCmdUndo         'Bo viec da chon
    Exit Sub
  End If
  DonGia = TimGBan(Forms!Frm_PXUAT!Ngayxuat, Masp)
  Soluongxuat = 0
  Me.Soluongxuat.SetFocus
  Me.Refresh
End Sub


Private Sub Soluongxuat_AfterUpdate()
  Dim rs As Recordset
  Dim qr As QueryDef
  Set qr = CurrentDb.QueryDefs("qryTonHang")
  qr.Parameters("Ma") = Me.Masp
  Set rs = qr.OpenRecordset
  Ton = rs!TonCuoi
  If Ton = 0 Then
    MsgBox "Hang trong kho da het"
    Exit Sub
  ElseIf Soluongxuat > Ton Then
    MsgBox "Hang ton kho chi con " & Ton
    Soluongxuat = Ton
    SendKeys "+{Tab}"
  Else
    Me.Refresh
    Me.Recalc
    Forms!Frm_PXUAT!SOTIEN = Me.TCong
  End If
End Sub 


  
  Sửa cái qryTonHang lại thế này
  

  Mã PHP:

  SELECT Hang.Masp, Hang.TenSP, Hang.Soluong AS TonDau, Sum(IIf([Soluongnhap]>0,[Soluongnhap],0)) AS Nhap, Sum(IIf([Soluongxuat]>0,[Soluongxuat],0)) AS Xuat, [TonDau]+[Nhap]-[Xuat] AS TonCuoi
FROM (Hang LEFT JOIN qryNhap ON Hang.Masp = qryNhap.Masp) LEFT JOIN qryXuat ON Hang.Masp = qryXuat.Masp
GROUP BY Hang.Masp, Hang.TenSP, Hang.Soluong
HAVING (((Hang.Masp)=[Ma])); 


  
  Như vậy là giải quyết xong luôn cả câu 3 rồi nhé. Hang nhập cũng lam như hàng xuất. Lấy được giá xuất thì cũng lấy được giá nhập chứ

• RE: hep sửa lỗi về code và modules

  cuongvan09 > 18-06-12, 02:14 PM

  (18-06-12, 12:14 PM)Xuân Thanh Đã viết: Sửa cho cái frm_PXUAT, những cái khác tự xem và tự sửa
  
  

  Mã PHP:

  Private Sub Masp_AfterUpdate()
  'Kiem tra mat hang da co trong phieu chua?
  If DCount("Masp", "Chitietpx", "Masp='" & Masp & _
            "' and Maphieuxuat='" & Maphieuxuat & "'") > 1 Then
    MsgBox "Mat hang nay da xuat, xin vui long xem lai"
    DoCmd.RunCommand acCmdUndo         'Bo viec da chon
    Exit Sub
  End If
  DonGia = TimGBan(Forms!Frm_PXUAT!Ngayxuat, Masp)
  Soluongxuat = 0
  Me.Soluongxuat.SetFocus
  Me.Refresh
End Sub



Private Sub Soluongxuat_AfterUpdate()
  Dim rs As Recordset
  Dim qr As QueryDef
  Set qr = CurrentDb.QueryDefs("qryTonHang")
  qr.Parameters("Ma") = Me.Masp
  Set rs = qr.OpenRecordset
  Ton = rs!TonCuoi
  If Ton = 0 Then
    MsgBox "Hang trong kho da het"
    Exit Sub
  ElseIf Soluongxuat > Ton Then
    MsgBox "Hang ton kho chi con " & Ton
    Soluongxuat = Ton
    SendKeys "+{Tab}"
  Else
    Me.Refresh
    Me.Recalc
    Forms!Frm_PXUAT!SOTIEN = Me.TCong
  End If
End Sub 


  
  Sửa cái qryTonHang lại thế này
  

  Mã PHP:

  SELECT Hang.Masp, Hang.TenSP, Hang.Soluong AS TonDau, Sum(IIf([Soluongnhap]>0,[Soluongnhap],0)) AS Nhap, Sum(IIf([Soluongxuat]>0,[Soluongxuat],0)) AS Xuat, [TonDau]+[Nhap]-[Xuat] AS TonCuoi
FROM (Hang LEFT JOIN qryNhap ON Hang.Masp = qryNhap.Masp) LEFT JOIN qryXuat ON Hang.Masp = qryXuat.Masp
GROUP BY Hang.Masp, Hang.TenSP, Hang.Soluong
HAVING (((Hang.Masp)=[Ma])); 


  
  Như vậy là giải quyết xong luôn cả câu 3 rồi nhé. Hang nhập cũng lam như hàng xuất. Lấy được giá xuất thì cũng lấy được giá nhập chứ

  em cám ơn anh nhiều nha

• RE: hep sửa lỗi về code và modules

  cuongvan09 > 18-06-12, 02:41 PM

  (18-06-12, 02:14 PM)cuongvan09 Đã viết:

  (18-06-12, 12:14 PM)Xuân Thanh Đã viết: Sửa cho cái frm_PXUAT, những cái khác tự xem và tự sửa
  
  

  Mã PHP:

  Private Sub Masp_AfterUpdate()
  'Kiem tra mat hang da co trong phieu chua?
  If DCount("Masp", "Chitietpx", "Masp='" & Masp & _
            "' and Maphieuxuat='" & Maphieuxuat & "'") > 1 Then
    MsgBox "Mat hang nay da xuat, xin vui long xem lai"
    DoCmd.RunCommand acCmdUndo         'Bo viec da chon
    Exit Sub
  End If
  DonGia = TimGBan(Forms!Frm_PXUAT!Ngayxuat, Masp)
  Soluongxuat = 0
  Me.Soluongxuat.SetFocus
  Me.Refresh
End Sub
em cám ơn anh nhiều nha


Private Sub Soluongxuat_AfterUpdate()
  Dim rs As Recordset
  Dim qr As QueryDef
  Set qr = CurrentDb.QueryDefs("qryTonHang")
  qr.Parameters("Ma") = Me.Masp
  Set rs = qr.OpenRecordset
  Ton = rs!TonCuoi
  If Ton = 0 Then
    MsgBox "Hang trong kho da het"
    Exit Sub
  ElseIf Soluongxuat > Ton Then
    MsgBox "Hang ton kho chi con " & Ton
    Soluongxuat = Ton
    SendKeys "+{Tab}"
  Else
    Me.Refresh
    Me.Recalc
    Forms!Frm_PXUAT!SOTIEN = Me.TCong
  End If
End Sub 


  
  Sửa cái qryTonHang lại thế này
  

  Mã PHP:

  SELECT Hang.Masp, Hang.TenSP, Hang.Soluong AS TonDau, Sum(IIf([Soluongnhap]>0,[Soluongnhap],0)) AS Nhap, Sum(IIf([Soluongxuat]>0,[Soluongxuat],0)) AS Xuat, [TonDau]+[Nhap]-[Xuat] AS TonCuoi
FROM (Hang LEFT JOIN qryNhap ON Hang.Masp = qryNhap.Masp) LEFT JOIN qryXuat ON Hang.Masp = qryXuat.Masp
GROUP BY Hang.Masp, Hang.TenSP, Hang.Soluong
HAVING (((Hang.Masp)=[Ma])); 


  
  Như vậy là giải quyết xong luôn cả câu 3 rồi nhé. Hang nhập cũng lam như hàng xuất. Lấy được giá xuất thì cũng lấy được giá nhập chứ

  uh mà anh ơi cho e hỏi thêm 1 cái nữa là tại sao khi e cập nhật giá bán mới vào form giaban rồi lưu lại mà sao khi e xuất hàng thì nó vẫn lấy là giá bán cữ chứ nó ko lấy giá bán mới đc vậy a,rồi giờ thì mình phải làm sao đây a,sắn đây a hướng dẫn e làm cái form nhập hàng luôn đi a, e làm hoài ma ko dc a oi, cái form nhập hàng là nó phải lấy giá nhập trong table hang để điền giá nhập vào đơn giá luôn, a giúp e với
  
• Bài trước Bài tiếp