• Trang chủ click to expand contents 

  • [Demo P2] Tạo Số tăng dần và Reset theo nhu {cầu 2 Cách}

  • RE: [Video+Demo] 2 Cách Tạo Số tăng dần và Reset theo nhu cầu

    maidinhdan > 03-11-18, 02:24 PM

    (30-10-18, 12:05 PM)soluuhuong85 Đã viết: Cho mình xin một bản không khóa nhé, xin cảm ơn!

    email: soluuhuong85@gmail.com

    Đã gửi

  • RE: [Video+Demo] 2 Cách Tạo Số tăng dần và Reset theo nhu cầu

    samacxanh > 04-11-18, 03:05 PM

    E đang cần file Demo này trên bản Access 64bit. Bác nào có cho e xin với ạ.
    E cần số thứ tự reset theo tháng ạ.
    Mail e: doanhung.hust@gmail.com

  • RE: [Video+Demo] 2 Cách Tạo Số tăng dần và Reset theo nhu cầu

    maidinhdan > 09-11-18, 11:52 AM

    (04-11-18, 03:05 PM)samacxanh Đã viết: E đang cần file Demo này trên bản Access 64bit. Bác nào có cho e xin với ạ.
    E cần số thứ tự reset theo tháng ạ.
    Mail e: doanhung.hust@gmail.com

    Trả lời:

    Demo này được viết trên Access 32bit, để có thể sử dụng trên bản 64bit, bạn tạo file Access 64bit sau đó Import qua là ok.

    Thân mến!

  • RE: [Video+Demo] 2 Cách Tạo Số tăng dần và Reset theo nhu cầu

    samacxanh > 11-11-18, 04:07 PM

    (09-11-18, 11:52 AM)maidinhdan Đã viết:
    (04-11-18, 03:05 PM)samacxanh Đã viết: E đang cần file Demo này trên bản Access 64bit. Bác nào có cho e xin với ạ.
    E cần số thứ tự reset theo tháng ạ.
    Mail e: doanhung.hust@gmail.com

    Trả lời:

    Demo này được viết trên Access 32bit, để có thể sử dụng trên bản 64bit, bạn tạo file Access 64bit sau đó Import qua là ok.

    Thân mến!
     Thank bác.

  • RE: [Video+Demo] 2 Cách Tạo Số tăng dần và Reset theo nhu cầu

    mrsiro > 11-11-18, 04:20 PM

    Cho mình xin 1 bản vào mail: Sirolichking15@gmail.com
    Xin cám ơn rất nhiều.

  • RE: [Video+Demo] 2 Cách Tạo Số tăng dần và Reset theo nhu cầu

    mrtoanbin > 12-11-18, 01:59 PM

    Bác maidinhdan nghiên cứu toàn thực tế. Gửi e với: nguyentrungtoan0288@gmail.com

  • RE: [Video+Demo] 2 Cách Tạo Số tăng dần và Reset theo nhu cầu

    maidinhdan > 13-12-18, 01:20 PM

    Đã gửi:
    Trích dẫn:tới:so siro <Sirolichking15@gmail.com>,
    Toan Nguyen <nguyentrungtoan0288@gmail.com>
    ngày:12:20, 13 thg 12, 2018

  • RE: [Video+Demo] 2 Cách Tạo Số tăng dần và Reset theo nhu cầu

    drthaodean > 09-01-19, 12:44 PM

    Nhờ anh maidinhdan gửi giúp qua Email: thaothegod@gmail.com

    Cám ơn anh.

  • RE: [Video+Demo] 2 Cách Tạo Số tăng dần và Reset theo nhu cầu

    drthaodean > 12-01-19, 11:01 AM

    Chào anh maidinhdan,
    Em có download file "demo STT tang dan va reset moi nam" của anh nhưng khi nhấn vào button Thêm thì xuất hiện lỗi Run-time error '2105'. Thường lỗi xuất hiện ở một số ngẫu nhiên nào đó và không cho tạo thêm Record mới. Em đã thử xóa tất cả Record trên table nhưng lỗi vẫn xuất hiện ở dòng 
    If Year(Now) = DLast(Year([Ngaynhan]), "tbl_BBGiaoNhan_Main") Then

       Docmd.GoToRecord , , acNewRec  
    Anh xem lại đoạn code giúp em nhé. Cám ơn anh.
    Mã:
    Private Sub cmdthem_Click()
    Dim SoAo
    If Year(Now) = DLast(Year([Ngaynhan]), "tbl_BBGiaoNhan_Main") Then
       Docmd.GoToRecord , , acNewRec
       SoAo = DLast("[SoBN]", "tbl_BBGiaoNhan_Main")
       SoBN = Format(SoAo + 1, "#")
       Me.SoLuu.Value = Me.SoBN.Value & "/" & Year(Now) & "/GBN-TTPY"
       Me.Dienthoaidelienhe.Value = DLast("[Dienthoaidelienhe]", "tbl_BBGiaoNhan_Main")
       Me.Tennguoinhan.SetFocus
    Else
       Docmd.GoToRecord , , acNewRec
       Me.SoBN.Value = "1"
       Me.SoLuu.Value = "1" & "/" & Year(Now) & "/GBN-TTPY"
       Me.Tennguoinhan.SetFocus
       End If
    End Sub

  • RE: [Video+Demo] 2 Cách Tạo Số tăng dần và Reset theo nhu cầu

    maidinhdan > 07-05-19, 03:41 PM

    (12-01-19, 11:01 AM)drthaodean Đã viết: Chào anh maidinhdan,
    Em có download file "demo STT tang dan va reset moi nam" của anh nhưng khi nhấn vào button Thêm thì xuất hiện lỗi Run-time error '2105'. Thường lỗi xuất hiện ở một số ngẫu nhiên nào đó và không cho tạo thêm Record mới. Em đã thử xóa tất cả Record trên table nhưng lỗi vẫn xuất hiện ở dòng 
    If Year(Now) = DLast(Year([Ngaynhan]), "tbl_BBGiaoNhan_Main") Then

       Docmd.GoToRecord , , acNewRec  
    Anh xem lại đoạn code giúp em nhé. Cám ơn anh.
    Mã:
    Private Sub cmdthem_Click()
    Dim SoAo
    If Year(Now) = DLast(Year([Ngaynhan]), "tbl_BBGiaoNhan_Main") Then
       Docmd.GoToRecord , , acNewRec
       SoAo = DLast("[SoBN]", "tbl_BBGiaoNhan_Main")
       SoBN = Format(SoAo + 1, "#")
       Me.SoLuu.Value = Me.SoBN.Value & "/" & Year(Now) & "/GBN-TTPY"
       Me.Dienthoaidelienhe.Value = DLast("[Dienthoaidelienhe]", "tbl_BBGiaoNhan_Main")
       Me.Tennguoinhan.SetFocus
    Else
       Docmd.GoToRecord , , acNewRec
       Me.SoBN.Value = "1"
       Me.SoLuu.Value = "1" & "/" & Year(Now) & "/GBN-TTPY"
       Me.Tennguoinhan.SetFocus
       End If
    End Sub

    Cái này quá củ rồi không nên áp dụng nửa... Bạn lấy hàm ở bài đầu tiên của chuyên mục này mà ap dụng