File minh họa về cách nhập liệu trên Form, lưu dữ liệu với Share Workbook (1 người xem)

[hoangdanh282vn]

Mô tả sơ về chương trình như sau :

Nhập, lưu, tìm kiếm và in PXK.
Tìm và tạo mới danh sách khách hàng
Tìm và tạo mới danh sách sản phẩm
Tìm và tổng hợp các phiếu xuất kho theo khách hàng và theo tháng.
File chương trình sẽ đước copy về các máy con. File Data được lưu trên máy chủ và được share ra, nó được sử dụng để lưu dữ liệu chung. Nhiều ngưởi cùng nhập liệu trong cùng một lúc....

Pass là hoangdanh282vn

Các bạn xem file nha

 

[Hai Lúa Miền Tây]

Cám ơn anh nhiều, em muốn hỏi là có cách nào khi khởi động, textbox Path data sẽ tự động dò tìm đến file data không anh

 

[hoangdanh282vn]

Cám ơn anh nhiều, em muốn hỏi là có cách nào khi khởi động, textbox Path data sẽ tự động dò tìm đến file data không anh

Bạn chỉ cần đăng nhập thành công lần đầu, từ lần thứ 2 trở đi chương trình sẽ lưu lại địa chỉ đã đăng nhập lần trước, bạn chỉ cần chọn user và pass đăng nhập thôi. Chỉ khi nào ta thay đổi thư mục lưu dữ liệu thì mới cần khai báo lại Path thôi.

 

[phuongc5]

Form của Hoàng Danh rất hay, mình xin phép được lấy form của bạn áp dụng ở cơ quan mình nhé, mình có chỉnh sửa tên cơ quan, password, 1 số hình ảnh trong form (nhưng ở form user vẫn ghi tên tác giả là tên bạn và ghi thêm người sưu tầm là tên mình). Hihi, cả chiều nay mình mày mò để nghiên cứu cái form của bạn và cuối cùng đã sửa được tên cơ quan và password. Cám ơn bạn nhiều nhé! Khi nào bạn có dịp ra Hà Nội chơi, mình sẽ khao bạn bữa kem Tràng Tiền và làm hướng dẫn viên miễn phí cho bạn

 

[huudat07]

ban co the sua lai truong trinh nay chut dum minh dc ko ? Minh cung se khao ban 1 chau hau hinh luon

 

[phuongc5]

Hoàng Danh à, bạn giải thích cho mình code của bạn với, vì ô "Số phiếu" mình nhập đúng định dạng mà chương trình vẫn báo là nhập không đúng định dạng.

Kiem tra du lieu cua Textbox Sophieu truoc khi thoat
Private Sub SoPhieu_Exit(ByVal Cancel As MSForms.ReturnBoolean)
On Error Resume Next
If Trim(SoPhieu) = "" Then Exit Sub
If Len(Trim(SoPhieu)) <> 7 Or Mid(Trim(SoPhieu), 3, 1) <> "-" _
Or Val(Left(Trim(SoPhieu), 2)) = 0 Or Val(Left(Trim(SoPhieu), 2)) > 12 _
Or Val(Mid(Trim(SoPhieu), 4, 4)) = 0 Then
MsgUni "So61 phie61u kho6ng d9u1ng d9i5nh da5ng ! D9i5nh da5ng d9u1ng la2 : mm-nnnn", vbInformation, "Chu1 y1 !"
Cancel = True
End If
SoPhieu = Replace(SoPhieu, " ", "")
End Sub

 

[hoangdanh282vn]

Ô số phiếu có dạng mm-nnnn (mm : tháng, nnnn) : số phiếu. VD 04-0001,04-0002….

Nó sẽ tự động tăng số phiếu thêm một đơn vị khi ta nhấn nút thêm mới.

Nếu chuyển sang tháng mới thì ta phải nhập số đầu tiên (VD 05-0001), các số sau sẽ tự động nhảy khi thêm mới.

 

[doanhhoang79]

Cách thức tạo File DATA riêng và File chương trình cho mọi người cùng nhập cùng một lúc là rất hay. Mình nghiên cứu mãi mà không hiểu, mình đang sử dụng một chương trình quản lý muốn tạo file DATA riêng mà khó quá, không biết bắt đầu từ đâu???

Bạn chỉ cho mình cách tạo với.

 

[hai2hai]

Ô số phiếu có dạng mm-nnnn (mm : tháng, nnnn) : số phiếu. VD 04-0001,04-0002….

Nó sẽ tự động tăng số phiếu thêm một đơn vị khi ta nhấn nút thêm mới.

Nếu chuyển sang tháng mới thì ta phải nhập số đầu tiên (VD 05-0001), các số sau sẽ tự động nhảy khi thêm mới.

Sang năm tiếp thì thì lại:

Năm 2008
01-0001
...
12-0001
....
Năm 2009
01-0001 --> Duplicate value

 

[ChanhTQ@]

Sang năm tiếp thì thì lại:
Năm 2008 01-0001
... 12-0001
Năm 2009 01-0001 --> Duplicate value

Để tránh việc này, mình xin các bạn tham khảo hàm tạo mã số như sau:

Option Explicit
Function TaoSoPhieu(Optional SoPhieu As String, Optional Dat As Date) As String
 Const Chu As String = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"
 Dim Jj As Integer
 
 If Dat = 0 Then Dat = Date
 Jj =(Year(Dat) Mod 36) +2
 TaoSoPhieu = Mid(Chu, Jj, 1)
 Jj = 12 * (Jj Mod 3) + Month(Dat)
 TaoSoPhieu = TaoSoPhieu & Mid(Chu, Jj, 1)
 If SoPhieu = "" Then
   TaoSoPhieu = TaoSoPhieu & "0001"
 Else
   TaoSoPhieu = TaoSoPhieu & Right("0000" & CStr(CInt(Right(SoPhieu, 4)) + 1), 4)
 End If
End Function

Hàm luôn cho ta mã gồm 6 ký tự; Ký tự đầu biểu thị năm; ký tự thứ hai biểu thị tháng
Và như vậy trong tháng ta có thể/chỉ ra đươc vạn hóa đơn;
Nếu ai cần nhiều hơn, ví dụ 1 ngày ra ngàn hóa đơn, chúng ta sẽ sửa & bổ sung sau. . . .

 

[ST-Lu!]

Sang năm tiếp thì thì lại:

Năm 2008
01-0001
...
12-0001
....
Năm 2009
01-0001 --> Duplicate value

To Bác Danh
Em ko vào được bằng pass: hoangdanh282vn
bác xem lại giúp em
-----------


Bác ơi Anh Danh làm như vậy là hay lắm rồi, lấy đâu ra file excel mà lưu dữ liệu nhiều năm thế.
Làm sao mà so sánh excel với SQL được

hic

 

[hoangdanh282vn]

Sang năm tiếp thì thì lại:

Năm 2008
01-0001
...
12-0001
....
Năm 2009
01-0001 --> Duplicate value

File này em thiết kế cho 1 năm. Nếu muốn dùng cho nhiều năm thì em phải thay đổi thiết kế một tí.

Ta sẽ không thiết kế file chương trình sử dụng số phiếu cho nhiều năm mà ta sẽ thêm 1 form để chọn năm thao tác. File Data sẽ không dùng lưu dữ liệu cho nhiều năm, mỗi file dùng cho 1 năm và tên file năm 2008 sẽ là Data2008.xls, năm 2009 sẽ là Data2009.xls...và các file này cùng nằm trong 1 thư mục.

Mỗi khi chọn năm thao tác thì chương trình sẽ tự động nhận diện file lưu dữ liệu phù hợp. Như vậy chương trình sẽ chạy nhanh hơn.

 

[hai2hai]

File này em thiết kế cho 1 năm. Nếu muốn dùng cho nhiều năm thì em phải thay đổi thiết kế một tí.

Ta sẽ không thiết kế file chương trình sử dụng số phiếu cho nhiều năm mà ta sẽ thêm 1 form để chọn năm thao tác. File Data sẽ không dùng lưu dữ liệu cho nhiều năm, mỗi file dùng cho 1 năm và tên file năm 2008 sẽ là Data2008.xls, năm 2009 sẽ là Data2009.xls...và các file này cùng nằm trong 1 thư mục.

Mỗi khi chọn năm thao tác thì chương trình sẽ tự động nhận diện file lưu dữ liệu phù hợp. Như vậy chương trình sẽ chạy nhanh hơn.

1. Làm thế nào để hiển thị các chứng từ trên nhiều năm hoặc FromDate - ToDate mà 2 ngày này ở các năm khác nhau?
2. Làm thế nào để theo dõi lịch sử bán mặt hàng X như: Hàng này bán cho những ai, nằm trên các chứng từ nào, v.v... suốt từ ngày thành lập doanh nghiệp tới nay (hoặc fromdate --> todate)
3. Như chúng ta đã biết, thứ tự của các chứng từ ảnh hưởng tới cách tính giá vốn đối với những chứng từ liên quan tới kho hàng (ngày chứng từ, thứ tự nhập chứng từ). Làm thế nào để phân biệt thứ tự (cái nào trước, cái nào sau) giữa các chứng từ nhập hàng, xuất bán, chuyển kho, điều chỉnh kho,...? Vấn đề ở đây là việc tăng số phiếu đó là số phiếu gì? Một loại chứng từ hay cho mọi loại chứng từ?

Ví dụ, trong cùng 1 ngày, có 10 chứng từ nhập kho, có 20 chứng từ xuất bán, làm thế nào để biết cái nào trước cái nào sau?

Khi đó:

01-0001 Phiếu nhập 1
01-0002 Phiếu nhập 2
01-0003 Phiếu xuất 1 (Continuous increase for every inventory transaction?)
01-0004 Phiếu xuất 2

hay là
01-0001 Phiếu nhập 1
01-0002 Phiếu nhập 2

01-0001 Phiếu xuất 1 (Restart lại cho từng loại chứng từ?)
01-0002 Phiếu xuất 2

Quên chưa đọc đoạn này:

Bác ơi Anh Danh làm như vậy là hay lắm rồi, lấy đâu ra file excel mà lưu dữ liệu nhiều năm thế.
Làm sao mà so sánh excel với SQL được

Vậy thì thôi vậy

 

[Lệnh Hồ Đại Hiệp]

Cho nó đơn giản hơn đi.
Ta chỉ cần lấy số chứng từ theo dạng : yy.mm/xxxx : 09.04/0105 : Phiếu số 105 của tháng 04/2009.
Lưu dữ liệu theo kiểu mỗi năm 1 File thì sẽ gặp nhiều rắc rồi đấy. Nhưng thôi, tùy!!

Đề tài là shareworkbook thì cứ nghĩ rằng dữ liệu sẽ được chia sẻ dạng Share Workbook (2 hoặc nhiều người cùng dùng 1 thời điểm) nhưng xem rồi thấy không phải.

--CV--

 

[hoangdanh282vn]

Cho nó đơn giản hơn đi.
Ta chỉ cần lấy số chứng từ theo dạng : yy.mm/xxxx : 09.04/0105 : Phiếu số 105 của tháng 04/2009.
Lưu dữ liệu theo kiểu mỗi năm 1 File thì sẽ gặp nhiều rắc rồi đấy. Nhưng thôi, tùy!!

Đề tài là shareworkbook thì cứ nghĩ rằng dữ liệu sẽ được chia sẻ dạng Share Workbook (2 hoặc nhiều người cùng dùng 1 thời điểm) nhưng xem rồi thấy không phải.

--CV--

Không phải là sao vậy anh. Anh có thể nói rõ hơn tí được không để em biết mà còn nâng cấp nữa ạ.

 

[ST-Lu!]

Anh Danh ơi
Em copy và extract thành 2 file (cho vào cùng một folder). Nhưng hiện tại không mở được bằng
Pass: hoangdanh282vn

Anh xem giúp em

 

[phuongc5]

Bạn xem khi bạn gõ password có bật nút CapsLock sáng không, chứ mình vẫn vào được mà

 

[ST-Lu!]

Hoá ra không phải là do pass mà là do Path.
Là lần đầu log-in (nếu em copy path vào --> ok không vấn đề gì cả)

 

[quochung2005]

file của bác hoangdanh rất hay, cho mình hỏi nếu nhập trực tiếp lên file hiện hành không dùng file data thì làm cách nào vậy, luôn tiện mình hỏi luôn nếu trong một file muốn nhập tạo form nhập liệu mình nhập một tên khách hàng rồi còn lại mặt hàng và số tiền mình nhập nhiều lần như file nhập liệu của bạn thì làm cách nào
thân

 

[cocaibang]

Chào các bạn,

Mình là thành viên mới, mình đã xem file của Bác Hoàng Danh, nó rất hay và đúng như mình đang cần. Mình muốn thay đổi logo, tên cty & đia chỉ cho đúng thực tế; các bác có thể chỉ giúp mình điều chỉnh được không.
Và thí dụ trong đơn hàng, mình có tặng kèm khuyến mãi sản phẩm; ví dụ mua 5 tặng 1 thì mình sẽ làm ntn?
Mong Bác Danh & các bạn chỉ giáo giúp.
Chân thành cảm tạ.

Hoàn Vũ
hoanvu8@yahoo.com