|
|
Viết bởi: thichproc 06-06-13, 10:44 AM Chuyên mục: Query - Bài trả lời (16) |
![[Hình: hinh_1-1.jpg]](http://i576.photobucket.com/albums/ss203/thichproc/Access/hinh_1-1.jpg)
![[Hình: hinh_2.jpg]](http://i576.photobucket.com/albums/ss203/thichproc/Access/hinh_2.jpg)
|
|
Viết bởi: maixuanthu 06-06-13, 10:44 AM Chuyên mục: Forms - Bài trả lời (1) |
Trích dẫn:Dim db As Database
Dim rc As Recordset
Dim cm
Dim str
Dim dung As Boolean
If IsNull(Me.magv) = True Then
str = MsgBox ("Ma giao vien khong duoc bo trong!", vbInformation, "Thông Báo")
Exit Sub
End If
dung = False
Set db = CurrentDb()
Set rc = db.OpenRecordset("giaovien")
cm = Me.magv.Value
Do Until rc.EOF
If rc![magv] = cm Then
dung = True
End If
rc.MoveNext
Loop
rc.Close
If dung = True Then
str = MsgBox ("Ma giao vien nay da co nay da ton tai!!Ban co muon thay doi thong tin khong?", vbYesNo + vbInformation, "Thông Báo")
If str = vbYes Then
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
Me.cmdke.Enabled = True
Me.cmdsua.Enabled = True
Me.cmdthem.Enabled = True
Me.cmdthoat.Enabled = True
Me.cmdtruoc.Enabled = True
Me.cmdxoa.Enabled = True
Else
Me.Undo
Me.cmdke.Enabled = True
Me.cmdsua.Enabled = True
Me.cmdthem.Enabled = True
Me.cmdthoat.Enabled = True
Me.cmdtruoc.Enabled = True
Me.cmdxoa.Enabled = True
End If
Exit Sub
End If
If IsNull(Me.magv) = True Or IsNull(Me.hotengv) = True Or IsNull(Me.phaigv) = True Or IsNull(Me.ngaysinhgv) = True Or IsNull(Me.diachigv) = True Or IsNull(Me.sdtgv) = True Or IsNull(Me.tinhtranggv) = True Then
str = MsgBox ("Ban can dien day du thong tin!!", vbInformation, "Thông Báo")
Exit Sub
End If
If IsNull(Me.magv) = False And IsNull(Me.hotengv) = False And IsNull(Me.phaigv) = False And IsNull(Me.ngaysinhgv) = False And IsNull(Me.diachigv) = False And IsNull(Me.sdtgv) = False And IsNull(Me.tinhtranggv) = False And dung = False Then
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
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.cmdsua.Enabled = True
Me.cmdxoa.Enabled = True
Me.cmdthoat.Enabled = True
Exit Sub
End If
|
|
Viết bởi: tvn_hut 06-06-13, 03:36 AM Chuyên mục: Thủ thuật VBA - Bài trả lời (2) |
|
|
Viết bởi: trungn077 06-06-13, 12:25 AM Chuyên mục: Forms - Không có hồi đáp |

, Nhưng ác nỗi 


|
|
Viết bởi: khampha286 06-06-13, 12:18 AM Chuyên mục: Thư viện thủ thuật - Bài trả lời (1) |
| Chủ đề Mới nhất |
| Quản Lý Phòng Khám Tư Nhâ... -Chuyên mục: Thư Viện Ứng Dụng-Đăng bởi lần cuối: Le Duc-24-09-26, 12:03 AM- » Bài trả lời: 34- » Lượt xem: 8,345 |
| Tạo Form không có khung v... -Chuyên mục: Thư viện thủ thuật-Đăng bởi lần cuối: ongke0711-05-09-26, 10:12 PM- » Bài trả lời: 0- » Lượt xem: 146 |
| Tải hàng loạt hóa đơn PDF... -Chuyên mục: Thành viên giúp nhau-Đăng bởi lần cuối: dotrung-16-08-26, 10:29 PM- » Bài trả lời: 6- » Lượt xem: 160 |
| Quản lý kho bằng Accesss -Chuyên mục: Thảo Luận Access-Đăng bởi lần cuối: AKBui-09-08-26, 12:52 AM- » Bài trả lời: 77- » Lượt xem: 8,101 |
| Tra cứu Mã số thuế - phần... -Chuyên mục: Share Code-Đăng bởi lần cuối: ongke0711-03-07-26, 02:10 PM- » Bài trả lời: 0- » Lượt xem: 182 |
| Đồ cổ đây - một chút hoài... -Chuyên mục: Góc ảnh-Đăng bởi lần cuối: Noname-12-06-26, 09:21 AM- » Bài trả lời: 1- » Lượt xem: 659 |
| Tra cứu thông tin DN qua ... -Chuyên mục: Thư Viện Ứng Dụng-Đăng bởi lần cuối: ongke0711-02-06-26, 11:36 PM- » Bài trả lời: 0- » Lượt xem: 185 |
| Homestay chill đà lat -Chuyên mục: Góc Blogger-Đăng bởi lần cuối: tt1212-01-06-26, 02:51 PM- » Bài trả lời: 0- » Lượt xem: 630 |
| Quản lý quầy thuốc nhỏ lẻ -Chuyên mục: Thư Viện Ứng Dụng-Đăng bởi lần cuối: ongke0711-09-05-26, 11:24 AM- » Bài trả lời: 4- » Lượt xem: 3,615 |
| TẠO THÔNG BÁO NHẮC NHỞ CÔ... -Chuyên mục: Tương tác Chương trình ngoài-Đăng bởi lần cuối: ongke0711-07-04-26, 10:46 AM- » Bài trả lời: 2- » Lượt xem: 285 |
| Diễn đàn Thống kê |
|
» Thành viên: 0 » Thành viên mới nhất: Không có ai » Các chủ đề diễn đàn: 0 » Các bài viết diễn: 0 Thống kê đầy đủ |