Viết bởi: philuan1008 01-11-11, 08:51 PM Chuyên mục: Tương tác Chương trình ngoài - Bài trả lời (2) |
Viết bởi: focalemife117 01-11-11, 01:54 PM Chuyên mục: Thư Viện Ứng Dụng - Bài trả lời (6) |
Viết bởi: huynguyenbd 01-11-11, 10:05 AM Chuyên mục: Thủ thuật VBA - Bài trả lời (2) |
Private Sub cmdthem_Click()
On Error GoTo loi
Dim ma As String, ten As String, ngaysinh As Date, tuoi As Long
Dim bang As Recordset
ma = Me.txtma
ten = Me.txtten
ngaysinh = Me.txtngaysinh
tuoi = Year(Now()) - Year(ngaysinh)
Set bang = CurrentDb.OpenRecordset("select * from sinhvien")
bang.FindFirst ("masv= '" & ma & "'")
If Not bang.NoMatch Then
MsgBox "Masv: " & ma & " da co, nhap lai", vbInformation, "Thong bao"
bang.Close
Exit Sub
Else
If ngaysinh > Now() Then
MsgBox "Ngay sinh phai nho hon ngay hien tai", vbInformation, "Thong bao"
bang.Close
Exit Sub
ElseIf MsgBox("Ban co muon them sinh vien nay khong?", vbQuestion + vbYesNo) = vbYes Then
bang.AddNew
bang!masv = ma
bang!ten = ten
bang!ngaysinh = ngaysinh
bang!tuoi = tuoi
bang.Update
End If
End If
loi:
Select Case Err
Case 94
MsgBox "Vui long nhap day du thong tin can them", vbInformation, "Thong bao"
Exit Sub
Case 13
MsgBox "Ngay sinh phai theo dinh dang dd/mm/yyyy", vbInformation, "Thong bao"
Exit Sub
End Select
End Sub
Viết bởi: hoangvietcuongvn 31-10-11, 11:04 AM Chuyên mục: Forms - Bài trả lời (1) |
Viết bởi: huynguyenbd 31-10-11, 10:09 AM Chuyên mục: Thư Viện Ứng Dụng - Không có hồi đáp |
Chủ đề Mới nhất |
[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: huyhoang22-06-05-24, 03:29 PM- » Bài trả lời: 40- » Lượt xem: 5,477 |
Quản lý kho bằng Accesss -Chuyên mục: Thảo Luận Access-Đăng bởi lần cuối: huyhoang22-06-05-24, 03:21 PM- » Bài trả lời: 40- » Lượt xem: 1,561 |
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 |
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,952 |
In mã vạch tạo từ access ... -Chuyên mục: Forms-Đăng bởi lần cuối: huyhoang22-15-04-24, 11:25 AM- » Bài trả lời: 38- » Lượt xem: 20,798 |
Kết nối bảng từ access A ... -Chuyên mục: Thủ thuật VBA-Đăng bởi lần cuối: hieunx-11-04-24, 01:23 PM- » Bài trả lời: 5- » Lượt xem: 85 |
Lấy dữ liệu từ 1 cột của ... -Chuyên mục: Query-Đăng bởi lần cuối: ongke0711-09-04-24, 11:34 AM- » Bài trả lời: 11- » Lượt xem: 866 |
[Lỗi] Automation error kh... -Chuyên mục: Thành viên giúp nhau-Đăng bởi lần cuối: AnNguyen-05-04-24, 09:30 AM- » Bài trả lời: 4- » Lượt xem: 71 |
Lọc tên vật tư theo nhóm -Chuyên mục: Forms-Đăng bởi lần cuối: ongke0711-02-04-24, 04:00 PM- » Bài trả lời: 1- » Lượt xem: 51 |
Thơ con cóc -Chuyên mục: Góc Thơ -Đăng bởi lần cuối: Xuân Thanh-01-04-24, 06:45 PM- » Bài trả lời: 111- » Lượt xem: 59,121 |
Diễn đàn Thống kê |
» Thành viên: 4,525 » Thành viên mới nhất: AbigailRaimb » Các chủ đề diễn đàn: 9,858 » Các bài viết diễn: 48,444 Thống kê đầy đủ |