Hỏi và đáp các bài tập Access.

Liên hệ QC

File đính kèm

  • bai tap access.rar
    122.6 KB · Đọc: 715
thanks bác nhiều lắm cả ngày chủ nhật em hỏi không ai trả lời nên em đã cố gắng ngồi làm và đã ok rồi bác
 
Giúp Em phần inpubox trong access

Em có làm bài tập về tìm kiếm nhưng mà do mới làm quen nên đang khó quá em có chỗ này muốn các anh chỉ giúp
cái chỗ mà em cho chữ màu đỏ đó em muốn tìm một học sinh trong bảng học sinh mà không phải tìm cố định một học sinh "10C1-01" Như ở dưới mà em muốn mỗi khi mình click vào nút "Tìm Kiếm" là mình nhập mã học sinh nào mình muốn tìm thì nhập vào đó ông thầy em nói dùng hàm inputbox mà em không biết mong các anh chỉ giúp
Dưới file đính kèm đó em đang làm ở form tên là câu 1 ạ
Cái file này do thâyd đưa nên nó bị sao đó mỗi khi muốn mở file phải ấn giữ phím Shift mở nó sẽ k bị đơ máy
Em cám ơn trước ạ

PHP:
Private Sub Command20_Click()
Dim dtbhs As Database
Dim tblhocsinh As Recordset
Set dtbhs = CurrentDb()
Set tblhocsinh = dtbhs.OpenRecordset("hocsinh", dbOpenDynaset)
tblhocsinh.FindFirst = "mahs ='10C1-01'"
If tblhocsinh.NoMatch = False Then
    MsgBox "Tim Thay Hoc Sinh Nay.", 64, "Tim"
Else
    MsgBox "Khong tim thay hoc sinh nay.", 64, "Tim"
    End If
End Sub
 

File đính kèm

  • Quan Ly Hoc Sinh.rar
    730.4 KB · Đọc: 310
Chỉnh sửa lần cuối bởi điều hành viên:
Em có làm bài tập về tìm kiếm nhưng mà do mới làm quen nên đang khó quá em có chỗ này muốn các anh chỉ giúp
cái chỗ mà em cho chữ màu đỏ đó em muốn tìm một học sinh trong bảng học sinh mà không phải tìm cố định một học sinh "10C1-01" Như ở dưới mà em muốn mỗi khi mình click vào nút "Tìm Kiếm" là mình nhập mã học sinh nào mình muốn tìm thì nhập vào đó ông thầy em nói dùng hàm inputbox mà em không biết mong các anh chỉ giúp
Dưới file đính kèm đó em đang làm ở form tên là câu 1 ạ
Cái file này do thâyd đưa nên nó bị sao đó mỗi khi muốn mở file phải ấn giữ phím Shift mở nó sẽ k bị đơ máy
Em cám ơn trước ạ

Private Sub Command20_Click()
Dim dtbhs As Database
Dim tblhocsinh As Recordset
Set dtbhs = CurrentDb()
Set tblhocsinh = dtbhs.OpenRecordset("hocsinh", dbOpenDynaset)
tblhocsinh.FindFirst = "mahs ='10C1-01'"
If tblhocsinh.NoMatch = False Then
MsgBox "Tim Thay Hoc Sinh Nay.", 64, "Tim"
Else
MsgBox "Khong tim thay hoc sinh nay.", 64, "Tim"
End If
End Sub
Nói với Thầy của bạn cái điều làm cho bạn bị "đơ" máy đó, theo mình thì ứng dụng chạy càng nhanh càng tốt, bỏ qua những thứ "trang điểm" không cần thiết, làm lãng phí bộ nhớ máy tính, lãng phí thời gian của người khác.
InputBox bạn làm như sau:

Mã:
Private Sub Command20_Click()
Dim dtbhs As Database
Dim strTim As String
strTim = InputBox("Vui long go ma hoc sinh can tim", "Tim ma hoc sinh")
If Len(strTim) = 0 Then Exit Sub
Dim tblhocsinh As Recordset
Set dtbhs = CurrentDb()
Set tblhocsinh = dtbhs.OpenRecordset("hocsinh", dbOpenDynaset)
tblhocsinh.FindFirst "mahs like '" & strTim & "'"
If tblhocsinh.NoMatch = False Then
    MsgBox "Tim Thay Hoc Sinh Nay.", 64, "Tim"
Else
    MsgBox "Khong tim thay hoc sinh nay.", 64, "Tim"
    End If
End Sub
 

File đính kèm

  • InputBox.rar
    729.7 KB · Đọc: 259
Lần chỉnh sửa cuối:
Ai làm ơn giúp mình tạo một cái report hiển thị 5 học sinh đứng đầu mỗi lớp vớiReport gồm stud_ID, Stud_Fname, Stud_Lname, Stud_Grade, TongDiem trong Q6_Query / Subject trong Student_Academic_Details
 

File đính kèm

  • Nhom 2.rar
    64.6 KB · Đọc: 77
xin các bác chỉ giúp cách làm cái bảng access này

Em tạo 1 bảng là tác giả, 1 bảng là tác phẩm
giờ em muốn tạo cái bảng thứ 3 trong đó có 2 field: 1 field là chọn tên tác giả, 1 field là chọn tác phẩm. khi em chọn 1 tác giả nào đó thì ở field kia chọn chỉ hiện tên tác phẩm của tác giả đó thôi (để tránh việc nhầm lẫn râu ông nọ cắm cằm bà kia).
Em ko biết nhiều về access vì mới học. xin các bác chỉ giùm
Em xin cảm ơn!
dưới đây là file access đính kèm của em các bác xem và chỉ giúp
http://www.mediafire.com/?68ud9omdu3ps3nu
Thanls!
 
xin các bác chỉ giúp cách làm cái bảng access này

Em tạo 1 bảng là tác giả, 1 bảng là tác phẩm
giờ em muốn tạo cái bảng thứ 3 trong đó có 2 field: 1 field là chọn tên tác giả, 1 field là chọn tác phẩm. khi em chọn 1 tác giả nào đó thì ở field kia chọn chỉ hiện tên tác phẩm của tác giả đó thôi (để tránh việc nhầm lẫn râu ông nọ cắm cằm bà kia).
Em ko biết nhiều về access vì mới học. xin các bác chỉ giùm
Em xin cảm ơn!
dưới đây là file access đính kèm của em các bác xem và chỉ giúp
http://www.mediafire.com/?68ud9omdu3ps3nu
Thanls!
Với yêu cầu cầu của bạn nên chú ý
tác giả và tác phẩm là quan hệ nhiều chiều (1 tác giả có nhiều tác phẩm và ngược lại 1 tác phẩm có nhiều tác giả)
Bạn phải giải quyết vấn đề này trước khi làm các bước tiếp theo.
 
Help :(

Tình hình mình cần giúp vài câu hỏi về mẫu hỏi trong access

Câu hỏi trong file đính kèm

Thanks :X
 

File đính kèm

  • Bài tập.rar
    13.6 KB · Đọc: 125
Tình hình mình cần giúp vài câu hỏi về mẫu hỏi trong access

Câu hỏi trong file đính kèm

Thanks :X
Lần này làm cho bạn, lần sau tự làm nhé

Câu 3.2

SELECT [Hodem] & " " & [ten] AS HoVaTen, HOC_SINH.GT, HOC_SINH.NgaySinh, HOC_SINH.DiaChi
FROM HOC_SINH
WHERE (((HOC_SINH.DoanVien)=True));

Câu 3.3

SELECT HOC_SINH.HoDem, HOC_SINH.Ten, HOC_SINH.NgaySinh
FROM HOC_SINH
WHERE (((Month([ngaysinh])) Between 3 And 6));

Câu 3.4

SELECT HOC_SINH.HoDem, HOC_SINH.Ten, HOC_SINH.NgaySinh, HOC_SINH.DiaChi, HOC_SINH.ToHS, HOC_SINH.GT
FROM HOC_SINH
WHERE (((HOC_SINH.ToHS)=2) AND ((HOC_SINH.GT)=False))
ORDER BY HOC_SINH.NgaySinh;

Câu 3.5

SELECT HOC_SINH.HoDem, HOC_SINH.Ten, HOC_SINH.NgaySinh, HOC_SINH.Toan, HOC_SINH.Ly, HOC_SINH.Hoa, HOC_SINH.Tin, HOC_SINH.Van
FROM HOC_SINH
WHERE (((Year([ngaysinh]))=1990));

Câu 3.6

SELECT HOC_SINH.HoDem, HOC_SINH.Ten, HOC_SINH.NgaySinh, HOC_SINH.Tin
FROM HOC_SINH
WHERE (((HOC_SINH.NgaySinh)=#6/12/1991#));

Câu 3.7

SELECT HOC_SINH.HoDem, HOC_SINH.Ten, HOC_SINH.GT, HOC_SINH.NgaySinh
FROM HOC_SINH
WHERE (((HOC_SINH.DoanVien)=True))
ORDER BY HOC_SINH.GT, HOC_SINH.NgaySinh DESC;

Câu 3.8

SELECT HOC_SINH.ToHS, Avg(HOC_SINH.Toan) AS AvgOfToan, Avg(HOC_SINH.Van) AS AvgOfVan
FROM HOC_SINH
GROUP BY HOC_SINH.ToHS;

Câu 3.9

SELECT TOP 1 HOC_SINH.HoDem, HOC_SINH.Ten, IIf([GT],"Nam","Nữ") AS [Gioi Tinh], HOC_SINH.Tin
FROM HOC_SINH
ORDER BY HOC_SINH.Tin DESC;

Bạn xem thêm file nhé
 

File đính kèm

  • 2222.rar
    11.5 KB · Đọc: 159
Mọi người giúp mình mấy bài tập ở phần query với

Đúng hôm học phần này thì mình nghỉ học nên ko hiểu lắm nhờ mọi người giúp bài này với
ở tập tin đính kèm
 

File đính kèm

  • bài tập.doc
    34 KB · Đọc: 66
  • baitap.zip
    34.4 KB · Đọc: 97
Ai giúp mình với, làm được tới câu này thì không bik hướng ??
* Hiển thị danh sách mặt hàng có số lượng tồn kho >100 tại thời điểm hiện tại. Thông tin hiển thị gồm : MaHG, TenHang, SlTonDK, TongSlBan, SLTonKho
 

File đính kèm

  • QuanLyBanHang.rar
    35.1 KB · Đọc: 91
Ai giúp mình với, làm được tới câu này thì không bik hướng ??
* Hiển thị danh sách mặt hàng có số lượng tồn kho >100 tại thời điểm hiện tại. Thông tin hiển thị gồm : MaHG, TenHang, SlTonDK, TongSlBan, SLTonKho
Không thấy bảng nhập trong kỳ? Không có mặt hàng nào có số lượng > 100?
Để làm bài tập này bạn cần thiết kế 2 query, 1 là để tổng hợp số lượng bán, 2 là truy vấn Query tổng hợp bán để biết được sl tồn kho.
-Q_SLBan:

SELECT ChiTietHD.MaHang, Sum(ChiTietHD.SoLuong) AS SoLuongBan
FROM ChiTietHD
GROUP BY ChiTietHD.MaHang;

-Q_SLTonCK:

SELECT DMHangHoa.MaHang, DMHangHoa.TenHang, DMHangHoa.DVT, DMHangHoa.SLTonDK, Q_SLBan.SoLuongBan, [SLTonDK]-IIf(IsNull([SoLuongBan]),0,[SoLuongBan]) AS SLTonCK
FROM DMHangHoa LEFT JOIN Q_SLBan ON DMHangHoa.MaHang = Q_SLBan.MaHang
WHERE ((([SLTonDK]-IIf(IsNull([SoLuongBan]),0,[SoLuongBan]))>100));
 

File đính kèm

  • QuanLyBanHang.rar
    17.3 KB · Đọc: 86
Lần chỉnh sửa cuối:
[SLTonDK]-IIf(IsNull([SoLuongBan]),0,[SoLuongBan]) AS SLTonCK // Mình không hiểu rõ câu này lắm, bạn giải thích dùm mình ???
FROM DMHangHoa LEFT JOIN Q_SLBan ON DMHangHoa.MaHang = Q_SLBan.MaHang
WHERE ((([SLTonDK]-IIf(IsNull([SoLuongBan]),0,[SoLuongBan]))>100)); // còn câu này nữa, tại sao lại iif(isnull) ??? Cám ơn nhiều !
 
[SLTonDK]-IIf(IsNull([SoLuongBan]),0,[SoLuongBan]) AS SLTonCK // Mình không hiểu rõ câu này lắm, bạn giải thích dùm mình ???
FROM DMHangHoa LEFT JOIN Q_SLBan ON DMHangHoa.MaHang = Q_SLBan.MaHang
WHERE ((([SLTonDK]-IIf(IsNull([SoLuongBan]),0,[SoLuongBan]))>100)); // còn câu này nữa, tại sao lại iif(isnull) ??? Cám ơn nhiều !

- Hàm IIf giống như hàm IF bên excel.
- IIf(IsNull([SoLuongBan]),0,[SoLuongBan]): Nếu dòng nào trong trường SoLuongBan là trống (Isnull) thì gán cho nó là 0 còn ngược lại là chính nó.
 
Em mới học access. Em có một một DATA.
Xin anh chị tạo giúp em 02 Query như file đính kèm

Vì em mới học Access nên em tạo dữ liệu và yêu cầu chi tiết trên sheet EXCEL

Xin cám ơn
 

File đính kèm

  • Access project.xls
    32.5 KB · Đọc: 39
Làm thế nào tạo quan hệ cho các bảng PHIEU_NHAP_XUAT và CT_PHIEU_NHAP_XUAT? Các pro chỉ giáo giúp mình với
PHIEU_NHAP_XUAT(SOPH, LOAIPHIEU, NGAYLAPPHIEU, MANV, TRIGIA)
CT_PHIEU_NHAP_XUAT(SOPH, LOAIPHIEU, MAHH, SOLUONG, DONGIA)
 
Lần chỉnh sửa cuối:
Làm sao để liên kết Form và tables trong Access

Các bác cho em hỏi : Em có 1 form Person trong Access. Khi em add new thi nó tự động update vào table Person , nhưng em muốn nó đồng thời update vào 4 table Person của 4 file Access khác. Biết rằng các cấu trúc và định dạng các table là y chang nhau. Em không thể dùng linked table vì program em đang chạy nó hok hiểu. Chỉ có thể dùng Macro hay Query hay sao đó thôi. Bác nào biết giúp em với nha. Em cảm ơn nhiều
P/S chắc File nặng quá ko upload được. Các bác thông cảm nha
 
Em mới học access. Em có một một DATA.
Xin anh chị tạo giúp em 02 Query như file đính kèm

Vì em mới học Access nên em tạo dữ liệu và yêu cầu chi tiết trên sheet EXCEL

Xin cám ơn
Nhìn dữ liệu của bạn thì ai mà làm cho nổi đây???
Nên đưa dữ liệu thật đơn giản để từ đó làm căn cứ rồi bạn tự làm.
 
Làm thế nào tạo quan hệ cho các bảng PHIEU_NHAP_XUAT và CT_PHIEU_NHAP_XUAT? Các pro chỉ giáo giúp mình với
PHIEU_NHAP_XUAT(SOPH, LOAIPHIEU, NGAYLAPPHIEU, MANV, TRIGIA)
CT_PHIEU_NHAP_XUAT(SOPH, LOAIPHIEU, MAHH, SOLUONG, DONGIA)
Bạn tạo 1 querry để liên kết giữa 2 table Phieu_nhap_xuat và CT_phieu_nhap_xuat
Thôi mình làm 1 cái VD đơn giản này
 

File đính kèm

  • VD access.rar
    22.4 KB · Đọc: 72
Web KT
Back
Top Bottom