Viết bởi: petrcz 02-11-11, 07:09 AM Chuyên mục: Forms - Bài trả lời (4) |
Viết bởi: monkeyish14 01-11-11, 09:37 PM Chuyên mục: Query - Bài trả lời (4) |
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
Chủ đề Mới nhất |
Жидкости для промывки,тес... -Chuyên mục: Ms PowerPoint-Đăng bởi lần cuối: JimmyScusy-47 Phút trước- » 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-6 Giờ trước- » Bài trả lời: 0- » Lượt xem: 4 |
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,947 |
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,790 |
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: 809 |
[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: 69 |
Diễn đàn Thống kê |
» Thành viên: 4,511 » Thành viên mới nhất: JimmyScusy » Các chủ đề diễn đàn: 9,860 » Các bài viết diễn: 48,444 Thống kê đầy đủ |