Nhờ hoàn thiện form nhập dữ liệu (1 người xem)

[123456789123456789123456789]

Mình tạo một form để nhập dữ liệu khách hàng vay vốn, mình muốn các textbox của form có một số kiểu gang buộc như sau
- Tên khách hàng : chỉ được nhập ký tự chữ ( tự động viết hoa càng tốt)
- CMND: chỉ được nhập số, tối đa 9 ký tự
- Ngày cấp: định dạng sẵng ngày tháng minh chỉ cần nhập 28101985 sẽ ra 28/10/1985
- Phần thông tin khách hàng và thông tin tài sản nếu nhập thiếu sẽ xuất hiện dòng thông báo nhập thiếu
- Một nút combobuton cho phép xóa dữ liệu mới tạo ra. Một nút comboboton cho phép save dữ liệu tại form. , mot nut combobuton cho phep chinh sua du lieu tai listbox
- Một nút combobuton tại bảng tính exel cho phép gọi lại form
- Phần listbox khi nhấp chuột vào dữ liệu thì các thông tin của khách hàng sẽ hiện lên trong các textbox ( để chỉnh sữa, hoặc nhập lại)

Mình hy vọng được sự giúp đở của các bạn. ( khi hoan thanh có thể cho mình xin số đt hoặc số tài khoản ngân hàng mình sẽ gởi chi phi cà phê ) cám ơn rất nhiều .

tao

 

[Cá ngừ F1]

CMTND mới có 12 số đó bạn..

 

[sealand]

Mình sẽ làm cho bạn tối đa yêu cầu trong khả năng của mình, nhưng từ từ 1 chút.
Hif! Cà fê 1 mình sao đặng? Nếu bạn có thể bạn ghé đây xem giúp đuọc gì không?
http://www.giaiphapexcel.com/forum/...i-Sơn-Quản-Bạ-HG-từ-ngày-17-10-2013-đến-20-10

 

[be_09]

Đề nghị của sealand tôi thấy rất hợp tình, hợp ý, làm việc thiện cũng là 1 điều tốt, nếu bạn 123456789123456789123456789 đóng góp của ít lòng nhiều để giúp các em nhỏ tại xã Bát Đại Sơn - Quản Bạ - Hà Giang thì anh em cũng sẳn lòng giúp bạn hết sức mình.

 

[siwtom]

Đề nghị của sealand tôi thấy rất hợp tình, hợp ý, làm việc thiện cũng là 1 điều tốt, nếu bạn 123456789123456789123456789 đóng góp của ít lòng nhiều để giúp các em nhỏ tại xã Bát Đại Sơn - Quản Bạ - Hà Giang thì anh em cũng sẳn lòng giúp bạn hết sức mình.

Thế nếu giúp các em khác, chỗ khác thì anh em không sẵn lòng giúp? Đâu bắt buộc phải tham gia câu lạc bộ của GPE mới là làm từ thiện?

 

[123456789123456789123456789]

Mình ủng hộ các bạn tiền xăng

 

[sealand]

Mình chỉ dùng Excel2003 nên file mình viết cũng là dạng đó, nhưng code mình viết đã theo phương án số dòng tuỳ theo từng phiên bản.
Trên form do DL nhiều và nhiều định dạng nên mình dùng Listview thay cho Listbox như vậy dễ quan sát hơn. Nhập ngày nếu 2 số sẽ lấy tháng và năm hệ thống nhập 3-4 số sẽ lấy năm hệ thống. Năm sau 2000 có thể viết 2chứ số ví dụ 130813 thành 13/08/2013. Một số ô và nút cần hướng dẫn rê chuột lên nó sẽ có ToolTip
Bạn test giùm và chúng ta cùng hoàn thiện sau.
Trong file mình có sử dụng 1 số code của anh em GPE nhưng cũng không rõ ở đâu nữa mong anh em thông cảm (Chủ yếu Code sử lý font của thày Nguyễn Duy Long đã quá cố).

 

[sealand]

Thế nếu giúp các em khác, chỗ khác thì anh em không sẵn lòng giúp? Đâu bắt buộc phải tham gia câu lạc bộ của GPE mới là làm từ thiện?

Ôi bác Siwtom, anh em đâu có ý vậy. Vì thấy bạn ấy "nhiệt" nên cũng gợi ý tham gia hoạt động xã hội của GPE, cái này là hoạt động chung không bắt buộc nhằm huy động sự hảo tâm của anh em trong và ngoài GPE do anh Hướng phụ trách anh à.

 

[be_09]

Thế nếu giúp các em khác, chỗ khác thì anh em không sẵn lòng giúp? Đâu bắt buộc phải tham gia câu lạc bộ của GPE mới là làm từ thiện?

Bình thường đâu cần gì tôi vẫn giúp anh em bình thường cũng là cách làm việc thiện, nhưng dựa theo ý của sealand tôi cũng thấy cũng hợp tình nên góp thêm ý, chứ tôi đâu có bắt bạn ấy phải đóng góp, ý của tôi ở trên là như vầy:

làm việc thiện cũng là 1 điều tốt

và

của ít lòng nhiều

Như vậy, rõ ràng là tôi đâu có bắc buộc bạn ấy phải đóng góp rồi mới giúp đâu!

 

[sealand]

Mình gửi file đã bổ xung:
Các ô tiền, số ĐT,CMND v.v... chỉ nhập các chữ số
Ô họ tên chỉ nhập ký tự không cho nhập các ký tự sau:0123456789~`!%^&*()_-+={[]}:;'<>.,/?\|"

 

[siwtom]

Ôi bác Siwtom, anh em đâu có ý vậy. Vì thấy bạn ấy "nhiệt" nên cũng gợi ý tham gia hoạt động xã hội của GPE, cái này là hoạt động chung không bắt buộc nhằm huy động sự hảo tâm của anh em trong và ngoài GPE do anh Hướng phụ trách anh à.

À, tôi đôi co thôi mà.

Anh nói: "Nếu bạn có thể bạn ghé đây xem giúp đuọc gì không". Tức bạn muốn "chi" thì bạn xem "ở chỗ này" có giúp được gì thì giúp nhé. Không có gì để nói.

Nhưng anh be09 nói: "nếu bạn ... đóng góp của ít lòng nhiều để giúp các em nhỏ ... thì anh em cũng sẳn lòng giúp bạn". Nghe như là ra điều kiện ấy.

Tất nhiên tôi chỉ "đôi co" thôi.

 

[Cá ngừ F1]

Dạ, e xin có ý kiến, các thành viên đều có ý tốt cả.. theo ý em hiểu về ý của a be09 và sealand thì là xem sự nhiệt tình của chủ topic đến đâu thôi..
vì rõ ràng trên diễn đàn này đã học được quá nhiều (mà đều free cả).. đổi lại sự free đấy cũng nên đóng góp chút j đấy để thể hiện sự cám ơn (mà ko chỉ dùng vài từ trên diễn đàn)..
Như mod PTH có nói, bản chuyên đề mừng SN GPE 7 tuổi hơn 10k lượt truy cập và download, trong khi lại rất ít người ủng hộ chương trình...thế có phải đáng buồn không ạh..

 

[123456789123456789123456789]

cám ơn rất nhiều

Phải công nhận các bạn ở diễn đàn này giỏi thật , kết quả trên cả mong đợi của mình luôn.
mình nhờ sealand sữa lại chổ này giúp mình với

• mình chỉ cần trường bắt buộc ở phần ( Mã Khách hàng, Tên Khách hàng, cmnd, ngày cấp, nơi cấp, năm sinh , địa chỉ, số tiền vay, ngày đến hạn ), vì tùy loại khách hàng mới yêu cầu nhập các phần còn lại.
• KHi nhập số vào thì nó ra luôn bằng chữ quá tuyệt vời, nhưng mình mail merge dữ liệu này vào word để in hợp đồng cho khách hàng thì nó bị 10000000 ( mất dấu phẩy), có cách nào khắc phục không
• Cuối cùng mình muốn nhờ bạn giúp minh thêm 1 bảng nữa, bảng này là dữ liệu cho hợp đồng thế chấp, các box thuộc về thong tin khách hàng , và người đồng sở hữu gáng code bắt buộc nhập giúp mình , còn lại để trống , các dữ liệu mình tô sẵng màu, mỗi màu bạn làm giúp mình 1 frame nha.
• Số điện thoại ở chữ ký là của bạn phải không ngày mai cho phép mình chuyển vài K vào số đt của bạn nha . Cám ơn bạn rất nhiều

 

[123456789123456789123456789]

Dạ, e xin có ý kiến, các thành viên đều có ý tốt cả.. theo ý em hiểu về ý của a be09 và sealand thì là xem sự nhiệt tình của chủ topic đến đâu thôi..
vì rõ ràng trên diễn đàn này đã học được quá nhiều (mà đều free cả).. đổi lại sự free đấy cũng nên đóng góp chút j đấy để thể hiện sự cám ơn (mà ko chỉ dùng vài từ trên diễn đàn)..
Như mod PTH có nói, bản chuyên đề mừng SN GPE 7 tuổi hơn 10k lượt truy cập và download, trong khi lại rất ít người ủng hộ chương trình...thế có phải đáng buồn không ạh..

Bạn yên tâm đi mà mình biết có vào phải có ra , nên mình mới ngõ lời thẳng không cám ơn xuông đâu

 

[123456789123456789123456789]

Thêm một lỗi nữa Sealand ơi phần nhập tên khách hàng mình gõ tiếng việt nó out ra , baos run time eror "5"


Function AccStr(ByVal Ma As Integer) As Integer
If InStr(1, "0123456789~`!%^&*()_-+={[]}:;'<>.,/?\|" & Chr(34), Chr(Ma)) > 0 Then
AccStr = 0
Else
AccStr = Ma
End If
End Function


Cơ quan mình sử dụng toàn bộ font Unicode Không cho xài vni-time

 

[sealand]

Phải công nhận các bạn ở diễn đàn này giỏi thật , kết quả trên cả mong đợi của mình luôn.
mình nhờ sealand sữa lại chổ này giúp mình với

• mình chỉ cần trường bắt buộc ở phần ( Mã Khách hàng, Tên Khách hàng, cmnd, ngày cấp, nơi cấp, năm sinh , địa chỉ, số tiền vay, ngày đến hạn ), vì tùy loại khách hàng mới yêu cầu nhập các phần còn lại.
• KHi nhập số vào thì nó ra luôn bằng chữ quá tuyệt vời, nhưng mình mail merge dữ liệu này vào word để in hợp đồng cho khách hàng thì nó bị 10000000 ( mất dấu phẩy), có cách nào khắc phục không
• Cuối cùng mình muốn nhờ bạn giúp minh thêm 1 bảng nữa, bảng này là dữ liệu cho hợp đồng thế chấp, các box thuộc về thong tin khách hàng , và người đồng sở hữu gáng code bắt buộc nhập giúp mình , còn lại để trống , các dữ liệu mình tô sẵng màu, mỗi màu bạn làm giúp mình 1 frame nha.
• Số điện thoại ở chữ ký là của bạn phải không ngày mai cho phép mình chuyển vài K vào số đt của bạn nha . Cám ơn bạn rất nhiều

1 - Mình sẽ sửa lại việc kiểm tra nhập dữ liệu cho bạn

2 - Phần số mình mất công chuyển từ dạng chuỗi sang dạng số đó vì còn việc sử dụng dữ liệu về sau để tính toán chứ. Còn việc định dạng số trong Word được cơ mà.

3 - Form mới thì để từ từ vì đến kỳ báo cáo thuế rồi.

4 - Trên chủ đề này có vài đoạn nói về chi phí, giờ mình nói thêm để bạn thông cảm. Do có bài của bác Siwtom mà mình rất kính trọng (Kể cả về chuyên môn và tuổi tác) nên mình phải nói lại thôi. Thực ra là thế này, nếu anh em gần gũi bạn hô đi uống Ca phê hay bia bù khú mấy anh em cho vui mình nhận lời ngay còn bạn gửi chả lẽ mình uống bù mấy cốc. Thôi với mình bạn vô tư đi, không phải suy nghĩ gì cả. Mà mình mất trôm sim số trên chữ ký rồi, anh em đều biết bạn cố tình gửi là mất tiền đó nghe. Mình vẫn để đó là minh chứng với nhà mạng Mobi thôi. Chỉ mong rằng bạn nhớ tới mình, một ngày nào đó đẹp trời gặp được nhau tay bắt mặt mừng thế No.1. Thôi nha, đừng ai nói thêm loãng chủ đề phải không?

(P/s: Trên file mình sử dụng toàn bộ font Unicode nhưng có 1 số mã sử lý Font TCVN3 vì Listview không hỗ trợ Unicode nên mình chuyển qua để hiển thị thôi)

 

[123456789123456789123456789]

Cám ơn bạn nhiều nha bạn sữa giúp mình ,còn form mới trong thời gian chờ đợi bạn rảnh, mình tự mò coi sau có gì mình xin được hỏi thêm

 

[be_09]

nhưng mình mail merge dữ liệu này vào word để in hợp đồng

Tôi thấy bạn nên dùng 1 sheet làm hợp đồng vay vốn, thế chấp luôn cho tiện, sử dụng mail merge thì cũng được nhưng phải mở 2 File cùng lúc (hơi bất tiện), bạn tham khảo File này tôi cũng giúp 1 bạn trên diễn đàn, bạn có thể xem thử để tham khảo. Tải File theo Link sau:

https://app.box.com/s/1u60nisg76bi3rqd25xg

 

[123456789123456789123456789]

giúp mình sữa lỗi nhập tại ô tên khách hàng bỏ dấu bị out ra với

Function AccStr(ByVal Ma As Integer) As Integer
If InStr(1, "0123456789~`!%^&*()_-+={[]}:;'<>.,/?\|" & Chr(34), Chr(Ma)) > 0 Then
AccStr = 0
Else
AccStr = Ma
End If
End Function

 

[sealand]

Bạn từng bước như sau:

1-Chép thay thế hàm:
Bạn xoá hàm sau:

Function AccStr(ByVal Ma As Integer) As Integer
[COLOR=#ff0000]If InStr(1, "[/COLOR][COLOR=#ff0000]0123456789~`!@#$%^&*()_-+={[]}:;'<>.,/?\[/COLOR][COLOR=#ff0000]|" & Chr(34), Chr(Ma)) > 0 Then
[/COLOR]AccStr = 0
Else
AccStr = Ma
End If
End Function

Chép vào hàm này

Function AccStr(ByVal Ch As String) As String
Dim mStr, Kt, i
For i = 1 To Len(Ch)
Kt = Mid(Ch, i, 1)
If InStr(1, "0123456789~`!@#$%^&*()_-+={[]}:;'<>.,/?\|" & Chr(34), Kt) = 0 Then mStr = mStr & Kt
Next
AccStr = mStr
End Function

2/Thay Code của Form:

Bạn xoá đoạn Code sau

Private Sub txt02_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
KeyAscii = AccStr(KeyAscii)
End Sub

Bạn chép trả vào Code sau

Private Sub txt02_Change()
txt02.Value = AccStr(txt02)
End Sub

Kiểm tra lại xem sao.

 

[123456789123456789123456789]

Mình làm được rồi sealand ơi, sẵng mình hỏi thêm mình muốn tạo thêm một box nhập liệu nữa thì phải làm sao. Mình view code mãi mà không chèn thêm 1 box được

 

[sealand]

Thì cứ vẽ lên Form 1 Textbox , để code duyệt vòng lặp qua nó thì sửa tên thành txt##(2## có nghĩa là 2 chữ số phân biệt)

Để tránh vỡ code nên thêm vào cuối danh sách txt--

 

[123456789123456789123456789]

Cơ quan mình chỉ cho dùng Unicode thôi nên khi mở chương trình phần listview tên khách hàng bị bể font chữ, mình muốn chỉnh lại thàng font Unicode cho phần listview làm như thế nào

 

[123456789123456789123456789]

Thì cứ vẽ lên Form 1 Textbox , để code duyệt vòng lặp qua nó thì sửa tên thành txt##(2## có nghĩa là 2 chữ số phân biệt)

Để tránh vỡ code nên thêm vào cuối danh sách txt--

Có thể hướng dẫn bằng 1 code cụ thể được không bạn

 

[123456789123456789123456789]

Giúp thêm nút chỉnh sữa số liệu đã nhập

Mình đã tạo xong form nhập dữ liệu cho hồ sơ thế chấp , mình muốn thêm nút chỉnh sữa số liệu đã nhập trên form, và dữ liệu trên bảng tính exel để dễ chỉnh sữa sai xót, và khi mở lại không mất công nhập dữ liệu lại. Giúp mình với

 

[123456789123456789123456789]

Hix có ai giúp mình với