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

Giúp đỡ về Form nhập liệu

• Trang chủ

  • Thủ Thuật Access
  • Access Cơ Bản
  • Forms
  • Giúp đỡ về Form nhập liệu
• Giúp đỡ về Form nhập liệu

• Giúp đỡ về Form nhập liệu

  kentyu > 08-06-11, 09:36 AM

  Mình tạo Form nhập liệu (F01 Hop Dong) khi nhập thì dữ liệu sẽ lưu vào Query NVCONGTY và kiểm tra trong talbe BIENDONG nếu không có mã NV này thì thêm 1 dòng vào BIENDONG.
  
  -------------Query (Q11 Them)--------------
  INSERT INTO BIENDONG ( MaBD, MaNV, SoQD, NgayKy, HieuLuc, BoPhan, ChucVu, HSL, Luong, NoiDung, HopDong )
  SELECT "A1" AS MaBD, NHANVIEN.MaNV, NHANVIEN.SoQD, NHANVIEN.NgayVao, NHANVIEN.NgayVao, NHANVIEN.BoPhan, NHANVIEN.ChucVu, NHANVIEN.HSL, NHANVIEN.TongLuong, Forms![F01 Hop Dong]![NoiDungX] AS NoiDung, NHANVIEN.HopDong
  FROM NHANVIEN
  WHERE ((([F01 Hop Dong].[MaNV])=[Forms]![F01 Hop Dong]![MaNV]));
  
  ---------------Form (F01 Dong Dong)--------------------
  
  Private Sub Form_AfterUpdate()
  On Error Resume Next
  Dim t11 As Recordset, causql As String
  Set t11 = CurrentDb.OpenRecordset("BIENDONG", dbOpenTable)
  t11.Index = "PrimaryKey": t11.Seek "=", MaNV, NgayTuyen, "A1"
  If t11.NoMatch Then DoCmd.OpenQuery "Q11 Them"
  
  End Sub
  
  Nhưng mình viết thủ tục xong, nó không hoạt động được, anh chị xem giúp mình với.

• RE: Giúp đỡ về Form nhập liệu

  kentyu > 08-06-11, 10:01 AM

  http://www.mediafire.com/?3pzj6ljvd6gfvg2
  
  Đây là file bài tập.

• RE: Giúp đỡ về Form nhập liệu

  kentyu > 09-06-11, 04:24 PM

  tuyệt tình qúa, không ái giúp đỡ mình hết ....

• RE: Giúp đỡ về Form nhập liệu

  haquocquan > 09-06-11, 06:03 PM

  ACCESS2007 a.
  Mình bó tay
  
  Mình gợi ý:
  
  Q11 THEM
  

  Mã:

  INSERT INTO BIENDONG ( MaBD, MaNV, SoQD, NgayKy, HieuLuc, BoPhan, ChucVu, HSL, Luong, NoiDung, HopDong )
SELECT "A1" AS MaBD, NHANVIEN.MaNV, NHANVIEN.SoQD, NHANVIEN.NgayKy, NHANVIEN.Ngayvao as HIEULUC, NHANVIEN.BoPhan, NHANVIEN.ChucVu, NHANVIEN.HSL, NHANVIEN.TongLuong AS LUONG, Forms![F01 Hop Dong]![NoiDungX] AS NoiDung, NHANVIEN.HopDong
FROM NHANVIEN

  
  F01 DONG DONG: bạn tạo một nút lệnh lưu
  

  Mã:

  Private Sub Luu_Click()
On Error Resume Next
Dim t11 As Recordset
Set t11 = CurrentDb.OpenRecordset("BIENDONG", dbOpenDynaset)
If t11.RecordCount=0 then
DoCmd.OpenQuery "Q11 Them"
Esle
t11.FindFirst "[manv]='"& me.manv &"'"
If t11.NoMatch then
DoCmd.OpenQuery "Q11 Them"
End If
End If

End Sub

  Bạn tham khảo nhé
  Tuy nhiên qua xem của bạn, mình thấy: nếu nhân viên có sự thay đổi hệ số lương, chức vụ thì bạn lưu thế nào? Vì không mở được dữ liệu của bạn. Mình không chạy thử được.

• RE: Giúp đỡ về Form nhập liệu

  kentyu > 15-06-11, 11:30 AM

  Form này khi nhập liệu ban đầu, nếu không tìm thấy mã nhân viên trong table BIENDONG thì mới lưu thêm dòng dữ liệu vào table này, còn nếu đã có rồi thì cập nhật chức vụ, thay đổi lương lại là chuyện khác.
• Bài trước Bài tiếp