https://i.imgur.com/A0Syu53.jpg

Bạn gửi file mới làm lên đây để sửa cho nhanh.

http://www.mediafire.com/file/obu19gz63e...2503.accdb

link đây bác ơi em đang dùng office 2016 bác giúp em với nhé.

cái em đang làm là ở form 1

http://www.mediafire.com/file/1wafnnwmdr...data01.mdb

đây là file em mới làm lại theo access 2003

Đã xử lý

F_nhapxuat

(07-04-18, 09:10 AM)tranthanhan1962 Đã viết: Đã xử lý

F_nhapxuat

Cám ơn bác! để em xem

(07-04-18, 09:10 AM)tranthanhan1962 Đã viết: Đã xử lý

F_nhapxuat

Chân thành cám ơn bác. Mặc dù đã làm được nhưng em chưa hiểu lắm. bác có tài liệu về viết code như thế này có thể share cho em với. Em tự mày mò lên cũng chưa hiểu ý nghĩa đoạn code này như thế nào. Có thể bác giải thích cho em với.

Private Sub Form_Current()
    Form_F_nhapxuat.TonKho.Requery
End Sub

Private Sub mahang_AfterUpdate()
    Form_F_nhapxuat.TonKho.Requery
End Sub

Private Sub soluong_AfterUpdate()
    Me.Refresh
    Form_F_nhapxuat.TonKho.Requery
    If Forms![F_nhapxuat]![TonKho].Form![Ton].Value < 0 Then
    MsgBox "Âm kho!"
    End If
End Sub

Bạn nên ngâm cứu từ cơ bản, tránh đốt cháy giai đoạn. Nếu bạn muốn nhanh chóng thì bỏ thời gian cho việc tự học nhiều lên để nắm bắt cơ bản cho nhanh. Nếu không có cơ bản mà nhảy vô viết ứng dụng luôn sẽ bị lủng tùm lum sửa còn mệt và mất thời gian hơn nữa. Hơn nữa nếu không có cơ bản, bạn không thể tự học thông qua code của người khác.
Lúc trước có sách tự học Access của bác Ông Văn Thông viết rất dễ hiểu, hướng dẫn học lập trình Access thông qua thiết kế một ứng dụng cụ thể (thiết kế tới đâu giải thích tới đó). Nếu bạn kiếm được thì mua về đọc và làm theo.
Ebook, video trên mạng cũng nhiều và tôi cũng có thấy ebook của Nguyễn Quang Hải có hướng dẫn cơ bản thông qua một ứng dụng nhỏ, cũng hữu ích để bạn tự học.
Link: Access 2000.pdf

(07-04-18, 08:07 PM)ongke0711 Đã viết: Bạn nên ngâm cứu từ cơ bản, tránh đốt cháy giai đoạn. Nếu bạn muốn nhanh chóng thì bỏ thời gian cho việc tự học nhiều lên để nắm bắt cơ bản cho nhanh. Nếu không có cơ bản mà nhảy vô viết ứng dụng luôn sẽ bị lủng tùm lum sửa còn mệt và mất thời gian hơn nữa. Hơn nữa nếu không có cơ bản, bạn không thể tự học thông qua code của người khác.
Lúc trước có sách tự học Access của bác Ông Văn Thông viết rất dễ hiểu, hướng dẫn học lập trình Access thông qua thiết kế một ứng dụng cụ thể (thiết kế tới đâu giải thích tới đó). Nếu bạn kiếm được thì mua về đọc và làm theo.
Ebook, video trên mạng cũng nhiều và tôi cũng có thấy ebook của Nguyễn Quang Hải có hướng dẫn cơ bản thông qua một ứng dụng nhỏ, cũng hữu ích để bạn tự học.
Link: Access 2000.pdf

trân thành cám ơn bác nhiều. Lúc đầu em nghĩ làm một phần mềm không dùng đến code vì trước ở cấp 2 cũng từng học một chút về access này tự nhớ lại với xem video trên youtube làm được đến đây cũng mất hơn 2 tháng rồi mắc một số vấn đề lên tìm hiểu thì ra nhiều cái hay lên tự muốn mở mang. Và làm cho cái phần mềm của mình nó chuyên nghiệp hơn. 
Phần cơ bản thì em cũng biết sơ sơ rồi, còn phần viết code thì mù tịt chưa viết cái code nào bao giờ cả, trước đây cũng mày mò học được một chút pacal nhưng gần như không áp dụng được vào VB mấy.
tài liệu bác cho Em sẽ nghiên cứu ngay.
Cám ơn bác lần nữa

(07-04-18, 06:22 PM)NguyenDungAnh Đã viết:

(07-04-18, 09:10 AM)tranthanhan1962 Đã viết: Đã xử lý

F_nhapxuat

Chân thành cám ơn bác. Mặc dù đã làm được nhưng em chưa hiểu lắm. bác có tài liệu về viết code như thế này có thể share cho em với. Em tự mày mò lên cũng chưa hiểu ý nghĩa đoạn code này như thế nào. Có thể bác giải thích cho em với.

Private Sub Form_Current()
    Form_F_nhapxuat.TonKho.Requery
End Sub

Private Sub mahang_AfterUpdate()
    Form_F_nhapxuat.TonKho.Requery
End Sub
Đây là một trong những code rất đơn giản, nếu bạn không thể hiểu được thì chắc phải dừng lại.
Private Sub soluong_AfterUpdate()
    Me.Refresh
    Form_F_nhapxuat.TonKho.Requery
    If Forms![F_nhapxuat]![TonKho].Form![Ton].Value < 0 Then
    MsgBox "Âm kho!"
    End If
End Sub

Đúng như ongke0711 đã góp ý không chỉ với access nếu ạn viết phần mềm là tương tác với máy trính, bạn phải hiểu ngôn ngữ của nó
Private Sub Form_Current()
    Form_F_nhapxuat.TonKho.Requery
End Sub

Private Sub mahang_AfterUpdate()
    Form_F_nhapxuat.TonKho.Requery
End Sub

Private Sub soluong_AfterUpdate()
    Me.Refresh
    Form_F_nhapxuat.TonKho.Requery
    If Forms![F_nhapxuat]![TonKho].Form![Ton].Value < 0 Then
    MsgBox "Âm kho!"
    End If
End Sub