Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[Help] Tạo mã hàng tự động
#1
Nhờ các bác cao thủ giúp dùm nha

KHACHHANG(MAKHACH, TENKHACH, DIACHI, ....)
tại MAKHACH có mã của nhà cung cấp và mã khách hàng
khi mình chọn nhà cung cấp hoặc khách hàng thì tại ô textbox mã khách sẽ có NCC... hoặc KH....
mình thiết kế form khachhang tới lúc viết code thì mình đơ ra nên nhờ bác giúp dùm

http://www.uphinhnhanh.com/view-54624Capture.jpg

nguồn : http://www.mediafire.com/download/373hhn...TEST.accdb
Chữ ký của cawboy Xin chào, mình là cawboy, Tham gia http://thuthuataccess.com/forum từ ngày 07-03 -14.
ღღღღღTài sản của cawboy (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#2
Câu lệnh đưa vào event click của option
Thân mến
Chữ ký của Xuân Thanh Trăm năm trước thì ta chưa gặp
Trăm năm sau biết gặp được không?
Cuộc đời sắc sắc không không
Thì thôi ta cứ hết lòng vì nhau
ღღღღღTài sản của Xuân Thanh (View All Items) ღღღღღ
Reply
Những người đã cảm ơn cawboy
#3
(29-05-14, 12:15 PM)Xuân Thanh Đã viết: Câu lệnh đưa vào event click của option
Thân mến

Bác Xuân Thanh giúp dùm e luôn nha, cám ơn bác nhiều
Chữ ký của cawboy Xin chào, mình là cawboy, Tham gia http://thuthuataccess.com/forum từ ngày 07-03 -14.
ღღღღღTài sản của cawboy (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#4
Chuyển cái Event AfterUpdate của Frame sang Event Click là OK
Thân
Chữ ký của Xuân Thanh Trăm năm trước thì ta chưa gặp
Trăm năm sau biết gặp được không?
Cuộc đời sắc sắc không không
Thì thôi ta cứ hết lòng vì nhau
ღღღღღTài sản của Xuân Thanh (View All Items) ღღღღღ
Reply
Những người đã cảm ơn cawboy
#5
(29-05-14, 09:29 PM)Xuân Thanh Đã viết: Chuyển cái Event AfterUpdate của Frame sang Event Click là OK
Thân

cám ơn bác Xuân Thanh nhiều lắm, mình đã làm được rồi nhưng chỉ đúng cho mã NCC... thôi còn mã KH....... thì không đúng, nhờ bác Xuân Thanh chỉnh code lại cho đúng, xin cám ơn
Chữ ký của cawboy Xin chào, mình là cawboy, Tham gia http://thuthuataccess.com/forum từ ngày 07-03 -14.
ღღღღღTài sản của cawboy (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#6
Bác Xuân Thanh xem giúp đoạn code trên có đúng chưa hé
Mã:
Private Sub Option_Click()
    Dim Sotang As Integer
    Dim strMaHHMax As String
        
    Select Case Option
        Case 1:
            strMaHHMax = DLookup("[Makhach]", "t_khachhang", "left([Makhach],3)='" & "NCC"  &  "' And [Stt]=" & DMax("[Stt]", "t_khachhang") & "")
            Sotang = Right(strMaHHMax, Len(strMaHHMax) - 3)
            Me.txtMakhach = "NCC000" & Sotang + 1
        Case 2:
            strMaHHMax = DLookup("[Makhach]", "t_khachhang", "left([Makhach],2)='" & "KH"  &  "' And [Stt]=" & DMax("[Stt]", "t_khachhang") & "")
            Sotang = Right(strMaHHMax, Len(strMaHHMax) - 2)
            Me.txtMakhach = "KH0000" & Sotang + 1
    End Select
    Me.txtTenkhach.SetFocus
    LstKH.Requery
End Sub
Chữ ký của cawboy Xin chào, mình là cawboy, Tham gia http://thuthuataccess.com/forum từ ngày 07-03 -14.
ღღღღღTài sản của cawboy (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#7
Chắc là đoạn code này khó lắm bác Xuân Thanh nhỉ
Chữ ký của cawboy Xin chào, mình là cawboy, Tham gia http://thuthuataccess.com/forum từ ngày 07-03 -14.
ღღღღღTài sản của cawboy (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#8
1/ Chèn code vào rồi chạy thử và test là ra ngay thôi
2/ Câu lệnh có vẻ tạm ổn nhưng ...hơi lắt léo
Thân mến
Chữ ký của Xuân Thanh Trăm năm trước thì ta chưa gặp
Trăm năm sau biết gặp được không?
Cuộc đời sắc sắc không không
Thì thôi ta cứ hết lòng vì nhau
ღღღღღTài sản của Xuân Thanh (View All Items) ღღღღღ
Reply
Những người đã cảm ơn cawboy
#9
Thử thay cái này xem sao nhé

Mã PHP:
...
Select Case Option
        
Case 1:            
            
Sotang Dcount("[TenKhach]","t_khachhang"Left([MaKhach], 3) = "NCC")
            
Me.txtMakhach "NCC000" Sotang 1
... 

Test lại nhé
Thân
Chữ ký của Xuân Thanh Trăm năm trước thì ta chưa gặp
Trăm năm sau biết gặp được không?
Cuộc đời sắc sắc không không
Thì thôi ta cứ hết lòng vì nhau
ღღღღღTài sản của Xuân Thanh (View All Items) ღღღღღ
Reply
Những người đã cảm ơn cawboy
#10
(01-06-14, 05:59 PM)Xuân Thanh Đã viết: Thử thay cái này xem sao nhé

Mã PHP:
...
Select Case Option
        
Case 1:            
            
Sotang Dcount("[TenKhach]","t_khachhang"Left([MaKhach], 3) = "NCC")
            
Me.txtMakhach "NCC000" Sotang 1
... 

Test lại nhé
Thân

Để mình test lại, cám ơn bác nhiều
Chữ ký của cawboy Xin chào, mình là cawboy, Tham gia http://thuthuataccess.com/forum từ ngày 07-03 -14.
ღღღღღTài sản của cawboy (View All Items) ღღღღღ
Reply
Những người đã cảm ơn


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  Tự động hiện Form khi loading hết thời gian ChiMai 1 49 02-12-16, 08:59 PM
Bài mới nhất: ongke0711
  Xin giúp tạo 1 trường trong table đánh số tự động thay cho autonumber trungminh 7 450 16-09-16, 05:17 PM
Bài mới nhất: maidinhdan
Photo [Hỏi] Tạo nút tự động đánh lại số CT khanh 12 410 03-08-16, 08:23 PM
Bài mới nhất: ongke0711
  [Hỏi] Hỏi cách chọn combobox tự động cannguyen 6 585 03-06-16, 11:40 PM
Bài mới nhất: cannguyen
  [Help] Tự động lưu dữ liệu trên textbox vào table jason 34 2,708 22-05-16, 11:39 AM
Bài mới nhất: thanhtruong

Chuyển nhanh:


User(s) browsing this thread: 1 Guest(s)
Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ