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 |
Viết bởi: huynguyenbd 30-10-11, 09:53 AM Chuyên mục: Thủ thuật VBA - Bài trả lời (7) |
Viết bởi: kaise86 29-10-11, 10:41 PM Chuyên mục: Query - Bài trả lời (7) |
Chủ đề Mới nhất |
Keep your secret, no stri... -Chuyên mục: Forms-Đăng bởi lần cuối: nguyenngocthanh2609-1 Giờ trước- » Bài trả lời: 0- » Lượt xem: 1 |
offtopic -Chuyên mục: Trao đổi Góp ý-Đăng bởi lần cuối: duardliwoa-3 Giờ trước- » Bài trả lời: 0- » Lượt xem: 1 |
E xin chia sẽ phần mềm Qu... -Chuyên mục: Forms-Đăng bởi lần cuối: ongke0711-13-05-24, 10:37 PM- » Bài trả lời: 1- » Lượt xem: 39 |
Demo tạo Barcode (1D) bằn... -Chuyên mục: Thư Viện Ứng Dụng-Đăng bởi lần cuối: ongke0711-13-05-24, 10:33 PM- » Bài trả lời: 2- » Lượt xem: 51 |
[Demo 1] Tạo Textbox tìm ... -Chuyên mục: Thủ thuật VBA-Đăng bởi lần cuối: nguyencaothong-10-05-24, 11:07 PM- » Bài trả lời: 13- » Lượt xem: 1,504 |
[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,537 |
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,601 |
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: 56 |
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,969 |
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,835 |
Diễn đàn Thống kê |
» Thành viên: 4,563 » Thành viên mới nhất: duardliwoa » Các chủ đề diễn đàn: 9,858 » Các bài viết diễn: 48,444 Thống kê đầy đủ |