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

Chia sẻ bộ code quản lý form (tiến - lùi - thêm - xóa ...)

• Trang chủ

  • Thủ Thuật Access
  • Access Cơ Bản
  • Forms
  • Chia sẻ bộ code quản lý form (tiến - lùi - thêm - xóa ...)
• Chia sẻ bộ code quản lý form (tiến - lùi - thêm - xóa ...)

• RE: Chia sẻ bộ code quản lý form (tiến - lùi - thêm - xóa ...)

  NguyenDungAnh > 15-08-18, 04:25 PM

  (15-08-18, 01:15 PM)Cuong Servenet Đã viết:

  (13-08-18, 02:27 PM)tranthanhan1962 Đã viết:

  (13-08-18, 10:28 AM)NguyenDungAnh Đã viết: Bác An share lại file này đc không

  OK bạn!
  https://drive.google.com/file/d/1aYp5KGH...sp=sharing

  
  
  em tưởng cái này tren access nó có sẵn nút tiến lùi  rồi mà ,  
  mình chỉ cần thêm nút thêm , sửa xóa là dc thôi chứ nhỉ

  
  Mình bắt đầu tìm hiểu về VBA lên tìm tòi cái này bạn ạ

• RE: Chia sẻ bộ code quản lý form (tiến - lùi - thêm - xóa ...)

  Cuong Servenet > 24-08-18, 09:18 AM

  (15-08-18, 04:25 PM)NguyenDungAnh Đã viết:

  (15-08-18, 01:15 PM)Cuong Servenet Đã viết:

  (13-08-18, 02:27 PM)tranthanhan1962 Đã viết:

  (13-08-18, 10:28 AM)NguyenDungAnh Đã viết: Bác An share lại file này đc không

  OK bạn!
  https://drive.google.com/file/d/1aYp5KGH...sp=sharing

  
  
  em tưởng cái này tren access nó có sẵn nút tiến lùi  rồi mà ,  
  mình chỉ cần thêm nút thêm , sửa xóa là dc thôi chứ nhỉ

  
  Mình bắt đầu tìm hiểu về VBA lên tìm tòi cái này bạn ạ

  
  Mình làm việc với bọn nhật thấy họ hầu như ko dùng kiểu tiến lùi như này mà thay vào đó họ đưa ra 1 list danh sách toàn bộ nội dung dữ liệu trong 1 form rồi , phía trên họ đưa ra cái textbox tìm kiếm ..... -> Khi click vào 1 tên dữ liệu trong list thì sẽ hiện ra toàn bộ thông tin về dữ liệu đó.  
  Mình cũng đã tham khảo rất nhiều ứng dụng như của ng việt mình viết mình thấy việc click tiến lùi đó rất mất tgian vì dư liệu mà nhiều thì click đến bao giờ mới xong .

• RE: Chia sẻ bộ code quản lý form (tiến - lùi - thêm - xóa ...)

  tranthanhan1962 > 24-08-18, 11:32 AM

  (24-08-18, 09:18 AM)Cuong Servenet Đã viết: Mình làm việc với bọn nhật thấy họ hầu như ko dùng kiểu tiến lùi như này mà thay vào đó họ đưa ra 1 list danh sách toàn bộ nội dung dữ liệu trong 1 form rồi , phía trên họ đưa ra cái textbox tìm kiếm ..... -> Khi click vào 1 tên dữ liệu trong list thì sẽ hiện ra toàn bộ thông tin về dữ liệu đó.  
  Mình cũng đã tham khảo rất nhiều ứng dụng như của ng việt mình viết mình thấy việc click tiến lùi đó rất mất tgian vì dư liệu mà nhiều thì click đến bao giờ mới xong .

  Viết code tìm kiếm không khó, có khi chỉ cần dùng custom menu popup chỉnh sửa lại tiếng Việt rất đơn giản. Nhưng nên nhớ việc tìm bằng tiếng Việt có dấu rất tệ, khả năng thành công không cao.

• RE: Chia sẻ bộ code quản lý form (tiến - lùi - thêm - xóa ...)

  Cuong Servenet > 24-08-18, 01:32 PM

  (24-08-18, 11:32 AM)tranthanhan1962 Đã viết:

  (24-08-18, 09:18 AM)Cuong Servenet Đã viết: Mình làm việc với bọn nhật thấy họ hầu như ko dùng kiểu tiến lùi như này mà thay vào đó họ đưa ra 1 list danh sách toàn bộ nội dung dữ liệu trong 1 form rồi , phía trên họ đưa ra cái textbox tìm kiếm ..... -> Khi click vào 1 tên dữ liệu trong list thì sẽ hiện ra toàn bộ thông tin về dữ liệu đó.  
  Mình cũng đã tham khảo rất nhiều ứng dụng như của ng việt mình viết mình thấy việc click tiến lùi đó rất mất tgian vì dư liệu mà nhiều thì click đến bao giờ mới xong .

  Viết code tìm kiếm không khó, có khi chỉ cần dùng custom menu popup chỉnh sửa lại tiếng Việt rất đơn giản. Nhưng nên nhớ việc tìm bằng tiếng Việt có dấu rất tệ, khả năng thành công không cao.

  
  Thế nên mới cần phải có các pro như anh chia sẻ các cách giải quyết . hihi.

• RE: Chia sẻ bộ code quản lý form (tiến - lùi - thêm - xóa ...)

  Vanlinhmt > 30-07-19, 12:26 AM

  Em mới tìm hiểu Access
  Hiện có sử dụng code của anh để điều chỉnh nhưng có lỗi 'Run time error 2465
  [img]file:///C:/Users/linh.lv4/Desktop/2019-07-29_23-18-53.png[/img]
  Nhờ các anh em check giúp em vs ạ
  Em cảm ơn
  

  Mã PHP:

  Public Function Luu(frmName As Form, TabName As String, Ma As String)
    Dim ans
    Dim thongbao As String
    thongbao = UniVBAT("Luwu thay ddoori ?")
    ans = MsgBoxUni(thongbao, vbYesNo + vbInformation, "Thông Báo - Save")
    If ans <> vbYes Then
        frmName.Undo
        Call LuuEn(frmName)
    Else
        If n = 1 Then
            
            'Dim rs As Recordset
            'Set rs = CurrentDb.OpenRecordset(TabName, dbOpenTable)
            'rs.Index = "PrimaryKey"
            'rs.Seek "=", Ma
            
            Dim rs As Dao.Recordset
            Set rs = CurrentDb.OpenRecordset(TabName, dbOpenDynaset)
            rs.FindFirst "Ma =" & frmName.Ma
            
            If Not rs.NoMatch Then
                MsgBox "Trùng mã", , "Chú ý"
                Exit Function
            Else
                Call LuuEn(frmName)
            End If
        Else
            Call LuuEn(frmName)
        End If
    End If
    frmName.Requery
    Call UnLocktxt(frmName)
    Call UnLockComboBox(frmName)
End Function 


• RE: Chia sẻ bộ code quản lý form (tiến - lùi - thêm - xóa ...)

  Vanlinhmt > 30-07-19, 12:27 AM

  Em mới tìm hiểu Access
  Hiện có sử dụng code của anh để điều chỉnh nhưng có lỗi 'Run time error 2465
  [img]file:///C:/Users/ABC/Desktop/2019-07-29_23-18-53.png[/img]
  Nhờ các anh em check giúp em vs ạ
  Em cảm ơn
  

  Mã PHP:

  Public Function Luu(frmName As Form, TabName As String, Ma As String)
    Dim ans
    Dim thongbao As String
    thongbao = UniVBAT("Luwu thay ddoori ?")
    ans = MsgBoxUni(thongbao, vbYesNo + vbInformation, "Thông Báo - Save")
    If ans <> vbYes Then
        frmName.Undo
        Call LuuEn(frmName)
    Else
        If n = 1 Then
            
            'Dim rs As Recordset
            'Set rs = CurrentDb.OpenRecordset(TabName, dbOpenTable)
            'rs.Index = "PrimaryKey"
            'rs.Seek "=", Ma
            
            Dim rs As Dao.Recordset
            Set rs = CurrentDb.OpenRecordset(TabName, dbOpenDynaset)
            rs.FindFirst "Ma =" & frmName.Ma
            
            If Not rs.NoMatch Then
                MsgBox "Trùng mã", , "Chú ý"
                Exit Function
            Else
                Call LuuEn(frmName)
            End If
        Else
            Call LuuEn(frmName)
        End If
    End If
    frmName.Requery
    Call UnLocktxt(frmName)
    Call UnLockComboBox(frmName)
End Function 


• RE: Chia sẻ bộ code quản lý form (tiến - lùi - thêm - xóa ...)

  tuhocvba.net > 15-04-20, 10:49 PM

  Mình thấy riêng cái nút bấm của access thật là rắc rối lằng nhằng ghê. Chỉ để tạo cái nút bấm click vào ra msgbox thôi, cũng đã phải qua bao nhiêu thao tác.
  Cảm ơn chủ topic đã có một chủ đề súc tích, dễ hiểu.

• RE: Chia sẻ bộ code quản lý form (tiến - lùi - thêm - xóa ...)

  Salomon > 09-07-20, 09:36 AM

  Không tìm thấy file này (chắc lâu ngày bị xóa). 
  Bác tranthanhan1962  cho xin lại với. Email bs.kinhthi@gmail.com
  Cám ơn nhiều.

• RE: Chia sẻ bộ code quản lý form (tiến - lùi - thêm - xóa ...)

  tranthanhan1962 > 09-07-20, 12:08 PM

  Đúng là chủ đề này quá cũ. Mình viết hồi năm 2015 (5 năm rồi). Vì bộ code này viết trên office 2003 nên cũng không tương thích cho mấy ver sau này của access. Sẳn anh em yêu cầu mình tạo luôn cho accdb để anh em tiện nghiên cứu
  http://www.mediafire.com/file/s1dqcjkzi0...n.rar/file

• RE: Chia sẻ bộ code quản lý form (tiến - lùi - thêm - xóa ...)

  Salomon > 14-07-20, 04:17 PM

  (09-07-20, 12:08 PM)tranthanhan1962 Đã viết: Đúng là chủ đề này quá cũ. Mình viết hồi năm 2015 (5 năm rồi). Vì bộ code này viết trên office 2003 nên cũng không tương thích cho mấy ver sau này của access. Sẳn anh em yêu cầu mình tạo luôn cho accdb để anh em tiện nghiên cứu
  http://www.mediafire.com/file/s1dqcjkzi0...n.rar/file

  
  Cám ơn bác nha
• Bài trước Bài tiếp