-
RE: Cần các Pro giúp: Tự động thêm các record vào table!
Txgroup > 14-01-11, 12:23 PM
Cảm ơn bạn đã quan tâm!
1/ - Nếu có 1 record trong QLSUDUNG không null (đã sử dụng), có xóa trong TUYENQUANG không,: Thì không xóa (vì còn sợi sử dụng!)
2/- Nếu có 1 record trong QLSUDUNG không null (đã sử dụng), thì có xóa các record chưa sử dụng không. [color=#FF0000] .Cũng không xóa Record trong TUYENQUANG và các record chưa sử dụng trong QLSUDUNG.
Cảm ơn bạn đã quan tâm!
1/ - Nếu có 1 record trong QLSUDUNG không null (đã sử dụng), có xóa trong TUYENQUANG không,: Thì không xóa (vì còn sợi sử dụng!)
2/- Nếu có 1 record trong QLSUDUNG không null (đã sử dụng), thì có xóa các record chưa sử dụng không. [color=#FF0000] .Cũng không xóa Record trong TUYENQUANG và các record chưa sử dụng trong QLSUDUNG.
tức là kiểm tra xem trong QLSUDUNG.SUDUNG còn dùng thì không không nếu tấc cả các sợi đều không dùng thì xóa record này ờ TUYENQUANG và toàn bộ các rêord không SUDUNG tong QLSUDUNG!
-
RE: Cần các Pro giúp: Tự động thêm các record vào table!
haquocquan > 14-01-11, 01:49 PM
Trong trường hợp của bạn. Nếu là mình, mình sẽ dùng đoạn code này cho cmddelete
Mã:Private Sub CmdDelete_Click()
Dim RS As Recordset
Dim SQL As String
SQL = " SELECT QLSUDUNG.MATUYEN"
SQL = SQL & " FROM QLSUDUNG"
SQL = SQL & " WHERE (((QLSUDUNG.SUDUNG) Is Not Null) And ((QLSUDUNG.MATUYEN) = '" & [Forms]![frmTTVT1]![MATUYEN] & "'))"
SQL = SQL & " GROUP BY QLSUDUNG.MATUYEN"
Set RS = CurrentDb.OpenRecordset(SQL)
If RS.RecordCount > 0 Then
MsgBox "Ban khong the xoa duoc tuyen nay. Da su dung", vbOKOnly, "Thong bao"
Else
If MsgBox(" BAN MUON XOA MAU TIN NAY " & Chr(13) & Chr(10) & "Neu muon thi chon YES nguoc lai chon No", vbYesNo, "Thong Bao") = vbYes Then
DoCmd.SetWarnings False
CurrentDb.Execute "delete * from QLSUDUNG where MATUYEN = '" & Forms!frmTTVT1!MATUYEN & "'"
DoCmd.RunCommand acCmdDeleteRecord
DoCmd.SetWarnings True
Else
Exit Sub
End If
End If
Set RS = Nothing
frmTTVT1sub.Requery
End Sub
Bạn thử nhé.
Chúc thành công -
RE: Cần các Pro giúp: Tự động thêm các record vào table!
Txgroup > 14-01-11, 03:06 PM
Test OK rồi bạn Quân ơi ! nhưng đoạn lệnh SQL:
SQL = " SELECT QLSUDUNG.MATUYEN"
SQL = SQL & " FROM QLSUDUNG"
SQL = SQL & " WHERE (((QLSUDUNG.SUDUNG) Is Not Null) And ((QLSUDUNG.MATUYEN) = '" & [Forms]![frmTTVT1]![MATUYEN] & "'))"
SQL = SQL & " GROUP BY QLSUDUNG.MATUYEN"
Mình chưa rõ lắm . . ., cảm ơn các bạn nhiều . . . nhiều nghen!
-
RE: Cần các Pro giúp: Tự động thêm các record vào table!
haquocquan > 15-01-11, 05:30 PM
Đoạn SQL đó là một query thôi bạn.
Nó lọc ra những record trong QLSUDUNG có MATUYEN = MATUYEN trên frmTTVT1 và các SOI đã sử dụng. -
RE: Cần các Pro giúp: Tự động thêm các record vào table!
Txgroup > 17-01-11, 04:13 PM
Chào bạn Quân và các Pro:
Qua hướng dẫn của các bạn tôi đã thực hiện xong Form nhập liệu. Nay tôi muốn upsizing wizard các bảng ( ở đây là bảng TUYENQUANG, và QLSUDUNG) lên
SQL SERVER để phục vụ quản lý tập trung và nâng cao độ bảo mật . . .
Thế nhưng vướng vấn đề về code! vậy có phải:
1/ Khi thực hiện các code trong ACCESS thì khi chuyển các bảng qua SQL SERVER phải thay đổi lại Phải ko các bạn?
2/. Vídu như trong trường hợp trên trong môi trường ACCESS thì OK .
Xong khi chuyển các bảng qua SQL SERVE báo lỗi ngay dòng: CurrentDb.Execute "delete * from QLSUDUNG where MATUYEN = '" & Forms!frmTTVT1!MATUYEN
vậy là gay go quá!
Mong các Pro có ý kiến giúp cho!
-
RE: Cần các Pro giúp: Tự động thêm các record vào table!
Noname > 17-01-11, 07:37 PM
(17-01-11, 04:13 PM)Txgroup Đã viết: Chào bạn Quân và các Pro:
Qua hướng dẫn của các bạn tôi đã thực hiện xong Form nhập liệu. Nay tôi muốn upsizing wizard các bảng ( ở đây là bảng TUYENQUANG, và QLSUDUNG) lên
SQL SERVER để phục vụ quản lý tập trung và nâng cao độ bảo mật . . .
Thế nhưng vướng vấn đề về code! vậy có phải:
1/ Khi thực hiện các code trong ACCESS thì khi chuyển các bảng qua SQL SERVER phải thay đổi lại Phải ko các bạn?
2/. Vídu như trong trường hợp trên trong môi trường ACCESS thì OK .
Xong khi chuyển các bảng qua SQL SERVE báo lỗi ngay dòng: CurrentDb.Execute "delete * from QLSUDUNG where MATUYEN = '" & Forms!frmTTVT1!MATUYEN
vậy là gay go quá!
Mong các Pro có ý kiến giúp cho!
1/ Ngay cả chưa chuyểnn lên SQL server thì đoạn trên vẫn báo lỗi như thường. bởi vì bạn mở dấu nháy (') trước dòng & Forms!frmTTVT1!MATUYEN mà không có đóng dấy nháy (').
2/ MS SQL phân quyền rất chặt chẽ, vì vậy bạn có chắc là bạn toàn quyền thêm sửa xóa với table MATUYEN không, mở trực tiếp table lên thử xem có thêm/sửa /xóa được không?