Txgroup > 14-01-11, 12:23 PM
haquocquan > 14-01-11, 01:49 PM
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 SubTxgroup > 14-01-11, 03:06 PM
haquocquan > 15-01-11, 05:30 PM
Txgroup > 17-01-11, 04:13 PM
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!