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.