• Tùy chọn
• Đăng nhập
• Đăng ký
• Xem như trên Máy tính
• Accelerated Mobile Pages Theme

Tạo mã hàng tự động

• Trang chủ

  • Thủ Thuật Access
  • Access Cơ Bản
  • Forms
  • [Help] Tạo mã hàng tự động
• Tạo mã hàng tự động

• Tạo mã hàng tự động

  cawboy > 28-05-14, 08:26 PM

  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

• RE: Tạo mã hàng tự động

  Xuân Thanh > 29-05-14, 12:15 PM

  Câu lệnh đưa vào event click của option
  Thân mến

• RE: Tạo mã hàng tự động

  cawboy > 29-05-14, 02:37 PM

  (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

• RE: Tạo mã hàng tự động

  Xuân Thanh > 29-05-14, 09:29 PM

  Chuyển cái Event AfterUpdate của Frame sang Event Click là OK
  Thân

• RE: Tạo mã hàng tự động

  cawboy > 29-05-14, 11:16 PM

  (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

• RE: Tạo mã hàng tự động

  cawboy > 30-05-14, 07:44 PM

  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

• RE: Tạo mã hàng tự động

  cawboy > 31-05-14, 09:54 PM

  Chắc là đoạn code này khó lắm bác Xuân Thanh nhỉ

• RE: Tạo mã hàng tự động

  Xuân Thanh > 01-06-14, 10:04 AM

  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

• RE: Tạo mã hàng tự động

  Xuân Thanh > 01-06-14, 05:59 PM

  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

• RE: Tạo mã hàng tự động

  cawboy > 02-06-14, 02:15 AM

  (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
• Bài trước Bài tiếp