paulsteigel > 09-07-16, 09:34 AM
Trích dẫn:Với những cái em đã đọc và em đã làm 1 ví dụ này. Em làm ví dụ về quản lý hàng hóa. Em đã tạo các bảng (như file đính kèm). Em đã đặt các khóa. Em đã làm đến bước tạo Relationships thì chưa được.Liên kết đến CSDL ở đây
Trong ví dụ này, anh xem em:
- Em đã tạo các khóa như vậy đã được chưa?
- Em tạo các bảng với nội dung như vậy có hợp lý không để truy vấn dữ liệu và sau này còn tạo Form?
- Em tạo quan hệ Relationships cho PHIEUNHAPKHO thì được. Nhưng đến PHIEUXUATKHO, sao em không tạo được MADOITUONG có quan hệ 1 với nhiều?
Đó là những gì em đã đọc được và làm ví dụ áp dụng. Anh xem qua cho em và hướng dẫn em thêm nhé!
Cám ơn anh Ngọc nhiều!
Em Ngọc
------------------------------------------------
^^ Chập chững đi....
Ranju > 11-07-16, 02:15 AM
Ranju > 11-07-16, 03:42 AM
paulsteigel > 11-07-16, 07:14 AM
Trích dẫn:Chào mọi người! Em có ví dụ này nhờ mọi người xem dùm cho em nhé!Câu hỏi trong Link http://thuthuataccess.com/forum/thread-9396.html
- Khi em nhập thông tin và chọn nút Ghi sao nó không hiển thị trên List mà phải thoát form và khởi động lại mới thấy?
- Khi em cho mã hàng để xóa và chọn nút Xóa sao nó không cập nhật lại và cũng phải thoát form rùi mở lại mới thấy nó được xóa?
- Em đã chọn hiển thị 4 cột, vậy mà khi mở form không thấy cột mã hàng đâu cả mà chỉ có 3 cột?
Vậy nhờ mọi người xem cho em và hướng dẫn em thêm nhé!
Cám ơn mọi người nhiều!
paulsteigel > 11-07-16, 07:15 AM
paulsteigel > 11-07-16, 07:17 AM
trav2t > 11-07-16, 11:39 AM
trav2t > 11-07-16, 02:34 PM
Private Sub CMD_GHI_Click()
If IsNull(MAHANG) = True Then
MsgBox "Ma hang khong duoc de trong!", vbCritical, "ACCESS"
MAHANG.SetFocus
ElseIf DCount("MAHANG", "DMKHOHANG", "MAHANG='" & MAHANG & "'") = 1 Then ' Dieu kien ma hang trung nhau (Ma da ton tai)'
MsgBox "Ma hang nay da ton tai. Vui long nhap ma khac!", vbCritical, "ACCESS"
MAHANG.SetFocus
Else
DoCmd.RunCommand acCmdSaveRecord
Me.Refresh 'Them vao dong nay de lam sach form va load lai du lieu'
End If
End Sub
'Them 03 dong trong CMD_XOA'
Private Sub CMD_XOA_Click()
If MsgBox("Ban co muon xoa ma hang nay khong?", vbYesNo + vbQuestion, "ACCESS") = vbYes Then
DoCmd.SetWarnings False 'Tat canh bao mac dinh cua Access'
DoCmd.RunCommand acCmdDeleteRecord
DoCmd.SetWarnings True 'Bat lai canh bao mac dinh cua Access'
Me.Refresh 'Them vao dong nay de lam sach form va load lai du lieu'
End If
End Sub
cpucloi > 11-07-16, 03:07 PM
haonlh > 25-04-17, 11:17 PM
(09-07-16, 09:34 AM)paulsteigel Đã viết: Tôi viết chủ đề này với mục đích giúp đỡ các bạn mới bắt đầu học Access có thể tiếp cận với Access..
...
Góp ý thứ nhất....Luôn giữ cho CSDL gọn gàng và nhỏ
Với người mới học, thao tác thường hay quên và ít chú ý nhất đó là Làm gọn file Access của mình. Đây là việc làm cho các phần thừa, các bản ghi/ bảng ..vv đã bị xóa mất hẳn khỏi CSDL. Làm như vậy, kích thước file sẽ nhỏ đi rất nhiều (chẳng hạn file của bạn Ngọc hiện tại là 2.2M, sau khi nén lại chỉ còn 544K)
Cách làm như sau: Nhấn vào File/ chọn Compact and Repair Database.
Hoặc có thể làm một cách tự động mỗi khi thoát khỏi Database bằng cách
Nhấn File/Option/Current Database/ Chọn Compact on Close...
...