Đá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
  [Hỏi] Tại saoform không hiện thị được dấu phân cách hàng ngàn thanhhao 1 34 Hôm qua, 04:29 PM
Bài mới nhất: tranthanhan1962
  Lỗi trùng mã khách hàng cannguyen 34 1,529 19-06-17, 09:26 PM
Bài mới nhất: tieu_ngao
  hàm Dlookup không hoạt động ở máy khác thanhtruong 3 143 17-06-17, 07:32 PM
Bài mới nhất: tranthanhan1962
  [Hỏi] Refresh Form và tiếp tục hoạt động Godspear 2 274 08-12-16, 12:48 PM
Bài mới nhất: Godspear
  Tự động hiện Form khi loading hết thời gian ChiMai 1 197 02-12-16, 08:59 PM
Bài mới nhất: ongke0711

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ơ