Tùy chọn
Thủ Thuật Access
-
Trang chủ
|
Viết bởi: petrcz 02-11-11, 07:09 AM Chuyên mục: Forms - Bài trả lời (4) |
Mong được chỉ giúp
Lọc danh sách những học viên chưa thi môn nào và hàm tính điểm Kết Quả|
|
Viết bởi: monkeyish14 01-11-11, 09:37 PM Chuyên mục: Query - Bài trả lời (4) |
Và xin giúp em hàm tính Điểm Kết Quả cảm ơn mọi người nhiều ạ
Giúp gấp giùm em
|
|
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) |
Vấn đề là thế này ạ, trong kinh doanh bán lẻ đơn giản có 3 hoạt động cơ bản: Nhập hàng, bán hàng, kiểm tra hàng tồn
Em đang vướng mắc ở cái kiểm tra hàng tồn với yêu cầu như sau:
- Có một danh sách mã hàng
- Nếu mã hàng nào chưa nhập về, thì báo cáo tồn là 0
- Nếu mã hàng đã nhập, mà chưa bán thì : số lượng tồn = số lượng nhập
- Nếu mã hàng có số lượng bán thì : số lượng tồn = tổng nhập - tổng xuất.
Bài toán chỉ có vậy thôi, mà em nghĩ mãi không ra các bác ạ
|
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) |
Mã:
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 SubDemo: http://www.mediafire.com/?ohagcumefxcce5b
Mong được hồi âm.
| 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,298 |
| 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: 129 |
| 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: 146 |
| 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: 7,889 |
| 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: 160 |
| Đồ 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: 590 |
| 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: 176 |
| 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: 518 |
| 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,594 |
| 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: 273 |
| 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 đủ |