Viết bởi: danhxetnghiem 18-07-13, 04:54 PM Chuyên mục: Report - Bài trả lời (12) |
Viết bởi: nthaivn 17-07-13, 01:54 AM Chuyên mục: Report - Bài trả lời (1) |
Viết bởi: nct1972 16-07-13, 08:06 PM Chuyên mục: Tương tác Chương trình ngoài - Bài trả lời (8) |
Viết bởi: boy333 16-07-13, 06:06 PM Chuyên mục: Forms - Bài trả lời (2) |
Viết bởi: maixuanthu 16-07-13, 12:28 AM Chuyên mục: Forms - Bài trả lời (4) |
Private Sub luu()
Dim db As Database
Dim rc As Recordset
Dim cm
Dim str
Dim dung As Boolean
If IsNull(Me.mahv_gt) = True Or IsNull(Me.mahv_dgt) = True Then
str = MsgBox("Ma hoc vien khong duoc bo trong!", vbInformation, "Thông Báo")
Exit Sub
End If
dung = False
Set db = CurrentDb()
Set rc = db.OpenRecordset("gioithieu")
cm = Me.mahv_gt.Value
'cm1 = Me.mahv_dgt.Value
Do Until rc.EOF
If rc![mahv_gt] = cm Then
dung = True
End If
rc.MoveNext
Loop
rc.Close
If dung = True Then
str = MsgBox("Ma hoc vien nay da ton tai!!Ban co muon thay doi thong tin khong?", vbYesNo + vbInformation, "Thông Báo")
If str = vbYes Then
DoCmd.RunCommand acCmdSaveRecord
Me.cmdke.Enabled = True
Me.cmddau.Enabled = True
Me.cmdcuoi.Enabled = True
Me.cmdsua.Enabled = True
Me.cmdthem.Enabled = True
Me.cmdthoat.Enabled = True
Me.cmdtruoc.Enabled = True
Me.cmdxoa.Enabled = True
Me.cmdhuy.Enabled = True
End If
Exit Sub
End If
If IsNull(Me.mahv_gt) = True Or IsNull(Me.mahv_dgt) = True Or IsNull(Me.chietkhau) = True Or IsNull(Me.ghichu) = True Then
str = MsgBox("Ban can dien day du thong tin!!", vbInformation, "Thông Báo")
Exit Sub
End If
If IsNull(Me.mahv_gt) = False And IsNull(Me.mahv_dgt) = False And IsNull(Me.chietkhau) = False And IsNull(Me.ghichu) = False And dung = False Then
DoCmd.RunCommand acCmdSaveRecord
str = MsgBox("Ban da luu thanh cong!", vbInformation, "Thông Báo")
Me.cmdthem.Enabled = True
Me.cmdtruoc.Enabled = True
Me.cmdke.Enabled = True
Me.cmddau.Enabled = True
Me.cmdcuoi.Enabled = True
Me.cmdsua.Enabled = True
Me.cmdxoa.Enabled = True
Me.cmdthoat.Enabled = True
Me.cmdhuy.Enabled = True
Exit Sub
End If
End Sub
Chủ đề Mới nhất |
шаблоны сайта L2 -Chuyên mục: Ms PowerPoint-Đăng bởi lần cuối: BennyPah-3 Giờ trước- » Bài trả lời: 0- » Lượt xem: 2 |
thank you very much -Chuyên mục: Ms PowerPoint-Đăng bởi lần cuối: RobertSam-8 Giờ trước- » Bài trả lời: 0- » Lượt xem: 2 |
MetaMask Chrome -Chuyên mục: Ms PowerPoint-Đăng bởi lần cuối: Pestitutoma-Hôm nay, 07:46 AM- » Bài trả lời: 0- » Lượt xem: 2 |
cp loli -Chuyên mục: Ms PowerPoint-Đăng bởi lần cuối: Bobbypreda-Hôm qua, 10:18 PM- » Bài trả lời: 0- » Lượt xem: 4 |
Жидкости для промывки,тес... -Chuyên mục: Ms PowerPoint-Đăng bởi lần cuối: JimmyScusy-Hôm qua, 07:31 PM- » Bài trả lời: 0- » Lượt xem: 3 |
Remote Pain Management Se... -Chuyên mục: Ms PowerPoint-Đăng bởi lần cuối: XRumer23Neern-Hôm qua, 02:12 PM- » Bài trả lời: 0- » Lượt xem: 6 |
Quản lý kho bằng Accesss -Chuyên mục: Thảo Luận Access-Đăng bởi lần cuối: huan1983_bk-02-05-24, 11:07 AM- » Bài trả lời: 39- » Lượt xem: 1,547 |
Dòng Thơ Nhạc Trích Đoạn -Chuyên mục: Góc Thơ -Đăng bởi lần cuối: Nguyễn Thành Sáng-30-04-24, 04:51 PM- » Bài trả lời: 4- » Lượt xem: 45 |
[Demo-Phần 4] Tạo khóa bả... -Chuyên mục: Thư viện thủ thuật-Đăng bởi lần cuối: ongke0711-27-04-24, 11:04 PM- » Bài trả lời: 39- » Lượt xem: 5,469 |
Trợ giúp về Textbox với c... -Chuyên mục: Forms-Đăng bởi lần cuối: Nguyên Thông-18-04-24, 10:15 PM- » Bài trả lời: 16- » Lượt xem: 5,951 |
Diễn đàn Thống kê |
» Thành viên: 4,517 » Thành viên mới nhất: BennyPah » Các chủ đề diễn đàn: 9,864 » Các bài viết diễn: 48,448 Thống kê đầy đủ |