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

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

• Trang chủ

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

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

  thanhhau828 > 14-05-13, 08:40 AM

  Mình muốn tạo 1 makh(Mã khách hàng) tự động là khi mình thêm 1 khách hàng thì tự động tạo ra mã khách hàng. VD: makh00001, makh00002,makh00003...
  Vấn đề thứ 2:là mình co ngày đến, ngày di, tính tiền. Mình muốn khi thêm Khách hàng thì sẽ ghi ngày đến bằng ngày hiện hành và khi tính tiền sẽ lấy ngày di - ngày đến * giá.
  Mong các bạn giúp đỡ
  
  ------------
  Chú ý tiêu đề bài viết
  Admin

• RE: mong các bạn hướng dẫn

  Xuân Thanh > 14-05-13, 09:52 AM

  Mã PHP:

  Private Sub cmdAddNew_Click()
    Dim STT As Integer
    STT = DCount("MaKH", tblKhachHang) + 1
    Me.MaKH.SetForcus
    Me.MaKH = "KH" & Right("00000" & STT, 5)
    Me.txtNgayDen = Date
End Sub

Private Sub cmdBill_Click()
    Me.txtThanhTien = (Me.txtNgayDi.Value - Me.txtNgayDen.Value) * txtDonGia.Value
End Sub 


  
  Test lại nhé
  Thân

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

  danhxetnghiem > 14-05-13, 07:01 PM

  vấn đề ngày giờ như bạn nói thì liên hệ với tôi: 01683.850.700.
  sẵn sàng giúp bạn.
  cái này tôi rành.

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

  thanhhau828 > 14-05-13, 08:07 PM

  Bạn cho mình hỏi thêm về kiểm tra ngày đến đi minh nhập vào phải đúng. VD: 30/2 là báo lỗi.Mình muốn tắt thông báo lỗi và hiển thị thông báo của mình. em muốn viết ở sự kiện gotfocus thì sẽ báo lỗi, anh thấy nên viết ở sự kiện nào thì chỉ giúp em với

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

  Xuân Thanh > 15-05-13, 10:48 AM

  Dùng Hàm IsDate để kiểm tra, True là OK, False là Sai===>ra thông báo
  Thân

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

  thanhhau828 > 15-05-13, 01:54 PM

  mình biết là dùng hàm isdate rồi. nhưng mình viết ở sự kiện nào? và mình cần tắt thông báo lỗi của access nữa?

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

  Xuân Thanh > 15-05-13, 02:47 PM

  Mã:

  Private Sub txtNgay_AfterUpdate()
    If IsDate(txtNgay) = False Then
        DoCmd.SetWarnings False
        MsgBox"Ngay thang khong hop le" , , "Thong Bao"
        DoCmd.SetWarnings True
        Exit Sub
    End If
End Sub
• Bài trước Bài tiếp