Đánh giá chủ đề:
  • 2 Votes - 4 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Giúp đỡ về Form nhập liệu
#1
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.
Chữ ký của kentyu Xin chào, mình là kentyu, Tham gia http://thuthuataccess.com/forum từ ngày 21-05 -11.
Reply
Những người đã cảm ơn
#2
http://www.mediafire.com/?3pzj6ljvd6gfvg2

Đây là file bài tập.
Chữ ký của kentyu Xin chào, mình là kentyu, Tham gia http://thuthuataccess.com/forum từ ngày 21-05 -11.
Reply
Những người đã cảm ơn
#3
tuyệt tình qúa, không ái giúp đỡ mình hết ....Cry_smile
Chữ ký của kentyu Xin chào, mình là kentyu, Tham gia http://thuthuataccess.com/forum từ ngày 21-05 -11.
Reply
Những người đã cảm ơn
#4
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.
Chữ ký của haquocquan Guest, you are welcome!
ღღღღღTài sản của haquocquan (View All Items) ღღღღღ
Reply
Những người đã cảm ơn Noname
#5
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.
Chữ ký của kentyu Xin chào, mình là kentyu, Tham gia http://thuthuataccess.com/forum từ ngày 21-05 -11.
Reply
Những người đã cảm ơn


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  [Hỏi] Refresh Form và tiếp tục hoạt động Godspear 2 78 Hôm qua, 12:48 PM
Bài mới nhất: Godspear
  [Hỏi] Cách thêm dữ liệu vào form Main_Sub NganNguyen 1 38 06-12-16, 02:23 AM
Bài mới nhất: maidinhdan
  Tự động hiện Form khi loading hết thời gian ChiMai 1 49 02-12-16, 08:59 PM
Bài mới nhất: ongke0711
  [Help] Cập nhật combobox 2 từ combobox 1 (dữ liệu ở nhiều bảng) votinh.tq 6 209 22-11-16, 11:34 PM
Bài mới nhất: votinh.tq
Photo [Hỏi] Mở Form trên access 2007 báo lỗi jason 5 195 22-11-16, 09:23 AM
Bài mới nhất: jason

Chuyển nhanh:


User(s) browsing this thread: 1 Guest(s)
Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ