Thực tập tạo Form từ A->Z (1 người xem)

ThuNghi · 5/10/07

Qua tham khảo formNgay của Mr OkeBab, MaxSoCT của MVSON, tôi xin phép lập thêm đề tài này nhằm tham khảo cách tạo form, nhờ các bạn hướng dẫn.
Tôi có form theo file gồm có TBNgayHT, TBNgayCT, TBLoaiCT, TBSoCT, tôi muốn làm thế nào khi nhập xong các chỉ tiêu TBNgayHT, TBNgayCT, TBLoaiCT, theo form thì TBSoCT sẽ tự động update theo tiêu thức LoaiCT/Nam-ThangHT/Số tt tăng theo tháng.
Mong các bạn hỗ trợ.
Xin cám ơn.
Làm sao lấy MaxSoCT không phải dùng ct {max(if...))}
Đây là file học tập, mong các bạn nhiệt tình.

dat2007 · 5/10/07

ThuNghi đã viết:
Tôi có form theo file gồm có TBNgayHT, TBNgayCT, TBLoaiCT, TBSoCT, tôi muốn làm thế nào khi nhập xong các chỉ tiêu TBNgayHT, TBNgayCT, TBLoaiCT, theo form thì TBSoCT sẽ tự động update theo tiêu thức LoaiCT/Nam-ThangHT/Số tt tăng theo tháng.

Có phải yêu cầu của Bác như thế này không ạ ?

1. Trong một ngày phát sinh 2 loại chứng từ là:

+ Phiếu thu (PT) -> Thứ tự tăng theo ngày
+ Phiếu chi (PC) -> Thứ tự tăng theo ngày

2. Hết 1 tháng thì số thứ tự của chứng từ trong ngày lại lặp lại và tăng từ 001 cho các loại phiếu thu(PT) và phiếu chi (PC)

ThuNghi · 5/10/07

Cám ơn Dat2007 quan tâm.
Đúng rồi, hiện tại là làm từng bước, nếu thêm nhập mới lọai CT nữa thì rất hay.

SoiBien · 5/10/07

ThuNghi đã viết:
Cám ơn Dat2007 quan tâm.
Đúng rồi, hiện tại là làm từng bước, nếu thêm nhập mới lọai CT nữa thì rất hay.

Vấn đề đánh số TT thì đã có 2 Sub của bác nvson giải quyết xong, từng bước của bác ThuNghi sẽ phải cụ thể như thế này

init form thì phải di chuyển đến cuối của Data (65536, xlup...)
nhập và kiểm tra cho từng ô, nhập xong hết thì
gán giá trị lần lượt cho các field
call sub đánh số Thứ tự của bác nvson cho Row hiện tại
di chuyển xuống dòng kế tiếp
Xoá dữ liệu hiện tại tại các textbox (hay để luôn cho việc nhập chỉ là chỉnh sửa cho nhanh

Vậy thì bác muốn làm luôn, hay là hướng dẫn từng bước ạ?
Em thì hiểu ý bác là muốn hướng dẫn từng bước trên 4R để mọi người cùng xem phải không ạ?

Mr Okebab · 5/10/07

ThuNghi đã viết:
Qua tham khảo formNgay của Mr OkeBab, MaxSoCT của MVSON, tôi xin phép lập thêm đề tài này nhằm tham khảo cách tạo form, nhờ các bạn hướng dẫn.
Tôi có form theo file gồm có TBNgayHT, TBNgayCT, TBLoaiCT, TBSoCT, tôi muốn làm thế nào khi nhập xong các chỉ tiêu TBNgayHT, TBNgayCT, TBLoaiCT, theo form thì TBSoCT sẽ tự động update theo tiêu thức LoaiCT/Nam-ThangHT/Số tt tăng theo tháng.
Mong các bạn hỗ trợ.
Xin cám ơn.
Làm sao lấy MaxSoCT không phải dùng ct {max(if...))}
Đây là file học tập, mong các bạn nhiệt tình.

Em chưa xem hết File, nhưng xin trao đổi với bác thế này :

Dù không dùng {max(if...))} thì ta vẫn phải dùng một hàm nào đó (có thể là UF) để cho ra số này, tuy nhiên nó vẫn phải dùng vòng lặp (thì mới duyệt được tất cả các record trong bảng). Ta dùng các công thức của excel thì ta mới có thể lợi dụng được cái nhanh của mã máy. Vì vậy có lẽ vẫn nên dùng công thức của excel, nếu công thức dễ thì làm luôn trong VBA, còn khó thì làm trên sheet, sau đó bốc lên Form. Như thế chẳng tiện hơn sao. Đâu có mất nhiều thời gian và chỉ mất 1 cell thôi mà.

Vì ta có rất nhiều TH xảy ra : Thêm CT bình thường, sửa chứng từ, hủy CT . . . .

Vì vậy hàm {max(if...))} cũng rất hay đấy chứ.
Thân!

ThuNghi · 6/10/07

Vậy thì bác muốn làm luôn, hay là hướng dẫn từng bước ạ?

Bạn giúp hộ, thêm vào 1 textbox nhập số của bạn.
Theo tôi, GP này về CT max có được không.
- Tìm từ dưới lên trên nếu thỏa dk là cùng tháng và loại CT = TBloaiCT thì lấy +1. Số CT luôn tăng dần.
- Dùng Max(if) mà không cần cells trung gian, chỉ gán cho 1 biến và gán vào TBSoCT.
Bổ sung thêm hộ, nếu TBNgayHT > TBNgayCT thì msg "sai"
Về khỏan form này trình độ tôi khiêm tốn lắm.
Cám ơn nhiều.

SoiBien · 7/10/07

Bác ThuNghi xem và cho em ý kiến ạ.

Mr Okebab · 7/10/07

ThuNghi đã viết:
Bạn giúp hộ, thêm vào 1 textbox nhập số của bạn.
Theo tôi, GP này về CT max có được không.
- Tìm từ dưới lên trên nếu thỏa dk là cùng tháng và loại CT = TBloaiCT thì lấy +1. Số CT luôn tăng dần.
- Dùng Max(if) mà không cần cells trung gian, chỉ gán cho 1 biến và gán vào TBSoCT.
Bổ sung thêm hộ, nếu TBNgayHT > TBNgayCT thì msg "sai"
Về khỏan form này trình độ tôi khiêm tốn lắm.
Cám ơn nhiều.

Em tặng bác cái UF này, nó có thể đánh số tự động đấy.
Option Explicit

PHP:

Public Function CTMax(KT As String, SoKT As Byte) As String
    On Error Resume Next
    Dim HC As Long
    Dim Cot As Long
    Dim Hang As Long
    Dim i As Long
    Dim CT As Range
    Cot = ActiveCell.Column
    Hang = ActiveCell.Row
    HC = Hang - 1
    For Each CT In Range(Cells(2, Cot), Cells(HC, Cot))
        If Left$(CT.Value, Len(KT)) = KT Then
        If IsNumeric(Val(Right$(CT.Value, SoKT))) = True Then
            If Val(Right$(CT.Value, SoKT)) > i Then i = Val(Right$(CT.Value, SoKT))
        End If: End If
    Next
    CTMax = KT & Format(i + 1, "000")
    Set CT = Nothing
End Function

Cú pháp : CTMax(KT;SoKT): PT/07/10/xxx

KT : Ký tự đầu của loại phiếu đó : PT/07/10/
SôKT : Số KT sau cùng để xác định STT tăng dần, như VD trên là 3 ký tự (xxx)

Nó sẽ tính từ hàng thứ 2 đến ô trên nó 1 hàng

VD : Bác muốn tính CTMax của Phiếu PT/07/10/xxx (3 số xxx)

Vậy thì bác nhập = CTMax("PT/07/10/";3)

Nó sẽ tính ra phiếu max cho bác

Bác xem File VD.

Thân!

Mr Okebab · 7/10/07

Nếu bác muốn nó tính toán trong một vùng chỉ định thì dùng UF này :

PHP:

Public Function CTMax2(Vung As Range, KT As String, SoKT As Byte) As String
    On Error Resume Next
    Dim i As Long
    Dim CT As Range
    For Each CT In Vung
        If Left$(CT.Value, Len(KT)) = KT Then
        If IsNumeric(Val(Right$(CT.Value, SoKT))) = True Then
            If Val(Right$(CT.Value, SoKT)) > i Then i = Val(Right$(CT.Value, SoKT))
        End If: End If
    Next
    CTMax2 = KT & Format(i + 1, "000")
    Set CT = Nothing
    Set Vung = Nothing
End Function

Thân!

Mr Okebab · 8/10/07

Được không bác ???

ThuNghi · 8/10/07

Cám ơn Hiếu nhiều lắm, hôm GPE thế nào, rớt liên tục nên chưa xem kịp. Sẽ hồi báo.

ThuNghi · 8/10/07

To Mr OkeBab
Cám ơn nhiều.
Hàm CTMax() rất tuyệt, sao bác không làm tham chiếu theo cột Loại CT luôn mà phải =CTMax("PT07/11/",3) cái "PT07/11/" có nhập rồi mà. Với lại nếu thuật tóan chuyển tìm từ dưới lên có nhanh hơn không. Giống như hàm Match tìm từ dưới (NVSON), nếu ngày = ngày HT thì lấy max. Nghĩ vậy mà chưa làm ra.
To SoiBien
Cám ơn nhiều. Chưa đúng ý đồ lắm nếu trong form chỉ kiểm tra ngày HT và Ngày CT hợp lệ và sau khi chọn loại CT thì SoCT tự udate, chưa tính chuyện gán vào cell.

SoiBien · 8/10/07

ThuNghi đã viết:
To SoiBien
Cám ơn nhiều. Chưa đúng ý đồ lắm nếu trong form chỉ kiểm tra ngày HT và Ngày CT hợp lệ và sau khi chọn loại CT thì SoCT tự udate, chưa tính chuyện gán vào cell.

hì hì, vì cái hàm của bác nvson nó thế, vậy bác gán cái của bác Bap vào là được mà.

Mr Okebab · 8/10/07

ThuNghi đã viết:
To Mr OkeBab
Cám ơn nhiều.
Hàm CTMax() rất tuyệt, sao bác không làm tham chiếu theo cột Loại CT luôn mà phải =CTMax("PT07/11/",3) cái "PT07/11/" có nhập rồi mà. Với lại nếu thuật tóan chuyển tìm từ dưới lên có nhanh hơn không. Giống như hàm Match tìm từ dưới (NVSON), nếu ngày = ngày HT thì lấy max. Nghĩ vậy mà chưa làm ra.

Cái thứ nhất :

cái "PT07/11/" em chỉ dùng VD thôi, em muốn dùng cho mọi TH là yyyyyyyyxxxxx

Ở đó dãy Y là chuỗi ký tự (không phân biệt là cái gì, để dùng cho cái gì cũng được), X là dãy số thứ tự để đánh số

VD :

PT07/11/002 ---> CTMax("PT07/11/";3)

PNK/2007/11/0004 ---> CTMax("PNK2007/11/";4)

PXK07/7/000001---> CTMax("PXK07/7/";6)

Đến đây bác đã hiểu ý đồ của em rồi : Nó không dùng cho một TH cụ thể, ta chỉ cần khai báo 2 tham số đó (lấy ra từ texbox) là OK rồi, không phụ thuộc và độ dài của mã chứng từ.

Vì lúc đầu em nghĩ đơn giản là nó tính toán trong cột hiện hành, nhưng sau nghĩ lại là nó có thể tính trong vùng khác. Vì vậy em mới có hàm thứ 2. Bác xem lại nhé.

Còn cái thứ 2 : Nếu dò ngược từ dưới lên cũng được, tuy nhiên chỉ có tác dụng nhanh hơn khi dữ liệu đã được Sort theo thứ tự phiếu. Còn nếu lộn xộn (sort theo 1 chỉ tiêu khác chẳng hạn) thì cũng chẳng hơn gì cả.

Bác OK chứ ??

Thân!

SoiBien · 9/10/07

@ThuNghi & MrOkeBap

em định gắn cái hàm của bác Bap vào form cho anh ThuNghi, nhưng hình như cái hàm đó nó làm sai ý đồ rồi phải không anh ThuNghi? Số CT nó nhảy khác? Hay em gắn sai? hay bác MrOkeBap chưa đọc hết cái ý đồ của anh ThuNghi????

Mr Okebab · 9/10/07

SoiBien đã viết:
@ThuNghi & MrOkeBap

em định gắn cái hàm của bác Bap vào form cho anh ThuNghi, nhưng hình như cái hàm đó nó làm sai ý đồ rồi phải không anh ThuNghi? Số CT nó nhảy khác? Hay em gắn sai? hay bác MrOkeBap chưa đọc hết cái ý đồ của anh ThuNghi????

Do mình chưa hiểu hết về VBA nên mới ra cớ sự như vậy.

Đây là hàm :

PHP:

Function CTMax(Vung As Range, KT As String, SoKT As Byte) As String
    On Error Resume Next
    Dim i As Long
    Dim CT As Range
    For Each CT In Vung
        CT.Select
        If Left$(CT.Value, Len(KT)) = KT Then
        If IsNumeric(Val(Right$(CT.Value, SoKT))) = True Then
            If Val(Right$(CT.Value, SoKT)) > i Then i = Val(Right$(CT.Value, SoKT)): MsgBox i
        End If: End If
    Next
    CTMax = KT & Format(i + 1, "000")
    Set CT = Nothing
    Set Vung = Nothing
End Function

Khi nó hoạt độnh ở sheet thì làm việc rất tốt
VD : A1 = CTMax(E2:E100;"PT07/10/";3)

Tuy nhiên trong VBA thì lại không dùng được.

VD : = CTMax(Sheet1.Range("E2:E100"),"PT07/10/",3)

Thì nó báo lỗi ngay ở vòng lặp For each

Như vậy có nghĩa là mình khai báo Vung đã sai (mình khai báo là Range)
Vậy thì khai báo thế nào để dùng ở VBA bình thường nhỉ ???????
Tức là nó hiểu Sheet1.Range("E2:E100") là 1 range bình thường nhỉ ???

Mong mọi người giúp đỡ.

Thân!

P/S : Hiện tại vẫn có thể dùng hàm này, tuy nhiên phải dùng 1 cell khác để tạm thời.

Mr Okebab · 9/10/07

Cực chẳng đã mới dùng thế này (vì chưa giải quyết được vấn đề trên)
Các bác tham khảo

Thân!

Mr Okebab · 9/10/07

Bác SoiBien xem lại cách xác định vị trí con trỏ trong textbox ngày nhé. Nhập tháng >9 thì sẽ bị sai đấy.

Thân!

SoiBien · 9/10/07

Bác Bap vẫn thử coi lại cái cách đánh số CT của anh ThuNghi, vì ddk đánh số còn phụ thuộc vào SoCTGoc nữa, không chỉ phụ thuộc vào LoaiCT & Year & Month !!!!
Thân.
Ặc, sorry, chắc bác ThuNghi đã đổi cách đánh số chứng từ sang cách mới, không dùng cách cũ nữa.

Còn vụ sai kia! kẹt nhỉ, hì hì, để nghiên cứu lại. Làm sao để biết mình đang đi lùi hay tới, chắc phải thêm một biến public hả ta????

Mr Okebab · 9/10/07

SoiBien đã viết:
Còn vụ sai kia! kẹt nhỉ, hì hì, để nghiên cứu lại. Làm sao để biết mình đang đi lùi hay tới, chắc phải thêm một biến public hả ta????

PHP:

Private Sub TBNgayCT_Change()
    Dim i1 As Byte
    Me.TBNgayCT.Value = ED(Me.TBNgayCT.Value)
    i1 = InStr(1, Me.TBNgayCT.Value, "_")
    If i1 = 0 Then i1 = 11
    Me.TBNgayCT.selstart = i1 - 1
End Sub

Cách này không được hả bác ???

Thân!

ThuNghi · 9/10/07

Cám ơn Hiếu và Quốc Anh nhiều lắm
Nhờ Hiếu và Quốc Anh hòan thiện hộ form, dạo này hơi bận nên không reply. Mà tối thì không sáng suốt lắm.
Trên form: khi kiểm tra ngày CT <= Ngày HT, và sau khi LoaiCT nhập thì soCT tự động update theo tiêu thức trên (không quan tâm số CT gốc)
ie LoaiCT update => SoCT

SoiBien · 10/10/07

Mr Okebab đã viết:
PHP:

Private Sub TBNgayCT_Change() Dim i1 As Byte Me.TBNgayCT.Value = ED(Me.TBNgayCT.Value) i1 = InStr(1, Me.TBNgayCT.Value, "_") If i1 = 0 Then i1 = 11 Me.TBNgayCT.selstart = i1 - 1 End Sub

Cách này không được hả bác ???
Thân!

Cái này thì khi xoá đi sẽ bị kẹt tại các dấu "/" + với không xoá ở giữa được.

Thân.

ThuNghi · 10/10/07

Cám ơn!
Vậy QA cố gắng nhé, phải hòan thiện từ đầu. Sau này sẽ không cần quan tâm nữa.

Mr Okebab · 10/10/07

SoiBien đã viết:
Cái này thì khi xoá đi sẽ bị kẹt tại các dấu "/" + với không xoá ở giữa được.

Thân.

Vâng, quả đúng vậy, phải xóa lần lượt thôi.
Vậy thì phải sửa ở hàm ED thì đúng hơn.

Thân!

SoiBien · 10/10/07

Mr Okebab đã viết:
Vâng, quả đúng vậy, phải xóa lần lượt thôi.
Vậy thì phải sửa ở hàm ED thì đúng hơn.

Thân!

Đã điều chỉnh xong theo ý OB, bác ThuNghi xem nhé
Còn CTMax thì đã điều chỉnh (chạy theo CTMax2 nhưng thêm Optional NotSort, và thay vì vùng thì dùng vung as range, thì đổi dùng Optional Column as Integer vào thôi, mặc định là 5.

Mr Okebab · 10/10/07

Cái Text ngày tháng vẫn thế bác ạ, mong xem lại nhé. (không xóa tháng được, phải xóa từ phải qua trái)
Thân!

SoiBien · 10/10/07

Mr Okebab đã viết:
Cái Text ngày tháng vẫn thế bác ạ, mong xem lại nhé. (không xóa tháng được, phải xóa từ phải qua trái)
Thân!

Vâng bác ạ, mới chỉ làm được cho nó vivu thôi còn cái vụ nhảy vô giữa này vẫn kẹt tiếp. Hức hức!!!!

Đang xem thêm!.

ThuNghi · 11/10/07

Mong rằng hết tuần này, các bạn giúp mình thông qua phần này nhé.
Để còn sang V02.

SoiBien · 11/10/07

Em nghĩ là mình cứ qua đoạn sau thôi anh, còn cái kia chỉ là chi tiết sau này nâng cấp, hì hì! vẫn nhập được đầy đủ, chỉnh sửa được.

ThuNghi · 11/10/07

Tôi copy các form trên 4r và gắn vào form-V02, "tẩu hỏa" nhờ các bạn bổ sung thêm và hòan chỉnh.
1/ Nếu 1 SoCT có > 1 dòng (ie có 2 số tiền) nhập thì ?update
2/ Gắn hộ form bebe và sub Bebe của Hiếu vào trong TBMaKH, làm sao khi chọn MaKH trong BeBe, thì TBMaKH sẽ nhận giá trị đó. Khi kiểm tra mã KH nhập vào không đúng sẽ mở form Bebe. Còn nếu vẫn không có thì cho mở from dangkyKH (chưa làm).
4/ Cần sửa BS ngày CT phải >Ngày HT.
Trong file có sử dụng cách làm của 1 số bạn. Xin cám ơn.
Form kỳ này có thêm chọn theo mã KH và nhập số tiền > 1 dòng.

tuanh1979 · 11/10/07

Cảm ơn Bác Thunghi, mình đang làm về phần :
Khi kiểm tra mã KH nhập vào không đúng sẽ mở form Bebe. Còn nếu vẫn không có thì cho mở from dangkyKH (chưa làm).
bạn làm phần này đi, mình tìm mãi mà chẳng thấy có ví dụ nào về phần này cả. À bạn làm luôn cả phần này giúp minh nữa nhé:
Nếu không nhập tên khách hàng thì không cho cập nhât mà chuyển sang phím exit luôn, nếu nhập chưa đúng thì vẫn đứng tại ô KH chứ không chuyên sang ô tiếp mất công phải dùng chuột để trở về ô cũ. Thank bạn nhé

SoiBien · 18/10/07

ThuNghi đã viết:
Tôi copy các form trên 4r và gắn vào form-V02, "tẩu hỏa" nhờ các bạn bổ sung thêm và hòan chỉnh.
1/ Nếu 1 SoCT có > 1 dòng (ie có 2 số tiền) nhập thì ?update
2/ Gắn hộ form bebe và sub Bebe của Hiếu vào trong TBMaKH, làm sao khi chọn MaKH trong BeBe, thì TBMaKH sẽ nhận giá trị đó. Khi kiểm tra mã KH nhập vào không đúng sẽ mở form Bebe. Còn nếu vẫn không có thì cho mở from dangkyKH (chưa làm).
4/ Cần sửa BS ngày CT phải >Ngày HT.
Trong file có sử dụng cách làm của 1 số bạn. Xin cám ơn.
Form kỳ này có thêm chọn theo mã KH và nhập số tiền > 1 dòng.

Bác xem lướt qua cái, nếu đúng ý thì em sẽ sắp xếp lại.

ThuNghi · 18/10/07

Cám ơn nhiều nhé, sẽ xem qua ngay và reply. Tưởng quên chớ, sẽ chiêu đãi 1 chầu bia với những tiên nữ if OK. Vũ Ngọc pay.
Dạo này SoiBien, anhtuan1066, duongsatdn... họat động nhiều topic quá, làm ta thất nghiệp rồi.

dgvacu · 18/10/07

Tôi sử dụng hàm thông thường trong excel thì tạm được,nhưng form,macro thì tôi chưa từng được học cũng như biết khái niệm. Tôi có hiểu được sơ đẳng về foxpro,viét được vài CT nhỏ...bạn nào co kiến thức macro,form excel chỉ cho tôi với,có tài liệu gửi cho tôi cám ơn trước nhiều nhé thư về dgvacu@yahoo.com

SoiBien · 18/10/07

ThuNghi đã viết:
Cám ơn nhiều nhé, sẽ xem qua ngay và reply. Tưởng quên chớ, sẽ chiêu đãi 1 chầu bia với những tiên nữ if OK. Vũ Ngọc pay.
Dạo này SoiBien, anhtuan1066, duongsatdn... họat động nhiều topic quá, làm ta thất nghiệp rồi.

Anh xem file em làm lại nhé, còn cái vụ KTMST thì em không biết nên không tham gia được.

hì hì, vậy nhường lại cho anh, em bb!

Thực tập tạo Form từ A->Z (1 người xem)

Người dùng đang xem chủ đề này

Hãy cho rồi sẽ nhận!

File đính kèm

Thành viên tiêu biểu

Hãy cho rồi sẽ nhận!

Thành viên tiêu biểu

Ngon Ngất Ngây

Hãy cho rồi sẽ nhận!

Thành viên tiêu biểu

File đính kèm

Ngon Ngất Ngây

File đính kèm

Ngon Ngất Ngây

File đính kèm

Ngon Ngất Ngây

Hãy cho rồi sẽ nhận!

Hãy cho rồi sẽ nhận!

Thành viên tiêu biểu

Ngon Ngất Ngây

Thành viên tiêu biểu

Ngon Ngất Ngây

Ngon Ngất Ngây

File đính kèm

Ngon Ngất Ngây

Thành viên tiêu biểu

Ngon Ngất Ngây

Hãy cho rồi sẽ nhận!

Thành viên tiêu biểu

Hãy cho rồi sẽ nhận!

Ngon Ngất Ngây

Thành viên tiêu biểu

File đính kèm

Ngon Ngất Ngây

Thành viên tiêu biểu

Hãy cho rồi sẽ nhận!

Thành viên tiêu biểu

Hãy cho rồi sẽ nhận!

File đính kèm

Thành viên chính thức

Thành viên tiêu biểu

Hãy cho rồi sẽ nhận!

Thành viên mới

Thành viên tiêu biểu

File đính kèm

Thời gian đếm ngược.