• Tùy chọn
• Đăng nhập
• Đăng ký
• Xem như trên Máy tính
• Accelerated Mobile Pages Theme

Thủ Thuật Access

• Trang chủ

  • Thủ Thuật Access
  • Trang chủ
•   Xin mọi người giúp đỡ làm form quản lý hàng tồn trong cửa hàng bán lẻ
  

  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)

• Em đang làm 1 chương trình quản lý bán hàng cho cửa hàng bán lẻ theo yêu cầu riêng của cửa hàng. Và có một vướng mắc mà em nghĩ mãi không ra được. Mong các Pro giúp em !
  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 ạ
  


•   Xữ lý textbox NgaySinh
  

  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ình gặp vấn đề về textbox NgaySinh, là khi nhấn nút thêm thì vẫn thêm bình thường nếu nhập đúng kiểu ngày tháng là dd/mm/yyyy, khi nhập là số hoặc chuỗi thì nó vẫn báo lỗi dù đã bẫy lỗi mã Err=13 là nhập sai kiểu dữ liệu, mà không biết xữ lý như thế nào. Anh em diển đàn xem hộ mình cái. Thanks!
  
  
  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 Sub
  
  Demo: http://www.mediafire.com/?ohagcumefxcce5b
  Mong được hồi âm.
  


•   Giúp em tạo Form hóa đơn
  

  Viết bởi: hoangvietcuongvn 31-10-11, 11:04 AM Chuyên mục: Forms - Bài trả lời (1)

• Tình hình là công ty em mới đổi mẫu hóa đơn tự in. giờ trong mục nội dung hóa đơn có thêm cái cột đơn vị tính và số lượng nữa, nên phần mềm xuất hóa đơn VAT bằng access của công ty tm nó xài không đúng theo form cũ nữa. Em thì mù tịt khoản lập trình này, anh chị nào rảnh về mấy vụ này giúp em với nhé.
  Em gởi kèm file phần mềm và file hóa đơn hiện tại của công ty em trong file đính kèm này nhé.
  http://www.mediafire.com/?kt4ps59s4aoh7g9
  Đa tạ các huynh đệ nhiều lắm
  
  
  


•   Quản lý vụ án bằng Access
  

  Viết bởi: huynguyenbd 31-10-11, 10:09 AM Chuyên mục: Thư Viện Ứng Dụng - Không có hồi đáp

• Đây là file Access mình làm cho 1 cán bộ làm ở phòng quản lý tội phạm. Làm theo yêu cầu người ta cần gì thôi. Mình thấy cũng rất hay để bạn nào mới làm quen với Access để học thêm tí kinh nghiệm về chỉnh sửa trang, in ấn, tạo Form in ấn theo điều kiện or cập nhật thông tin qua Form. Để tiện cho việc xem code nên mình không làm Main chính và phân quyền truy cập. Nếu thấy hay thì chỉ cần Thanks 1 tiếng là được, hi!
  File: http://www.mediafire.com/?vdeozs7e7w2uwzi
  
  


•   Cách Load lại Form sau khi nhấn nút Thêm, Sửa, Xóa!
  

  Viết bởi: huynguyenbd 30-10-11, 09:53 AM Chuyên mục: Thủ thuật VBA - Bài trả lời (7)

• Em tạo 1 TreeView, Và có các textbox tương ứng để thêm thông tin, vấn đề là sau khi thêm thì Thông tin trên TreeView không tự động Load mà mình phải tắt Form mở lại hoặc là vào thiết kế và ra xem thì mới được. Em hỏi có cách nào khi nhấn thêm thì Form tự load dữ liệu luôn không. Em dùng lệnh Me.Requery mà không được.
  Ảnh trước khi Thêm:
  
  Ảnh sau khi Thêm:
  
  Link demo: http://www.mediafire.com/?umxqjkq2hn9njtx
  Form tên Tree
  



Chủ đề Mới nhất

Ứng dụng kiểm phiếu bầu c... -Chuyên mục: Thư Viện Ứng Dụng-Đăng bởi lần cuối: ongke0711-28-12-25, 01:21 AM- » Bài trả lời: 0- » Lượt xem: 41

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: chuvanthom-08-12-25, 09:12 PM- » Bài trả lời: 2- » Lượt xem: 3,275

Demo - Tra cứu thông tin ... -Chuyên mục: Thư Viện Ứng Dụng-Đăng bởi lần cuối: ongke0711-16-11-25, 07:03 PM- » Bài trả lời: 26- » Lượt xem: 4,168

Quản lý kho bằng Accesss -Chuyên mục: Thảo Luận Access-Đăng bởi lần cuối: hoandokhai-18-10-25, 04:48 PM- » Bài trả lời: 70- » Lượt xem: 6,011

Thơ Nhạc Nhất Lang - Cảm ... -Chuyên mục: Góc Thơ -Đăng bởi lần cuối: Nguyễn Thành Sáng-09-10-25, 03:12 PM- » Bài trả lời: 1- » Lượt xem: 71

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: tt1212-09-09-25, 05:03 PM- » Bài trả lời: 32- » Lượt xem: 7,374

Thử nghiệm upload hình -Chuyên mục: Phòng thử nghiệm-Đăng bởi lần cuối: Noname-29-08-25, 09:44 AM- » Bài trả lời: 2- » Lượt xem: 756

Quản Lý Công Văn -Chuyên mục: Thư Viện Ứng Dụng-Đăng bởi lần cuối: Adung-23-07-25, 10:05 AM- » Bài trả lời: 8- » Lượt xem: 13,073

(Update v.1.0.85 - 30/06/... -Chuyên mục: Thảo Luận Access-Đăng bởi lần cuối: Adung-22-07-25, 10:46 AM- » Bài trả lời: 270- » Lượt xem: 114,676

Video Tự học Access ( Cơ ... -Chuyên mục: Thư Viện Giáo Trình-Đăng bởi lần cuối: Nguyễn Đình Thọ-21-07-25, 10:42 AM- » Bài trả lời: 7- » Lượt xem: 9,273




Diễn đàn Thống kê

» Thành viên: 8,278 » Thành viên mới nhất: e2betkaicom » Các chủ đề diễn đàn: 9,899 » Các bài viết diễn: 48,829 Thống kê đầy đủ